Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
jamesnascimento

Codigo basico

Recommended Posts

Estou criando o código abaixo. Este código "lista" todos os dados cadastrado em uma agenda quando clico no link: "listar agenda". O problema é que quando executo o código a resposta que aparece uma página em branco.Como resolvo este problema? O BD que uso é o access.

<html>
<head>
<meta name="GENERATOR" Content="ASP Express 5.0">
<title>Untitled</title>
</head>
<body>
<%
Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\web\localuser\jamesnascimento\banco\banco.mdb;"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open Caminho

SqlStr= "SELECT * FROM Tabela1 WHERE nome_ag LIKE '%" & "%'"
Set Rs = oConn.Execute(SqlStr)

If Rs.EOF then

Response.Write("O Resultado da solicitação é:")
Link=rs.fields("emailag")

Do until Rs.eof
If rs.fields.count>0 then
else
Response.Write("Não foi encontrada nenhuma lista")
End If

Response.Write("<br><br>Nome:"& Rs.fields("nome_ag")&"</br>")
Response.Write("E-mail:<A HREF=""mailto:"& RS.Fields("emailag")&""">"& RS.Fields("emailag")&"</a><BR>")
Response.Write("Telefone:"& rs.fields ("telag")&"<br>")
Response.Write("Assunto:"& rs.fields ("assuntoag")&"</br>")
Rs.movenext
Loop
end if
%>
</body>
</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Visitante
Responder

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...