Ver Mensaje Individual
  #5 (permalink)  
Antiguo 23/11/2004, 17:53
JaviM
 
Fecha de Ingreso: septiembre-2003
Mensajes: 24
Antigüedad: 21 años, 7 meses
Puntos: 0
no va tampoco, ,me da el mismo error

pongo el codigo por si acaso he escrito algo mal:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" bgcolor="#000000" cellspacing="1">
<tr>
<td bgcolor="#333333"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td bgcolor="#FFCC00">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b><font size="2"></font><font size="2"><%=Request.Form("lala")%></font></b></font></div>
</td>
<td bgcolor="#FFCC00">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=Request.Form("lala1")%></font></div>
</td>
</tr>
<tr bgcolor="#333333">
<td><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">carrera</font></b></td>
<td><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Posicion</font></b></td>
<td><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Posicion</font></b></td>
</tr>
<%
Dim cn, rs, var1, var2, var3
ruta=Server.MapPath("mibase.mdb")
Set cn = Server.CreateObject ("ADODB.Connection")
cn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="+ruta+";"
Response.Write path
Set rs = Server.CreateObject ("ADODB.RecordSet")
var1=request.form("lala")
var2=request.form("lala1")
var3=request.form("lala2")
strSQL = "SELECT * FROM mitabla WHERE corredor='" & var1 & "' OR corredor='" & var2 & "' AND carrera='" & var3 & "' ORDER BY Fecha"
rs.Open strSQL, cn, 3, 3
temp1= ""
temp2= ""
While not rs.EOF
If rs("carrera") = var1 Then
temp1 = temp1 & rs("Posicion") & "<br>"
ElseIf rs("carrera") = var2 Then
temp2 = temp2 & rs("Posicion") & "<br>"
End If
%>
<tr bgcolor="#CCCCCC">
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=rs.Fields("carrera")%></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=temp1%></font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=temp2%></font></td>
</tr>
<% rs.MoveNext
Wend
rs.close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>
</table>
</body>
</html>