|
|
<%
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("caratules.mdb"))
strSQL = "SELECT nom, comentari, email FROM forum"
Set objRS = oConn.Execute(strSQL)
%>
| Nom i cognoms | Missatge | E-mail |
<%
while (not objRS.Eof)
Response.Write("| " & objRS("nom") & " | " & objRS("comentari") & " | " & " enviar un mail | ")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
|