Necesito que me ayuden con esta pagina pues al abrirla queda en blanco. supongo que es algo de html pero ya no lo veo.
Código:
<% Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ= " & Server.MapPath("DB/INDEX.mdb") ssql = "Select * from USUARIOS where ID = " & Session("ID") Set RS=Conn.Execute(ssql) ssql = "Select * from CATEGORIA ORDER BY NOMCAT ASC" Set RS1=Conn.Execute(ssql) %> <% productos_Sql = "Select * from formadepago " set rs2 = CreateObject("ADODB.Recordset") rs2.Open productos_Sql, Conn %> <html> <head> <meta http-equiv="Content-Language" content="es"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>.::VENDA MAS POR MENOS::.</title> <script language = "JavaScript"> <% x=0 %> function sublist(inform, selecteditem) { inform.subcatagory.length = 0 <% count= 0 y=0 do while not rs2.eof %> x = <%= trim(y) %>; subcat = new Array(); subcatagorys = "<%=(rs2("pago"))&" $ "&(rs2("precio")) %>"; subcatagoryof = "<%=(rs2("idcat"))%>"; subcatagoryid = "<%=(rs2("codigo"))%>"; subcat[x,0] = subcatagorys; subcat[x,1] = subcatagoryof; subcat[x,2] = subcatagoryid; if (subcat[x,1] == selecteditem) { var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]); inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>; } <% count = count + 1 y = y + 1 rs2.movenext loop %> } </script> </head> <BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0" link="#FCCA03" vlink="#FCCA03" alink="#FCCA03" style="font-family: Verdana; font-size: 10pt" text="#66CCFF" bgcolor="#000000"> <SCRIPT language=JavaScript src="" type=text/javascript></SCRIPT> <SCRIPT type=text/JavaScript><!-- function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </SCRIPT> <div align="center"> </div> <div align="center"> <!--#include file="top.asp"--> <TABLE cellSpacing=0 cellPadding=0 width=775 border=0 id="table23"> <TBODY> <TR> <TD vAlign=top align=middle width=174> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 id="table24" height="470" background="imgsit/img4.jpg"> <TBODY> <tr> <TD height="55"><IMG height=55 src="imgsit/titulo_categorias.gif" width=174></TD> </tr> <tr> <TD height="245" valign="top"><!--#include file="categorias.asp"--></TD> </tr> <TD width=174 height=52 bgcolor="#EFEFF7"> table border="0" width="100%" id="table32" cellspacing="0" cellpadding="0"> <tr> <td> <img border="0" src="imgsit/newsletters.jpg" width="174" height="52"></td> </tr> <form action="news.asp" method="post"> <tr> <td> <input type="hidden" value="<%=date()& " " & time() %>" name="FH"> <INPUT class=iNews maxLength=50 size=15 name=email><input border="0" src="imgsit/btn_enviar.jpg" name="I2" width="57" height="20" type="image"></td> </tr> </table> </TD> <TR> <TD height="41"> <img border="0" src="imgsit/publicite.gif" width="160" height="56"></TD></TR> <TR> </form> <TD height="25"> <p align="center"><b><font size="2" color="#00FF00">Visitas</font><font color="#00FF00" size="2"> </font></b><font size="2"><b><font color="#00FF00"> <a href="http://www.contadorgratis.es/"> <img src="http://www.contadorgratis.es/count.php?juanrafaela" border="0" alt="ContadorGratis"></a></font></b></TD></TR></TBODY></TABLE><BR><BR></TD> <TD vAlign=top align=middle width="431"> <div align="center"> <table border="1" width="80%" id="table33" cellpadding="0" bgcolor="#333333" style="border-collapse: collapse" bordercolor="#C0C0C0" height="513"> <tr> <td colspan="4" height="39"> <p align="center"> <img border="0" src="imgsit/titulo_registro_aviso.gif" width="408" height="39"></td> </tr> <Form action="altaaviso1.asp" method="post"> <input type="hidden" name="IDUSER" value="<%=RS("ID")%>"> <tr> <td width="35%" colspan="3" height="20"><font size="2">Nombre y Apellido:</font></td> <td width="65%" height="20"> <INPUT class=iNews id=rEmail maxLength=50 size=29 name=NOM value="<%=RS("NOM")%>" style="font-size: 8pt; font-family: Verdana"></td> </tr> <tr> <td width="35%" colspan="3" height="20"><font size="2">DNI: </font></td> <td width="65%" height="20"> <INPUT class=iNews id=rEmail0 maxLength=50 size=29 name=DNI value="<%=RS("DNI")%>" style="font-size: 8pt; font-family: Verdana"></td> </tr> <tr> <td width="35%" colspan="3" height="20"><font size="2">FechaActual:</font></td> <td width="65%" height="20"> <INPUT class=iNews id=rEmail1 maxLength=50 readonly="yes" size=29 name=FH value="<%=date()& " " & time() %>" style="font-size: 8pt; font-family: Verdana"></td> </tr> <tr> <td width="35%" colspan="3" height="20"><font size="2">Artículo</font></td> <td width="65%" height="20"> <INPUT class=iNews id=rEmail2 maxLength=50 size=29 name=ART style="font-size: 8pt; font-family: Verdana"></td> </tr> <tr> <td width="29%" height="20"><font size="2">Precio</font></td> <td width="6%" height="20" colspan="2"><font size="2">$:</font></td> <td width="65%" height="20"> <INPUT class=iNews id=rEmail3 maxLength=50 size=29 name=PRE style="font-size: 9pt; font-family: Verdana"></td> </tr> <tr> <td width="29%" height="22"><font size="2">Categoría</font></td> <td width="6%" height="22" colspan="2"> </td> <td width="65%" height="22"> <select size="1" id="cat" name="cat" onChange = "javascript:sublist(this.form, cat.value);"> <option selected>Seleccione</option> <%Ssql = "Select * from categoria" Set rs3=Conn.Execute(Ssql) do while not rs3.eof %> <option value="<%=rs3("idcat")%>"><%=rs3("nomcat")%></option> <%rs3.movenext loop set rs3=nothing %> </select> </td> </tr> <tr> <td width="29%" height="22"><font size="2">Forma de Pago</font></td> <td width="6%" height="22" colspan="2"> </td> <td width="65%" height="22"> <SELECT id="subcatagory" name="subcatagory" size="1" style="font-size: 9pt; font-family: verdana"> <Option selected value="none"></option> </SELECT></td> </tr> <tr> <td width="100%" colspan="4" height="31" bgcolor="#46402B"> <p align="center"><b><font size="2">Borre los datos que no quiera mostrar.</font></b></td> </tr> <tr> <td width="50%" colspan="2" height="28" bgcolor="#46402B"> <b><font size="2">Teléfono : </font></b></td> <td width="50%" colspan="2" height="28" bgcolor="#46402B"> <INPUT class=iNews id=rEmail4 maxLength=50 size=24 name=VERTL style="font-family: Verdana; font-weight:700" value="<%=RS("TEL")%>"></td> </tr> <tr> <td width="50%" colspan="2" height="29" bgcolor="#46402B"> <b><font size="2">E-mail : </font> </b></td> <td width="50%" colspan="2" height="29" bgcolor="#46402B"> <INPUT class=iNews id=rEmail5 maxLength=50 size=24 name=VEREMAIL style="font-family: Verdana; font-weight:700" value="<%=RS("EMAIL")%>"></td> </tr> <tr> <td width="50%" colspan="2" height="29" bgcolor="#46402B"> <b><font size="2">Domicilio : </font></b></td> <td width="50%" colspan="2" height="29" bgcolor="#46402B"> <INPUT class=iNews id=rEmail6 maxLength=50 size=24 name=VERDOM style="font-family: Verdana; font-weight:700" value="<%=RS("DOM")%>"></td> </tr> <tr> <td width="100%" colspan="4" valign="top" height="179"><font size="2"> Descripción:</font><p align="center"> <textarea rows="10" name="DES" cols="63" style="font-family: Verdana; font-size: 9pt"></textarea></td> </tr> <tr> <td width="100%" colspan="4" valign="top" height="1"> <input type="hidden" value="[email protected]" name="usuario" size="20"> <input type="hidden" value="<%=RS("EMAIL")%>" name="destinatario" size="20"> <input type="hidden" value="<%=RS("DOM")%>" name="DOM"> <input type="hidden" value="<%=RS("LOC")%>" name="LOC"> <input type="hidden" value="<%=RS("PRO")%>" name="PRO"> <input type="hidden" value="<%=RS("PAIS")%>" name="PAIS"> <input type="hidden" value="<%=RS("EMAIL")%>" name="EMAIL"> <input type="hidden" value="<%=RS("TEL")%>" name="TEL"> <input type="hidden" value="NO" name="INI"> <input type="hidden" value="0" name="UBI"> <input type="hidden" value="NO" name="VEN"> </td> </tr> <tr> <td width="100%" colspan="4" valign="top" height="23"> <p align="center"> <input type="submit" value="Enviar" name="B1" style="font-family: Verdana; font-size: 8pt; text-transform: uppercase; color: #000080; border-style: solid; border-width: 2px; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; background-color: #EFEFF7"></td> </tr> </Form> </table> <TABLE cellPadding=0 width="422" border=0 id="table29"> <tr> <td></td> </tr> </TABLE> </div> </TD> <TD vAlign=top align=middle width=170> <TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0 id="table31"> <TBODY> <TR> <TD vAlign=center align=middle height=5><IMG height=5 src="imgsit/1x1.gif" width=1><A href="contacto.asp?motivo=Publicidad"><IMG height=56 src="imgsit/publicite.gif" width=160 border=0></A></TD></TR> <TR> <TD vAlign=center align=middle width=155 height=22> </TD></TR> <TR> <TD vAlign=center align=middle width=155 height=22> </TD></TR> <TR> <TD vAlign=center align=middle width=155 height=22> </TD></TR></TBODY></TABLE><BR></TD></TR> <TR> <TD colSpan=3> <p align="center"><!--#include file="irafaela.asp" --></TD></TR></TBODY></TABLE> </div> <p align="center"> </p> </body> </html>