Seguinte, essa programação roda perfeitamente no meu micro com WinXP. Mas qdo coloco no servidor os campos Email, Cidade e Data naum exibem.
Os codigos em azul sao os q naum exibem.
Isso já aconteceu com alguém? O q pode estar acontecendo?
Valew!!
A página é essaCLIQUE AQUI
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open Application("db")
SQL = "SELECT * FROM Visitas ORDER BY Id DESC"
Set Listar = Conexao.Execute(SQL)
While Not Listar.EOF
%>
<table cellpadding="0" cellspacing="0" border="0" class="borda-livro"><tr><td>
<table width="470" border="0" cellspacing="0" cellpadding="6">
<tr bgcolor="#FFCC00">
<td colspan="2"><strong><%=Listar("Nome")%></strong></td>
<td width="102" align="center"><%
Response.Write Mid(Listar("Data"),1,(Len(Listar("Data"))-3))
%></td>
</tr>
</table>
<table width="470" height="80" border="0" cellpadding="10" cellspacing="0">
<tr valign="top">
<td width="28" height="50" align="center"><p><img src="images/gb_msg.gif" width="28" height="25"></p>
</td>
<td height="100" rowspan="2"><table width="100%" height="60" border="0" cellpadding="0" cellspacing="0">
<tr><td height="50" align="justify" valign="top">
<%
Response.Write Listar("Comentario")
%>
</td></tr></table>
<%
If Listar("Cidade") <> "" Then
Response.Write "<br><strong>"
Response.Write Listar("Cidade")
Response.Write "</strong>"
End IF
%>
</td>
</tr>
<tr valign="top">
<td height="38" align="center" valign="bottom"><%
If Not Listar("Email")="" Then
Response.Write "<a href=mailto:"
Response.Write Listar("Email")
Response.Write "><img src='images/email.gif' border='0' width='18' height='13' alt="
Response.Write Listar("Email")
Response.Write "></a>"
End If %></td>
</tr>
</table>
</td></tr></table><br>
<%
Listar.MoveNext
WEnd
Conexao.Close
Set Conexao = Nothing
Set Listar = Nothing
%>
Edição feita por: Andre Moura, 05/08/2004, 14:52.