este es el link que pasa
http://localhost/comercial/directori....asp?iLink=185
LINK 185 ES A RESCATAR
Este es el codigo que tengo :
%ID=Request.QueryString("LINK")%>
<%
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("dato\dir.mdb")
ID = ID
If Len(ID) < 1 Then
ID = 1
End If
'Conectamos a la conexion a la base de datos.
SQL = "SELECT * FROM LINKS WHERE LINK_ID ="&ID
RS.Open sql, oConn %>
<table width="410" border="0">
<tr>
<td width="186"><div align="center"><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
<%Response.Write "<IMG SRC="""&RS("imagen1")&""">" %>
</font></div></td>
<td width="214"><div align="center"><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
<%Response.Write "<IMG SRC="""&RS("imagen2")&""">" %>
</font></div></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td><div align="center"><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
<%Response.Write "<IMG SRC="""&RS("imagen3")&""">" %>
</font></div></td>
<td><div align="center"><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
<%Response.Write "<IMG SRC="""&RS("imagen4")&""">" %>
</font></div></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<br>
</div>
</div>
<p>
<font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
<%
RS.Close
oConn.Close
%>
</font> </p>
</div>
ESTE ES EL ERROR QUE ME SALE
error '80020009'
Ocurrió una excepción.
line 27
Esta es la linea 27
<%Response.Write "<IMG SRC="""&RS("imagen1")&""">" %>
asumo que el error puede ser debido a que el link no lo estoy capturando correctamente ya que cuando pongo una constante en el ID el codigo me lo muestra bien
GRACIAS A TODOS POR SU INTERES EN MI PROBLEMA