Mems nn sò che cavolo possa essere....
ti posto i codici relativi ai form e le pagine che richiamano..
FORM MAIL
codice:
<form method="post" action"AddUser.asp" form onsbmit="return control(this);" id="form1" >
<input type="text" name="email" id="email" />
<input type="submit" value="Conferma" name="B1"/>
</form>
PAGINA AddUSER.ASP
codice:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<%
'aggiunta nuovo utente
DIM NewEmail
NewEmail = Request.Form("email")
Dim objRec
Set objRec = Server.CreateObject("ADODB.Recordset")
sql="select * from Mailing where email = '"&NewEmail&"'"
objRec.Open sql, objConn, 3, 3
if not objRec.eof then
response.write("<div align='center'>Utente già iscritto!</div>")
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn = Nothing
else
'crea nuovo record
objRec.AddNew
objRec("email") = NewEMail
objRec.Update
'chiudo e distruggo recordset e connessione
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn = Nothing
response.write("<div align='center'>Nuovo utente inserito</div>
")
response.write("<div align='center'>Benvenuto!</div>")
end if
%>J
FORM MOTORE DI RICERCA
codice:
<form id="cerca" action="cerca.asp" method="post"/>
<fieldset>
<legend>Cerca nel sito</legend>
<input type="text" name="cerca" size="13" />
<input type="submit" value="Invia" />
</fieldset>
CERCA.ASP
codice:
<%
Response.Buffer = true;
var Cn = new ActiveXObject("ADODB.Connection");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/Anfe/Data/news.mdb"));
var testo = new String(Server.HTMLEncode(Request.Form("cerca")));
var r_testo = testo.replace(/'/g,"''");
var cerca = r_testo.split(" "); // Tutte le parole chiave devono essere separate da uno spazio vuoto
var sql = "SELECT * FROM risultati WHERE ";
for (var i=0; i<cerca.length; i++)
{
if (i > 0) sql += " AND";
sql += " parole_chiave LIKE '%" + cerca[i] + "%'";
}
sql += " ORDER BY titolo";
var Mostra = Cn.Execute(sql);
%>
<html>
<head>
<title>Cerca</title>
<basefont size="2" face="Verdana">
</head>
<%if (testo != "undefined") {%>
Risultati della ricerca per il termine <font color="Red"><%=testo%></font></p>
<%
if (testo == "" || testo == "undefined" || testo.charAt(0) == " ")
{
Response.Write("
Inserire un termine per effettuare una ricerca</p>");
}
else if (Mostra.EOF)
{
Response.Write("
Nessun risultato</p>");
}
else
{
while (!Mostra.EOF)
{
with (Response)
{
Write("
");
Write("" + Mostra("titolo") + "
");
Write(Mostra("descrizione") + "
");
Write("<font color='Green'>" + Mostra("url") + "</font>");
Write("</p>");
}
Mostra.MoveNext();
}
}
%>
<%}%>
</body>
</html>
<%Cn.Close()%>
Ciao..e grazie per l'aiuto.
Permessi di invio
Rispondi quotando