<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DSN=celeiro;UID=;pwd=;"
Set rst = Server.CreateObject("ADODB.Recordset")
sql = "SELECT Nome, Email, Mensagem from recado where Permissao ='S';"
rst.Open sql,con
if not rst.EOF then
while not rst.EOF
response.write ""
response.write ""
if not rst.EOF then
response.write ""
response.write " "
response.write "" & rst(2) & "
"
response.write "" & rst(0) & "
"
response.write " | "
else
response.write " | "
end if
response.write " | "
rst.MoveNext
if not rst.EOF then
response.write ""
response.write " "
response.write "" & rst(2) & "
"
response.write "" & rst(0) & "
"
response.write " | "
else
response.write " | "
end if
rst.Movext
response.write " |
"
wend
end if
rst.Close
con.Close
set rst = nothing
set con = nothing
%>
|
|
|
|
