iscrizione newsletter

[daxie]

ciao a tutti, ho un problema con l'iscrizione alla newsletter, premetto che è codice che ho trovato in rete:

<%
Dim email, con, data_source, sql_insert, sql_check, rs
email = Request.Form("email")

If Len(email) Then
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("mdb-database\mail.mdb")
sql_check = "select email from users where email = '" & email & "'"
sql_insert = "insert into users( email ) values ('" & email & "')"
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
Set rs = con.Execute (sql_check, , 1)
If rs.EOF Then
con.Execute sql_insert
Response.Write "Grazie di essersi iscritto alla Newsletter - " & email & _
" Inserimento nel DataBase Riuscito"
Else
Response.Write "La tua email -- " & email & _
" -- Grazie ma sei già inserito nel DataBase."
End If
con.Close
Set con = Nothing

Else
Response.Redirect "offerte.htm"
End If
%>

fin qui funziona....

vorrei sapere come fare a fagli inserire altri dati; nello specifico nella pagina dalla quale recupero l'indirizzo e-mail ho aggiunto 2 campi: nome, cognome e anche nel database ho creato 2 campi apposta. il problema è che non riesco a capire che codice (e dove) mettere x farglieli inserire nel database assieme all'indirizzo e-mail



qualcuno può aiutarmi?

[Roby_72]

<%
Dim email, con, data_source, sql_insert, sql_check, rs
email = Request.Form("email")
nome = Request.Form("nome")
cognome = Request.Form("cognome")
nome = replace(nome,"'","''")
cognome = replace(cognome,"'","''")
 

If Len(email) Then
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
Server.MapPath("mdb-database\mail.mdb")
sql_check = "select email from users where email = '" & email & "'"
sql_insert = "insert into users (email,nome,cognome) values ('" & email & "','" & nome & "','" & cognome & "')"  
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
Set rs = con.Execute (sql_check, , 1)
If rs.EOF Then
con.Execute sql_insert
Response.Write "Grazie di essersi iscritto alla Newsletter - " & email & _
" Inserimento nel DataBase Riuscito"
Else
Response.Write "La tua email -- " & email & _
" -- Grazie ma sei già inserito nel DataBase."
End If
con.Close
Set con = Nothing

Else
Response.Redirect "offerte.htm"
End If
%>

Roby

[daxie]

grazie mille roby funziona!!!

un'altra cosa..se volessi mandare una mail automatica di conferma dell'iscrizione alla newletter come posso fare?

cioè creo una pagina html standard e la invio automaticamente qd un utente si iscrive..è possibile? se si come?

grazie mille!

[Roby_72]

Si informati dell'oggetto che puoi usare sul server in cui risiede il dominio.
Di regola CDOSYS dovrebbe andare bene, cerca nel forum.

Roby

[daxie]

nel sito uso l'oggetto cdo..