<%
Dim Conn,rs,SQLstmt
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "moldocor"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM Carteoaspeti where Aprobare=1",conn
%>
<%
While not rs.eof
Response.Write("
| Subiect: " & rs.Fields.item("subiect") & " |
")
Response.Write("Marturie: " & rs.Fields.item("Mesaj") & "
")
Response.Write("" & rs.Fields.item("Name") & " |
")
Response.Write(" |
")
Response.Write("
")
rs.Movenext
Wend
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
