Crear Vinculo Con Resultado De Consulta

[darkmcloud]

buenas amigos de foros del web......necesito lo siguiente.....tengo una pagina donde registro artefactos de un servicio tecnico.....entonces para modificar los datos de un cliente se ingresa su numero de contrato y la pagina llama los datos para poder modificarlos....
bueno lo que yo quiero es que en la pagina donde muestro los resultados de una consulta me permita tener un vinculo que al presionar el numero del cliente me redirija a modificar.asp donde puedo modificar los datos.
este es el codigo:


VALIDAR.ASP

<%
Dim Conn, RS, SQLQuery1
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos

TamPagina = 10

dim dbConn

'aca recibo los campos que voy a realizar la busqueda



On Error Resume next


'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring( "pagina" ) = "" then
PaginaActual = 1
else
PaginaActual = CInt(Request.Querystring( "pagina" ))
end if

Set Conn = Server.CreateObject( "ADODB.Connection" )
Set RS = Server.CreateObject( "ADODB.Recordset" )

Conn.Open Session("cnx")


' con esto evitamos que pierda el valor al movernos entre las paginas de paginacion.





fecha_1 = Request("fecha_1")
if IsDate(dfecha_1) then
dFecha_1=CDate(dFecha_1)
else
dFecha=""
end if

fecha_2 = Request("fecha_2")
csr = Request("csr")
nombre_cliente = Request("nombre_cliente")
serie = Request("serie")
estado = Request("estado")
tecnico = Request("tecnico")



strSQL="SELECT *, DateDiff (day, fecha_in ,fecha_ret) as difes, DATEDIFF (DAY, fecha_in, getdate()) as difftot FROM tblcliente"


se_encuentra = False


if se_encuentra then
strSQL=strSQL & " AND tipo_cliente LIKE '%cliente'"
else
strSQL=strSQL & " WHERE tipo_cliente LIKE '%cliente'"
se_encuentra=True
end if

if IsDate(fecha_1) then

if se_encuentra then
strSQL=strSQL & " AND fecha_ret between '"&fecha_1&"' and '"&fecha_2&"'"
else
strSQL=strSQL & " WHERE fecha_ret between '"&fecha_1&"' and '"&fecha_2&"'"
se_encuentra=True
end if
end if


if csr <> "" then
if se_encuentra then
strSQL=strSQL & " AND csr LIKE '%"&csr&"'"
else
strSQL=strSQL & " WHERE csr LIKE '%"&csr&"'"
se_encuentra=True
end if
end if

'la variable se_encuentra se inicializa en falso y se cambia a verdadero si el campo trae un valor ingresado

if distribuidor <> "" then
if se_encuentra then
strSQL=strSQL & " AND distribuidor LIKE '%"&distribuidor&"'"
else
strSQL=strSQL & " WHERE distribuidor LIKE '%"&distribuidor&"'"
se_encuentra=True
end if
end if

if estado <> "" then
if se_encuentra then
strSQL=strSQL & " AND estado LIKE '%"&estado&"'"
else
strSQL=strSQL & " WHERE estado LIKE '%"&estado&"'"
se_encuentra=True
end if
end if

if tecnico <> "" then
if se_encuentra then
strSQL=strSQL & " AND tecnico LIKE '%"&tecnico&"'"
else
strSQL=strSQL & " WHERE tecnico LIKE '%"&tecnico&"'"
se_encuentra=True
end if
end if
if se_encuentra then
strSQL = strSQL & " ORDER BY 'difftot' desc "
se_encuentra=True
end if





' Defino el tamaño de las páginas
RS.PageSize = TamPagina
RS.CacheSize = TamPagina

' Abro el recordset
RS.Open strSQL, Conn, 1, 1

'Cuento las páginas
PaginasTotales = Rs.PageCount

'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

'Por si la consulta no devuelve registros!
if PaginasTotales = 0 then
Response.Write( "No se encontraron resultados." )
else
'Vamos a paginar
Rs.AbsolutePage = PaginaActual
Response.Write( "Pagina " & PaginaActual & " de " &PaginasTotales)
Response.Write("<br><br>")
%>
<p align="center"><font color="#000000" size="4" face="Verdana, Arial, Helvetica, sans-serif" class="T&iacute;tulo1">Resultado de la Busqueda</font><br>
</p>


<p align="center">
<font face="Bookman Old Style"><em>N&uacute;mero de registros seleccionados:</em></font> <b><%=RS.RecordCount%></b>



<table border=1 align="center" cellpadding=3 cellspacing=0 bordercolor="#000000" bgcolor="#ccccc">
<tr bordercolor="#333333">
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">csr</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">nombre cliente
</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">estado</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Fecha Ingreso</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Fecha Status</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Artefacto</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Serie</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center">
<p><strong><font face="Verdana, Arial, Helvetica, sans-serif">Tecnico Asignado </font></strong></p>
</div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Tipo Garantia</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Diferencia Status</font></strong></div></td>
<td bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Diferencia Total</font></strong></div></td>


</tr>
<%
CuantosRegistros = 0
Do while not RS.EOF and CuantosRegistros < TamPagina
i = i + 1
%>


<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("csr")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("nombre_cliente")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("estado")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("fecha_in")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("fecha_ret")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("artefacto")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("serie")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("tecnico")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("gtia")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("difes")%></small></font></div></td>
<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("difftot")%></small></font></div></td>


</tr>
<%
CuantosRegistros = CuantosRegistros + 1
RS.MoveNext
loop
%>
</table>
<%
end if

RS.Close
Conn.Close
set RS = nothing
set Conn = nothing


'Muestro los enlaces
Response.Write("<br><hr>")
if PaginaActual > 1 then
Response.Write(" <A HREF=validar.asp?tecnico="&tecnico&"&estado="&esta do&"&fecha_1="&fecha_1&"&fecha_2="&fecha_2&" &pagina="&PaginaActual-1&">10 Anteriores</A>&nbsp;&nbsp;&nbsp;")
end if
if PaginaActual < PaginasTotales then
Response.Write(" <A HREF=validar.asp?tecnico="&tecnico&"&estado="&esta do&"&fecha_1="&fecha_1&"&fecha_2="&fecha_2&"&pagin a="& PaginaActual+1 &">1 0 Siguientes</A>")
end if


%>


</body>
</html>

el codigo marcado con rojo es el que yo quiero que me cree el vinculo hacia modificar.asp

[JuanRAPerez]

tu enlace seria mas o menos asi

<a href="modificacleitne.asp?csr=<%=RS.Fields("csr")% >"><%=RS.Fields("csr")%></a>

tomando en cuenta que csr es tu id o algo asi.


suerte

[darkmcloud]

me funciono excelente compadre.....muchas gracias!!!!

[darkmcloud]

una consulta...como podria hacer para que el enlace se abra en una ventana nueva y sin botones de navegacion ni nada ???
pero conservando el mismo formato anterior......o sea que cuando muestre los resultados en pantalla los redirija al formulario para acualizar pero en un pop up??

De antemano muchas gracias

[Shiryu_Libra]

Mcloud

eso ya es una funcion javascript, como esta

function AbrirVentana(ventana)
{
window.open(ventana,"Reportes","left=25,top=25,too lbar=0,location=1,directories=0,status=1,menubar=0 ,scrollbars=1,resizable=0,copyhistory=0,width=750, height=650")
}

y lo mandarias llamar de esta forma

<%
destino="../tupaginaparapopup.asp"
%>
onClick="AbrirVentana('<%=destino%>')"

[darkmcloud]

compadre..no me resulto....lo hice asi.....:

<%destino=valactual.asp?csr=<%=RS.Fields("csr")%>" ><%=RS.Fields("csr")%>" onClick="AbrirVentana('<%=destino%>')"

y me sale el siguiente error:

Error de compilación de Microsoft VBScript (0x800A0408)
Carácter no válido
/bodega/Scripts/validar.asp, línea 211, columna 21
destino=valactual.asp?csr=<%=RS.Fields("csr")

que sera ??? porque la idea mia es que se abra el popup con la pagina donde muestro los resultados de una consulta me permita tener un vinculo que al presionar el numero del cliente me redirija a valactual.asp donde puedo modificar los datos.
cual sera mi error ???

De antemano muchas gracias

[Shiryu_Libra]

Mcloud

la funcion debes anexarla a cualquier TAG, ya sea un boton o un enlace o creada en un evento cualquiera

<a href="" onClick="AbrirVentana('<%=destino%>')">Ventana PopUp</a>
<input type="button" onClick="AbrirVentana('<%=destino%>')" value="Abrir Ventana"

incluso se lo puedes asignar a un renglo de un tabla

<tr onClick="AbrirVentana('<%=destino%>')"></tr>

ahora en la construccion de tu destino, creo que deberia ser de esta manera

<%destino="valactual.asp?csr=" & RS.Fields("csr") &" > " & RS.Fields("csr")%>

elije una opcion de las anteriores, intentalo, y si tienes errores nuevamente, ya sabes donde estamos, ok

[darkmcloud]

compadre......eleji la tercera opcion.. (porque creo que era la unica que se aplicaba a mi caso)

y lo hice asi.....:

<td><%destino="valactual.asp?csr=<%=RS.Fields("csr ")%>"><%=RS.Fields("csr")%>%></td>

y me sale :

Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/bodega/Scripts/validar.asp, línea 216, columna 41
destino="valactual.asp?csr=<%=RS.Fields("csr")

lo que quiero lograr es lo mismo que pregunte al inicio de este tema...o sea:

tengo una pagina donde registro artefactos de un servicio tecnico.....entonces para modificar los datos de un cliente se ingresa su numero de contrato y la pagina llama los datos para poder modificarlos....
bueno lo que yo quiero es que en la pagina donde muestro los resultados de una consulta me permita tener un vinculo que al presionar el numero del cliente me redirija a modificar.asp donde puedo modificar los datos.

eso mismo que JuanRAPerez me ayudo.....pero que se abra en un popup sin botones de navegacion ni nada....

De Antemano muchas gracias

PD: Lo siento por ser tan novato....pero trato de aprender lo que mas puedo y hacer mi mejor esfuerzo......

[yipiru]

Este foro puedo encontrar casi todo y ps puedo intercambiar opiniones entre otra gente ..
y otras grandes ventajas eske ahy varias ventanas por ejemplo puedo buscare cual kier tema o programas k no alle o numero de serie por ejemplo alle el Word 2003 y ps pude descarlo sin ningun problema ...
Emm... por eso les remiendo la pagina http://www.forosdelweb.com y les gustara

[Shiryu_Libra]

Mira el Error es provocado por que no construyes bien la palabra de direccion

Iniciado por darkmcloud

<td><%destino="valactual.asp?csr=<%=RS.Fields("csr ")%>"><%=RS.Fields("csr")%>%></td>

eso que esta en rojo, te provoca el error, no puedes realizarlo de esa manera por eso entonces debes cambiar eso, por:

Iniciado por Shiryu_Libra

Mcloud
<%destino="valactual.asp?csr=" & RS.Fields("csr") &" > " & RS.Fields("csr")%>

y si lo vas a agregar al TR, entonces escribelo asi

<%destino="valactual.asp?csr=" & RS.Fields("csr") &" > " & RS.Fields("csr")%>
<tr onClick="AbrirVentana('<%=destino%>')">
<td>Contenido</td>
</tr>

la palabra contenido cambiala por lo que deseas desplegar dentro del TD, ok

Iniciado por darkmcloud;

PD: Lo siento por ser tan novato....pero trato de aprender lo que mas puedo y hacer mi mejor esfuerzo......

No te preocupes, solo trata de mirar bien el codigo, eso te dira como es que debes realizar las cosas