les dejo un codigo de regalo para los pricipiantes
Publicado por arcenett (20 intervenciones) el 15/12/2005 13:14:44
este es un regalito al foro , el codigo de abajo tiene de todo asi que puede servir a mas de alguna persona en apuros.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<script language=javascript>
function ventanaSecundaria (URL){
window.open(URL,"ventana1","width=600,height=300,scrollbars=NO")
}
</script>
<head>
<%' Response.ContentType = "application/vnd.ms-excel"%>
<title>Resultado.asp</title>
</head>
<table align="center">
<tr><td>
<object align="texttop" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="550" height="137">
<param name="movie" value="flash/Flash_latinpanel.swf" />
<param name="quality" value="high" />
<embed src="flash/Flash_latinpanel.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="550" height="137"></embed>
</object>
</td></tr>
</table>
<table>
<tr><td><strong> <u>Descarga esta tabla en Excel</u></strong></td>
</tr>
</table>
<table>
<tr><td>
<META HTTP-EQUIV="refresh" CONTENT="10">
<body background="imagenes/fondo.jpg" >
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="22">
<param name="movie" value="botones%20flash/descarga.swf">
<param name="quality" value="high">
<param name="bgcolor" value="#FFFFFF">
<embed src="botones%20flash/descarga.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="22" bgcolor="#FFFFFF"></embed>
</object>
</td>
<td>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="103" height="22">
<param name="movie" value="botones%20flash/descarga2.swf">
<param name="quality" value="high">
<param name="bgcolor" value="#FFFFFF">
<embed src="botones%20flash/descarga2.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="103" height="22" bgcolor="#FFFFFF"></embed>
</object>
</td>
</tr>
</table>
<br>
<br>
<br>
<%
Dim nomuser,matris,resp_num,desc_motivo,rechazado,i,vector(),micadena,sbusca,scambia
nomuser=session("nomuser")
function llena
Dim Conex,rs,SQL,vector()
Set Conex = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
Conex.Mode = adModeReadWrite
Conex.Open "PROVIDER=SQLOLEDB;DATA SOURCE=xxx;UID=sa;PWD=xxx;DATABASE=xxx"
if session("sesion")=true then
SQL="select registro,hogar,entrevistador,categoria,ncategoria,marca,atributo,contiene,contenido,cantidad," &_
"precio,localcompra,diacompra,motivo,desc_motivo,fecha,operador,name_myc,"&_
"respuesta,name_campo,respuestas,rechazado from LCNREQ_VERIFICACION where entrevistador = '"&nomuser&"' and flag_activo=1;"
SQL2 ="select count(registro)as total from LCNREQ_VERIFICACION where entrevistador = '"&nomuser&"' and flag_activo=1;"
'Ejecutamos consulta
set rs=Conex.Execute(SQL)
set rs2=Conex.Execute(SQL2)
response.Write("<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center><TR><TD><b> Registro</b></TD><TD><b> Hogar </b></TD>")
response.Write("<TD><b> Categoria </b></TD><TD><b> N_categoria </b></TD><TD><b> Marca </b></TD>")
response.Write("<TD><b> Atributo </b></TD><TD><b> Contiene </b></TD>")
response.Write("<TD><b> Contenido </b></TD><TD><b> Cantidad </b></TD>")
response.Write("<TD><b> Precio </b></TD><TD><b> Local Compra </b></TD>")
response.Write("<TD><b> Dia Compra </b></TD>")
response.Write("<TD><b> Motivo </b></TD><TD><b> Fecha </b></TD>")
response.Write("<TD><b> Operador MyC </b></TD>")
response.Write("<TD><b> Respuesta </b></TD><TD><b> Operador Campo </b></TD>")
response.Write("<TD><b> Respuestas </b></TD><TD><b> Rechazado </b></TD>")
response.Write("<TD><b> Registro </b></TD></tr>")
i=rs2("total")
redim vector(i)
rs.movefirst
i=0
while (not rs.Eof)
vector(i)=rs("desc_motivo")
motivo=vector(i)
sbusca="&"
scambia="_"
micadena=Replace(motivo,sbusca,scambia)
reg=server.URLEncode(rs("registro"))
resp_num=server.URLEncode(rs("respuestas"))
rechazado=server.URLEncode(rs("rechazado"))
entrevistador=server.URLEncode(rs("entrevistador"))
local_compra=server.URLEncode(rs("localcompra"))
categoria=server.URLEncode(rs("ncategoria"))
precio=server.URLEncode(rs("precio"))
marca=server.URLEncode(rs("marca"))
%>
<tr><td align=center><a href="javascript:ventanaSecundaria('reg_datos.asp?reg=<%=reg%>&marca=<%=marca%>&precio=<%=precio%>&categoria=<%=categoria%>&local=<%=local_compra%>&entrevistador=<%=entrevistador%>&resp_num=<%=resp_num%>&rechazado=<%=rechazado%>&desc_motivo=<%=micadena%>')"> <%=rs("registro")%></a></td>
<%
Response.Write("<td> " & rs("hogar") & " </td>")
response.Write("<td> " & rs("categoria") & " </td><td> " & rs("ncategoria") & " </td>")
response.Write("<td> " & rs("marca") & " </td><td> " & rs("atributo") & " </td>")
response.Write("<td> " & rs("contiene") & " </td><td> " & rs("contenido") & " </td>")
response.Write("<td> " & rs("cantidad") & " </td><td> " & rs("precio") & " </td>")
response.Write("<td> " & rs("localcompra") & " </td><td> " & rs("diacompra") & " </td>")
response.Write("<td> " & rs("desc_motivo") & " </td>")
response.Write("<td> " & rs("fecha") & " </td>")
response.Write("<td> " & rs("name_myc") & " </td><td> " & rs("respuesta") & " </td>")
response.Write("<td> " & rs("name_campo") & " </td><td> " & rs("respuestas") & " </td>")
response.Write("<td> " & rs("rechazado") & " </td>")
%>
<td align=center><a href="javascript:ventanaSecundaria('reg_datos.asp?reg=<%=reg%>&marca=<%=marca%>&precio=<%=precio%>&categoria=<%=categoria%>&local=<%=local_compra%>&entrevistador=<%=entrevistador%>&resp_num=<%=resp_num%>&rechazado=<%=rechazado%>&desc_motivo=<%=micadena%>')"> <%=rs("registro")%></a></td></tr>
<%
rs.MoveNext
i=i+1
wend
response.Write(" </table>")
conex.Close
set rs = nothing
set rs2 = nothing
set conex = nothing
end if
end function
%>
<META HTTP-EQUIV="refresh" CONTENT="120">
<%
if session("sesion")=false then
response.Write("<table align=center><h1>No ha entrado con permisos a esta pagina</h1></table>")
%>
<META HTTP-EQUIV='Refresh' CONTENT=3;URL='registro.asp'>
<%
else
call llena()
end if
%>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<script language=javascript>
function ventanaSecundaria (URL){
window.open(URL,"ventana1","width=600,height=300,scrollbars=NO")
}
</script>
<head>
<%' Response.ContentType = "application/vnd.ms-excel"%>
<title>Resultado.asp</title>
</head>
<table align="center">
<tr><td>
<object align="texttop" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="550" height="137">
<param name="movie" value="flash/Flash_latinpanel.swf" />
<param name="quality" value="high" />
<embed src="flash/Flash_latinpanel.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="550" height="137"></embed>
</object>
</td></tr>
</table>
<table>
<tr><td><strong> <u>Descarga esta tabla en Excel</u></strong></td>
</tr>
</table>
<table>
<tr><td>
<META HTTP-EQUIV="refresh" CONTENT="10">
<body background="imagenes/fondo.jpg" >
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="100" height="22">
<param name="movie" value="botones%20flash/descarga.swf">
<param name="quality" value="high">
<param name="bgcolor" value="#FFFFFF">
<embed src="botones%20flash/descarga.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="100" height="22" bgcolor="#FFFFFF"></embed>
</object>
</td>
<td>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="103" height="22">
<param name="movie" value="botones%20flash/descarga2.swf">
<param name="quality" value="high">
<param name="bgcolor" value="#FFFFFF">
<embed src="botones%20flash/descarga2.swf" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="103" height="22" bgcolor="#FFFFFF"></embed>
</object>
</td>
</tr>
</table>
<br>
<br>
<br>
<%
Dim nomuser,matris,resp_num,desc_motivo,rechazado,i,vector(),micadena,sbusca,scambia
nomuser=session("nomuser")
function llena
Dim Conex,rs,SQL,vector()
Set Conex = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
Conex.Mode = adModeReadWrite
Conex.Open "PROVIDER=SQLOLEDB;DATA SOURCE=xxx;UID=sa;PWD=xxx;DATABASE=xxx"
if session("sesion")=true then
SQL="select registro,hogar,entrevistador,categoria,ncategoria,marca,atributo,contiene,contenido,cantidad," &_
"precio,localcompra,diacompra,motivo,desc_motivo,fecha,operador,name_myc,"&_
"respuesta,name_campo,respuestas,rechazado from LCNREQ_VERIFICACION where entrevistador = '"&nomuser&"' and flag_activo=1;"
SQL2 ="select count(registro)as total from LCNREQ_VERIFICACION where entrevistador = '"&nomuser&"' and flag_activo=1;"
'Ejecutamos consulta
set rs=Conex.Execute(SQL)
set rs2=Conex.Execute(SQL2)
response.Write("<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center><TR><TD><b> Registro</b></TD><TD><b> Hogar </b></TD>")
response.Write("<TD><b> Categoria </b></TD><TD><b> N_categoria </b></TD><TD><b> Marca </b></TD>")
response.Write("<TD><b> Atributo </b></TD><TD><b> Contiene </b></TD>")
response.Write("<TD><b> Contenido </b></TD><TD><b> Cantidad </b></TD>")
response.Write("<TD><b> Precio </b></TD><TD><b> Local Compra </b></TD>")
response.Write("<TD><b> Dia Compra </b></TD>")
response.Write("<TD><b> Motivo </b></TD><TD><b> Fecha </b></TD>")
response.Write("<TD><b> Operador MyC </b></TD>")
response.Write("<TD><b> Respuesta </b></TD><TD><b> Operador Campo </b></TD>")
response.Write("<TD><b> Respuestas </b></TD><TD><b> Rechazado </b></TD>")
response.Write("<TD><b> Registro </b></TD></tr>")
i=rs2("total")
redim vector(i)
rs.movefirst
i=0
while (not rs.Eof)
vector(i)=rs("desc_motivo")
motivo=vector(i)
sbusca="&"
scambia="_"
micadena=Replace(motivo,sbusca,scambia)
reg=server.URLEncode(rs("registro"))
resp_num=server.URLEncode(rs("respuestas"))
rechazado=server.URLEncode(rs("rechazado"))
entrevistador=server.URLEncode(rs("entrevistador"))
local_compra=server.URLEncode(rs("localcompra"))
categoria=server.URLEncode(rs("ncategoria"))
precio=server.URLEncode(rs("precio"))
marca=server.URLEncode(rs("marca"))
%>
<tr><td align=center><a href="javascript:ventanaSecundaria('reg_datos.asp?reg=<%=reg%>&marca=<%=marca%>&precio=<%=precio%>&categoria=<%=categoria%>&local=<%=local_compra%>&entrevistador=<%=entrevistador%>&resp_num=<%=resp_num%>&rechazado=<%=rechazado%>&desc_motivo=<%=micadena%>')"> <%=rs("registro")%></a></td>
<%
Response.Write("<td> " & rs("hogar") & " </td>")
response.Write("<td> " & rs("categoria") & " </td><td> " & rs("ncategoria") & " </td>")
response.Write("<td> " & rs("marca") & " </td><td> " & rs("atributo") & " </td>")
response.Write("<td> " & rs("contiene") & " </td><td> " & rs("contenido") & " </td>")
response.Write("<td> " & rs("cantidad") & " </td><td> " & rs("precio") & " </td>")
response.Write("<td> " & rs("localcompra") & " </td><td> " & rs("diacompra") & " </td>")
response.Write("<td> " & rs("desc_motivo") & " </td>")
response.Write("<td> " & rs("fecha") & " </td>")
response.Write("<td> " & rs("name_myc") & " </td><td> " & rs("respuesta") & " </td>")
response.Write("<td> " & rs("name_campo") & " </td><td> " & rs("respuestas") & " </td>")
response.Write("<td> " & rs("rechazado") & " </td>")
%>
<td align=center><a href="javascript:ventanaSecundaria('reg_datos.asp?reg=<%=reg%>&marca=<%=marca%>&precio=<%=precio%>&categoria=<%=categoria%>&local=<%=local_compra%>&entrevistador=<%=entrevistador%>&resp_num=<%=resp_num%>&rechazado=<%=rechazado%>&desc_motivo=<%=micadena%>')"> <%=rs("registro")%></a></td></tr>
<%
rs.MoveNext
i=i+1
wend
response.Write(" </table>")
conex.Close
set rs = nothing
set rs2 = nothing
set conex = nothing
end if
end function
%>
<META HTTP-EQUIV="refresh" CONTENT="120">
<%
if session("sesion")=false then
response.Write("<table align=center><h1>No ha entrado con permisos a esta pagina</h1></table>")
%>
<META HTTP-EQUIV='Refresh' CONTENT=3;URL='registro.asp'>
<%
else
call llena()
end if
%>
</body>
</html>
Valora esta pregunta
0