Sanches-Pg

Putz... foi mal...

Desculpe por te torrar a pasciencia..

Se termino com Wend ou com loop da erro o que está faltando?




Final Wend

Erro de compilação do Microsoft VBScript erro '800a0400'

Instrução esperada

/teste/xp/injetoras1.asp, line 190

Wend
^

------------

Final Loop
Erro de compilação do Microsoft VBScript erro '800a03f6'

'End' esperado

/teste/xp/injetoras1.asp, line 190

Oi Renan,

Creio que acertei,

Mas apareceu um outro erro que não conheço

Objeto Response erro 'ASP 0251 : 80004005'

Limite do Buffer de Resposta Ultrapassado

/teste/xp/injetoras1.asp, line 0

A execução da página ASP fez com que o Buffer de Resposta ultrapassasse seu limite configurado.


Este é o codigo

<%
			Set nt1 = Server.CreateObject("ADODB.Recordset")
			nt1.Open "SELECT * from xp order by id asc", DB
			
			Do While not nt1.EOF
				  if cont=0 Then
				  Response.Write "<tr>"
				  End if
				  Response.Write "<td>"
				Codigo = nt1("Codigo")
				Nome = nt1("Nome")
				Classe1 = nt1("Classe1")
				Classe = nt1("Classe")
				Data = nt1("Data")
				Horas = nt1("Horas")
				id = nt1("id")
				if Classe1 = "INJETORAS" Then
				%>
				  <table width="473" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td width="10%" height="75" rowspan="2" align="left" valign="middle"><img src="<%=nt1("mini1")%>" width="84" height="63" border="0" /></td>
						<td width="90%" height="25" align="left" valign="bottom" class="fonte12_005100-bold">
						  
<%Response.Write Codigo%>
-
<%Response.Write Nome%>						</td>
					  </tr>
					  <tr>
						<td height="55" align="left" valign="middle"><a href='ct-materias.asp?materias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>' class="fonte12_000000-normal">
						  <%Response.Write Descricao%>
						</a></td>
					  </tr>
					  <tr>
						<td colspan="2"><img src="images/detalhes/traco2.gif" width="415" height="1" /></td>
					  </tr>
					</table>
				  <%
				  Do
				  Response.Write "</td>"
				  cont=cont+1
				  if cont=2 Then ' Definimos a Quantidade de colunas
				  Response.Write "</tr>"
				  cont=0
				  End if
				  nt1.MoveNext
				  Loop
				  End if
				  Loop
				  %>

O que tem de errado?

Oi Renan,

Tudo bem?

O codigo ele começa com Do, eu add o que pediu mas não consegui veja meu o codigo vou add ele do jeito que pediu

<%
			Set nt1 = Server.CreateObject("ADODB.Recordset")
			nt1.Open "SELECT * from xp order by id asc", DB
			
			Do While not nt1.EOF
				  If cont=0 Then
				  Response.Write "<tr>"
				  End If
				  Response.Write "<td>"
				Codigo = nt1("Codigo")
				Produto = nt1("Produto")
				Classe1 = nt1("Classe1")
				Classe = nt1("Classe")
				Data = nt1("Data")
				Horas = nt1("Horas")
				id = nt1("id")
				if Classe1 = "INJETORAS" Then
				%>
				  <table width="473" border="0" cellspacing="0" cellpadding="0">
					  <tr>
						<td width="10%" height="75" rowspan="2" align="left" valign="middle"><img src="<%=nt1("mini1")%>" width="84" height="63" border="0" /></td>
						<td width="90%" height="25" align="left" valign="bottom" class="fonte12_005100-bold">
						  <%Response.Write Codigo%>
-
<%Response.Write Produto%>						</td>
					  </tr>
					  <tr>
						<td height="55" align="left" valign="middle"><a href='ct-materias.asp?materias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>' class="fonte12_000000-normal">
						  <%Response.Write Descricao%>
						</a></td>
					  </tr>
					  <tr>
						<td colspan="2"><img src="images/detalhes/traco2.gif" width="415" height="1" /></td>
					  </tr>
					</table>
				  <%
				  Response.Write "</td>"
				  cont=cont+1
				  If cont=2 Then ' Definimos a Quantidade de colunas
				  Response.Write "</tr>"
				  cont=0
				  End If
				  nt1.MoveNext
				  Loop
				  %>