problemas con mostrar links en registros

[charlynet]

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

%>

[Mickel]

estara el problema en esta linea?

Response.write("<td>" "<a href=""status.asp?id=" & oRS("sin astesa").Value & ">""</td>")

*sigh*

Tan facil que es hacer una buena programacion estructurada. Dos cosas: uno, si funciona en html debe funcionar en ASP y dos, si tienes problemas con las comillas... usa variables primero...

Mi sugerencia

iSinastesa=oRs("sinastesa")
sWrite="<td><a href='status.asp?id=" & cstr(iSinastesa) & "'>" & cstr(iSinastesa) & "</a></td>"
Response.Write sWrite

es mas legible asi?

[charlynet]

Muchisimas gracias, me sirvio perfecto...

supongo que para recoger el valor de cada uno de los registros, es colocando

Request.Form

gracias

[Mickel]

Pues no. Con Request("id") solo recogerias el valor de la ID. Tendrias que hacer un select a tu tabla sobre esa ID y mostrar los datos. No es tan dificil, verdad?

[charlynet]

gracias, voy a verificarlo

[charlynet]

perdon por la demora en la respusta....ya quedo..gracias