Jump to content

  2. →
  3. →

Photo

Pessoal Me Ajudem!

Started By digital1984, 10/12/2004, 22:28

  • Faça o login para participar
3 replies to this topic

#1 digital1984

digital1984

    Normal

  • Usuários
  • 60 posts
  • Sexo:Não informado

Posted 10/12/2004, 22:28

Pessoal Primeiramente conto com a ajuda de vc´s.... olha eu estou desenvolvendo uma pagina de downloads bem básica e esta dando erro... o que eu faço para corrigir... tudo culpa do RESPONSE.WRITE..EHEHHE

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.

#2 WeeD

WeeD

    12 Horas

  • Usuários
  • 166 posts
  • Sexo:Não informado

Posted 10/12/2004, 22:35

nossa se tem coragem em colocar response.write em tudo isso ai :)
mas tipo tenta assim onde tem & dentro dos response.write.

Response.Write "&rs.fields('95')" = Response.Write " "&rs.fields('95')" " sei lá só pra ver mesmo :)
còé ?

#3 felipecm

felipecm

    Expert

  • Usuários
  • 541 posts
  • Sexo:Não informado
  • Localidade:ABC / SP

Posted 10/12/2004, 22:50

nossa se tem coragem em colocar response.write em tudo isso ai :)
mas tipo tenta assim onde tem & dentro dos response.write.

Response.Write "&rs.fields('95')" = Response.Write " "&rs.fields('95')" " sei lá só pra ver mesmo :)

Bom, vamos lá.. eu não acho q seja incorreta a forma de vc trabalhar com response.write.. isso depende de sua programação se vc sentir-se mais confortável fazendo uso disso, então é absolutamente válido. Eu até acho mais proveitoso trabalhar dessa forma afim de não misturar html com asp .. e ficar aquelle codigo todo espalhado.. bom eh isso.. fields é a propriedade padrão do objeto recordset, então não se faz necessário informar ele.. e as aspas do campo do recordset, são aspas duplas.. e outra coisa.. um campo , uma variavel.. não se poe em aspas dentro do response.write pois senaum o response interpreta o valor como string e não como deve ser.. Bom tah ai:

<%

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

%>

Como eu vi q vc teve dificuldades pra entender essa parte, vou explicar melhor.. com um exemplo:
Response.Write "<td>" & rs("campo") & "</td>"

Edição feita por: hdz*, 10/12/2004, 22:51.

MCAD, MCP

#4 digital1984

digital1984

    Normal

  • Usuários
  • 60 posts
  • Sexo:Não informado

Posted 11/12/2004, 08:47

VALEW... GALERA PELA SUPER AJUDA!

É que eu to começando agora e estou encontrando muita dificuldade... pois estou aprendendo...é tah fogo um cadim para entender algumas partes..blz

Mas Agradeço a Todos Aqui que puderam me ajudar..blz

Flow
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq