Hola, muestro un listado de datos de acuerdo a una consulta, pero no logro hacer que uno de los campos lo muestre como un link para enviarlo a otra pagina y muestre el detalle del que estoy seleccionando....
alguna referencia o alguna ayuda, por favor...les anexo mi codigo..gracias..
<%
Option Explicit
Response.Expires = -1000
Dim oConn
Dim oRS
Dim sSQL
dim sSQL2
Dim sColor
dim dato1
dim dato2
Response.Write("<font size=2 face=arial>")
Response.Write("Siniestros Foraneos<br>")
Response.Write("<br>")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "dsn=crivero"
dato1= CStr(Request.form("dato"))
dato2= CStr(Request.form("datos"))
'sSQL = "SELECT astesa.[SIN ASTESA], asegurado.ASEGURADO, causa.CAUSA, ramo.RAMO, status.STATUS FROM status INNER JOIN (ramo INNER JOIN (oficina INNER JOIN (causa INNER JOIN (asegurado INNER JOIN astesa ON asegurado.ID_ASEG = astesa.aseguradoId_) ON causa.ID_CAUSA = astesa.causaId_) ON oficina.ID_OFICINA = astesa.oficinaId_) ON ramo.ID_RAMO = astesa.ramoId_) ON status.ID_STATUS = astesa.statusId_ WHERE oficina.OFICINA= '" & datos & "'"
sSQL2= "SELECT astesa.[sin astesa], asegurado.asegurado, causa.causa, ramo.ramo, status.status FROM ramo INNER JOIN (causa INNER JOIN (oficina INNER JOIN (asegurado INNER JOIN (status INNER JOIN astesa ON status.id_status = astesa.statusId_) ON asegurado.id_aseg = astesa.aseguradoId_) ON oficina.id_oficina = astesa.oficinaId_) ON causa.id_causa = astesa.causaId_) ON ramo.id_ramo = astesa.ramoId_ WHERE status.status='" & dato2 & "' AND oficina.oficina='" & dato1 & "'"
Response.Write(dato1)
Response.Write("<br>")
Set oRS = oConn.Execute(sSQL2)
Response.Write("<table border=3 cellpadding=3 cellspacing=3 style='font-family:arial; font-size:9pt;'>")
Response.Write("<tr bgcolor=blue style='color:white;'><td>astesa</td>")
Response.Write("<td>asegurado</td>")
Response.Write("<td>causa</td>")
Response.Write("<td>ramo</td>")
Response.Write("<td>status</td></tr>")
'sColor = "white"
Do While NOT oRS.EOF
'' If sColor = "silver" Then
'' sColor = "white"
'' Else
'' sColor = "silver"
'' End If
Response.Write("<tr bgcolor='" & sColor & "'>")
Response.write("<td>" "<a href=""status.asp?id=" & oRS("sin astesa").Value & ">""</td>")
'Response.Write "<td>" & oRS("sin astesa").Value & " </td>"
Response.Write("<td>" & oRS("asegurado").Value & "</td>")
Response.Write("<td>" & oRS("causa").Value & "</td>")
Response.Write("<td>" & oRS("ramo").Value & "</td>")
Response.Write("<td>" & oRS("status").Value & "</td></tr>")
oRS.MoveNext
Loop
Response.Write("</table><br><br>")
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>