Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lucastroy

erro com if...

Recommended Posts

AE GENTE,NEM TO ACREDITANDO, MAS ESTOU COM UM ERRO NUM IF Q EU NÃO TO ENTENDENDO...O ERRO É ESSE:Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0400)Instrução esperada/MEUBAZAR/produtos.ASP, line 58End IfO CÓDIGO É ESSE:<%usuario = request.querystring("usuario")id = "1"imgpequena = "teste.jpg"titulo = "lucas"data = "03/05/1985"'conexão com o banco de dados bancoend = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco/banco.mdb") Set con = Server.CreateObject("ADODB.Connection") con.open bancoend 'criando sqlsql = "SELECT * FROM produtos WHERE usuario = '"& usuario &"' ORDER BY data DESC"'estabelecendo conexãoSet rsFotos = Server.CreateObject("ADODB.Recordset")rsFotos.CursorType = 3rsFotos.CursorLocation = 3rsFotos.LockType = 3rsFotos.PageSize = 5rsFotos.Open sql, conIf rsFotos.EOF ThenResponse.Write "Nenhum usuario encontrado !!"ElseResponse.Write "<div align=""center"">"Resposne.write "<table border=0 cellpadding=5 cellspacing=0 width=""100%"">"contar = 0Do while not rsFotos.eof If contar = 2 Then Response.Write "<tr>"End If If contar <> 2 Then Response.Write "<TR>"End If If RsFotos.eof then exit doResponse.Write "<td><table bgcolor=""#F4F4F4"" border=0 cellpadding=1 width=100% height=1>" Response.write "<tr><td width=8% height=1>" Response.write "<a target=_blank href=""http://www.agotour.com.br/album/verfoto.asp?foto="&id&""">"Response.write'>http://www.agotour.com.br/album/verfoto.asp?foto="&id&""">"Response.write "<img width=60 height=60 border=1 color=#000000 src="& imgpequena &"></a></td>" Response.write "<td width=92% valign=top height=1><table border=0 cellpadding=0 width=100% height=14>" Response.write "</tr><tr><td width=100% height=14><font size=1 face=Verdana>"& titulo &"</font></td>" Response.write "</tr><tr><td width=100% height=14><font size=1 face=Verdana><b> " & data & "</b>"Response.write "</font></td></tr></table></td></tr></table>"contar = contar +1 rsFotos.MoveNextIf RsFotos.eof then exit doResponse.Write "<td><table bgcolor=""#F4F4F4"" border=0 cellpadding=1 width=100% height=1><tr>" Response.Write "<td width=8% height=1>" Response.Write "<a target=_blank href=""http://www.agotour.com.br/album/verfoto.asp?foto="&id&""">" Response.Write "<img width=60 height=60 border=1 color=#000000 src="& imgpequena &"></a></td>" Response.Write "<td width=92% valign=top height=1><table border=0 cellpadding=0 width=100% height=14></tr><tr>" Response.Write "<td width=100% height=14><font size=1 face=Verdana>"& titulo &"</font></td></tr><tr>" Response.Write "<td width=100% height=14><font size=1 face=Verdana><b> " & data & "</b></font></td></tr></table>"Response.Write "</td></tr></table>" contar = contar + 1rsFotos.MoveNextLoopResponse.Write "</tr></table></div>"End ifEnd ifEnd If%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

eu já havia tentado antes.... eu em...to achando q meu pc ta com problema..só pode.. pq aparentemente ta tudo ok..

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.