Para visualizarem o Erro que esta dando Clique Aqui
<% Set CX = Server.CreateObject("ADODB.connection") CX.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("portal.mdb") Set rs = CX.Execute("Select * from portal") Response.Write "<P><TABLE cellSpacing=0 cellPadding=0 width='100%' border=0>" Response.Write "<TR align=middle bgColor=#f8f8f8>" Response.Write "<TD class=down colSpan=2>" Response.Write "<TABLE cellSpacing=3 cellPadding=0 width=410 border=0>" Response.Write "<FORM name=form1 action=pesquisa.asp method=get>" Response.Write "<TR>" Response.Write "<TD><SELECT class=verd10 name=order><OPTION value=none selected>Sem Ordem</OPTION> <OPTION value=data>Data</OPTION>" Response.Write "<OPTION value=down>Downloads</OPTION> <OPTION value=nome>Nome</OPTION>" Response.Write "<OPTION value=tam>Tamanho</OPTION></SELECT></TD>" Response.Write "<TD><SELECT class=verd10 name=sistema> <OPTION value=all selected>Todos os Sistemas</OPTION>" Response.Write "<OPTION value=95>Windows 95</OPTION><OPTION value=98>Windows 98</OPTION> <OPTION value=Me>Windows Me</OPTION> <OPTION value=XP>Windows XP</OPTION><OPTION value=NT>Windows NT</OPTION> <OPTION value=2000>Windows 2000</OPTION></SELECT></TD>" Response.Write "<TD><SELECT class=verd10 name=licenprog> <OPTION value="" selected>Todas as Licenças</OPTION> <OPTION value=1>Demo</OPTION><OPTION value=2>Freeware</OPTION> <OPTION value=3>Shareware</OPTION></SELECT></TD>" Response.Write "<TD align=right><INPUT class=verd10 type=submit value=ok name=Submit>" Response.Write "<INPUT id=nome type=hidden value=codigo name=nome></TD></TR></FORM></TABLE></TD></TR>" Response.Write "<TR bgColor=#666666>" Response.Write "<TD colSpan=2 height=1><IMG height=1 src='logo.gif' width=1></TD></TR>" Response.Write "<TR bgColor=#eeeeee>" Response.Write "<TD class=down colSpan=2 height=25>" Response.Write "<TABLE class=v2 cellSpacing=0 cellPadding=2 width='100%' border=0>" Response.Write "<TR>" Response.Write "<TD width=310><font face='arial' size='2'><B>Nome</B></font></TD>" Response.Write "<TD class=v2 align=left width=80><font face='arial' size='2'><B>Data</font></B></TD>" Response.Write "<TD class=v2 align=middle width=80><font face='arial' size='2'><B>Licença</font></B></TD>" Response.Write "<TD class=v2 align=middle width=80><font face='arial' size='2'><B>Tamanho</font></B></TD>" Response.Write "<TD class=v2 align=right width=80><font face='arial' size='2'><B>Downloads</font></B></TD></TR></TABLE></TD></TR>" Response.Write "<TR bgColor=#339900>" Response.Write "<TD class=down colSpan=2 height=1></TD></TR></TABLE></font></P>" Do While Not Rs.EOF Response.Write "<TABLE class=v10 cellSpacing=0 cellPadding=2 width='100%' border=0>" Response.Write "<TR>" Response.Write "<TD vAlign=top width=310 rowSpan=2><b><A href='http://baixaki.ig.com.br/site/detail5690.htm'><B><FONT face='arial' size=2>" Response.Write "&rs.fields('software')" Response.Write "</FONT>" Response.Write "</B></A><FONT face='arial' size=2><BR>" Response.Write "&rs.fields('PequenaDescricao')" Response.Write "</FONT>" Response.Write "</TD>" Response.Write "<TD class=v11 align=left width=80><FONT face='arial' size=2>" Response.Write "&rs.fields('datacadastro')" Response.Write "</FONT></TD>" Response.Write "<TD class=v2 align=middle width=80><B><FONT color=#006600 face='arial' size=2>" Response.Write "&rs.fields('licenca')" Response.Write "/FONT></B></TD>" Response.Write "<TD class=v11 align=middle width=80><FONT size=2><FONT face='arial'>" Response.Write "&rs.fields('TamanhoemMb')" Response.Write "</FONT></FONT></FONT></TD>" Response.Write "<TD class=v11 align=right width=80><FONT face='arial' size=2>Cliques</FONT></TD></TR>" Response.Write "<TR>" Response.Write "<TD class=v11 align=left colSpan=4><FONT size=2><FONT face='arial'><FONT color=#000000>" Response.Write "&rs.fields('95')" Response.Write "|" Response.Write "&rs.fields('98')" Response.Write "|" Response.Write "&rs.fields('me')" Response.Write "|" Response.Write "&rs.fields('2000')" Response.Write "|" Response.Write "&rs.fields('2003')" Response.Write "|" Response.Write "&rs.fields('xp')" Response.Write "</FONT></FONT></FONT></TD></TR>" Response.Write "<TR>" Response.Write "<TD vAlign=top colSpan=5 height=5><DIV id=linha><hr></DIV></TD></TR></TABLE>" Rs.MoveNext Loop %>
Espero que vc´s me Ajudem Pelo Amor de Deus... é que eu estou começando agora mexer com ASP....
O LINK PARA O BANCO DE DADOS É ESSE -Clique Aqui
Mwe AJUDEM ... fico no Aguardo ..
Até
Ass..
Danilo
Edição feita por: digital1984, 10/12/2004, 22:29.