Uno :
<%
Dim db,rs,nome,email,messaggio,modificato,id_risposta
nome = request.form ("nome")
messaggio = request.form ("messaggio")
email = request.form("email")
id_risposta = request.form("id_risposta")
modificato = nome
Set db = Server.CreateObject("ADODB.Connection")
Set rs = Server.Createobject("ADODB.RecordSet")
db.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("forum.mdb"))
rs.open ("SELECT * FROM Messaggi"),db,3,3
rs.AddNew
Rs("id_risposta") = id_risposta
Rs("autore") = nome
Rs("email") = email
Rs("messaggio") = messaggio
Rs.Update()
Rs.Close()
db.Execute("UPDATE messaggi SET risposte = risposte + 1 WHERE id LIKE " & id_risposta)
db.Execute("UPDATE messaggi SET ultimo = " & modificato & " WHERE id like " & id_risposta)
Response.Redirect("Default.asp")
Cn.Close()
%>
Due :
<%
Dim db,rs,sql
sql = "SELECT * FROM Messaggi WHERE titolo <> ''"
Set db = Server.CreateObject("ADODB.Connection")
db.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("forum.mdb"))
Set rs = Server.Createobject("ADODB.RecordSet")
rs.open (sql),db
%>
<table cellpadding="4" cellspacing="3" align="center" bgcolor="#006666" width="70%">
<tr>
<td width="40%" bgcolor="#0066CC">Topic</td>
<td width="20%" bgcolor="#0066CC">Autore</td>
<td width="10%" bgcolor="#0066CC">Risposte</td>
<td width="20%" bgcolor="#0066CC">Ultimo messaggio di</td>
</tr>
<%
while not rs.eof
%>
<tr>
<td width="40%" bgcolor="#0066FF"><a href="visualizza.asp?id=<%=rs("id")%>&titolo=<%=rs("titolo")%>"><%=rs("titolo")%></a></td>
<td width="20%" bgcolor="#0066FF"><a href="mailto:<%=rs("email")%>"><%=rs("autore")%></a></td>
<td width="10%" bgcolor="#0066FF"><%=rs("risposte")%></a></td>
<td width="20%" bgcolor="#0066FF"><%=rs("ultimo")%></a></td>
</tr>
<%
rs.movenext
wend
%>
</table>
<br><br><center>
Sono stati trovati <b><%=rs.recordcount%></b> topic nel forum!</center>
<%
rs.close
db.close
%>
Mi sono un pò informato su internet,e ho capito che è dovuto all'insufficienza delle risorse di sistema,....Come risolvo?
