Foros del Web - Ver Mensaje Individual

JJF · #1 (**permalink**) 10/10/2008, 07:06

Hola, me volvi loco buscando y ya no encuentro nada ....ajajaja
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">
&nbsp;<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">&nbsp;</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">&nbsp;</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 :&nbsp;&nbsp;&nbsp;&nbsp; </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>&nbsp;</TD></TR>
              <TR>
                <TD vAlign=center align=middle width=155 
height=22>&nbsp;</TD></TR>
              <TR>
                <TD vAlign=center align=middle width=155 
              height=22>&nbsp;</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">&nbsp; 
</p>


</body>

</html>