Ver Mensaje Individual
  #4 (permalink)  
Antiguo 31/07/2002, 07:23
jgonzale
 
Fecha de Ingreso: mayo-2002
Mensajes: 50
Antigüedad: 22 años, 11 meses
Puntos: 0
Re: Enviar form sin boton(submit)

De verdad agradezco su ayuda (a todos), ya logre que funcionara, solo me falta organizarlo para que se vea bonito, pero ustedes me ayudaron mucho, de verdad gracias
Anexo el código por si alguien mas está interesado...


*******************************************



<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Precios de Mercado</title>
</head>

<body>

<%



'Abrimos una conexión a una base de datos
Dim oConn, rs, SQL

set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'Access con OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("precios.mdb")

'Y abrimos la tabla Datos
SQL = "select id, dia, meslet, anio from precios, meses where precios.mes = meses.mes"

rs.Open SQL, oConn


' ********* Inicio escribir *************
%>

<TABLE BORDER=1>
<% while not rs.eof %>
<TR>
<% For i = 0 to 2
if not rs.eof then %>

<% fec = rs.fields("meslet") & " " & rs.fields("dia") & " de " & rs.fields("anio") %>
<% texto = "<a href='ver.asp?id=" & rs.fields("id") & "'>" & fec & "</a>" %>
<%= texto %></TD>
<% rs.movenext %>

<% else %>
 
<% end if %>
<% next %>
</TR>
<% wend %>
</TABLE>

<%
' ********* Fin escribir *************

rs.Close
oConn.Close

set rs = nothing
set oConn = nothing

%>

********************************************

De nuevo gracias y estaré pendiente en este foro ....

Jean