Ho uno script forum reperito a questo link demo
http://66.71.132.20/demo/lukepopforum/index.htm
Funziona tutto tranne gli invii delle risposte, sia dei nuovi articoli, che delle risposte
I server sono di aruba.it qualche problema o devo apportare delle modifiche per questo?
L'errore è pagina non disponibile
I File sono:
Rispondi.asp >script<
<-------------->
<%@LANGUAGE = JScript%>
<%
var id_risposta = new String(Request.Form("id_risposta"));;
var nome = new String(Request.Form("nome"));
var email = new String(Request.Form("email"));
var messaggio = new String(Request.Form("messaggio"));
var data = new Date();
var modificato = data.getDate() + "/" + (data.getMonth() + 1) + "/" + data.getYear() + " " + data.getHours() + "." + data.getMinutes() + "." + data.getSeconds();
if ((nome == "") || (nome == "undefined") || (nome.charAt(0) == " "))
{
Response.Redirect("errore.asp?id=1");
}
if ((messaggio == "") || (messaggio == "undefined") || (messaggio.charAt(0) == " "))
{
Response.Redirect("errore.asp?id=3");
}
var Cn = new ActiveXObject("ADODB.Connection");
var Rs = new ActiveXObject("ADODB.Recordset");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("forum.mdb"));
Rs.Open("messaggi",Cn,3,3);
Rs.AddNew();
Rs("id_risposta") = id_risposta;
Rs("nome") = nome;
Rs("email") = email;
Rs("messaggio") = messaggio;
// Rs("modificato") = modificato;
Rs.Update();
Rs.Close();
var AggiornaClick = Cn.Execute("UPDATE messaggi SET risposte = risposte + 1 WHERE id LIKE '" + id_risposta + "'");
var AggiornaDataModifica = Cn.Execute("UPDATE messaggi SET modificato = '" + modificato + "' WHERE id LIKE '" + id_risposta + "'");
Response.Redirect("index.asp");
Cn.Close();
%>
---------------------------------------->Fine
L'altro
Nuovo.asp >script<
--------------------->
<%@LANGUAGE = JScript%>
<%
var nome = new String(Request.Form("nome"));
var email = new String(Request.Form("email"));
var titolo = new String(Request.Form("titolo"));
var messaggio = new String(Request.Form("messaggio"));
var data = new Date();
var modificato = data.getDate() + "/" + (data.getMonth() + 1) + "/" + data.getYear() + " " + data.getHours() + "." + data.getMinutes() + "." + data.getSeconds();
if ((nome == "") || (nome == "undefined") || (nome.charAt(0) == " "))
{
Response.Redirect("errore.asp?id=1");
}
if ((titolo == "") || (titolo == "undefined") || (titolo.charAt(0) == " "))
{
Response.Redirect("errore.asp?id=2");
}
if ((messaggio == "") || (messaggio == "undefined") || (messaggio.charAt(0) == " "))
{
Response.Redirect("errore.asp?id=3");
}
var Cn = new ActiveXObject("ADODB.Connection");
var Rs = new ActiveXObject("ADODB.Recordset");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("forum.mdb"));
Rs.Open("messaggi",Cn,3,3);
Rs.AddNew();
Rs("nome") = nome;
Rs("email") = email;
Rs("titolo") = titolo;
Rs("messaggio") = messaggio;
Rs("risposte") = 0;
Rs("modificato") = modificato;
Rs.Update();
Rs.Close();
Response.Redirect("index.asp");
Cn.Close();
%>
---------------------> Fine

Rispondi quotando
