Update DB

[zeweb]

ora risolto il problema di ASPEmail rimane quello dei dati nel Db che non mi si aggiornano (DB vuoto anche se la registrazione è avvenuta con la ricezione dell'email)

Mi aiutate x favore ?

 <% 
set conn = server.createObject("ADODB.Connection") 
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mapPath("/_private/tekshop.mdb") 

mailName = replace(mailName, "'", "''") 
mailSender = replace(mailSender, "'", "''") 
sql = "INSERT INTO Newsletter (mailName, mailSender) VALUES('" & mailName & "', '" & mailSender & "')"

conn.close 
set conn = nothing 

	Dim sFromName
	Dim sFromAddress

	sFromName= Request.form("MailName")
	sFromAddress= Request.form("MailSender")

	' *******************************************************
	' 
	Sub SendMail()	
		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
		Mailer.FromName   = sFromAddress
		Mailer.FromAddress= sFromAddress
		Mailer.RemoteHost = "smtp.nettuno.it"
		Mailer.AddRecipient "TEKMEDIA Servizio Clienti", "tekmedia@tekmedia.it"
		Mailer.Subject    = "Registrazione a TEKMEDIA Newsletter"
		Mailer.BodyText   = "Grazie per esserti registrato, ora sarai aggiornato sulle novità di Tekmedia s.r.l."
		If Mailer.SendMail then
		Response.Write "<span class='testoavviso'>Registrazione avvenuta con successo!</span>"
		else
	  		Response.Write "<span class='testoavviso'>Errore! (Errore: " & Mailer.Response & ") </span>"
		End If
		set Mailer = Nothing
	End Sub
%>
</span>

<% Call SendMail %>

[orcim]

sql = "INSERT INTO Newsletter (mailName, mailSender) VALUES('" & mailName & "', '" & mailSender & "')"
response.write sql : response.end

e vedi cosa stampa.

[zeweb]

questo:

INSERT INTO Newsletter (mailName, mailSender) VALUES('', '')

[deivnet]

Due piccoli problemi ... o sviste

set conn = server.createObject("ADODB.Connection") 
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mapPath("/_private/tekshop.mdb") 

mailName = replace(mailName, "'", "''") 
mailSender = replace(mailSender, "'", "''") 
sql = "INSERT INTO Newsletter (mailName, mailSender) VALUES('" & mailName & "', '" & mailSender & "')"

'qui manca
conn.Execute(sql)
'per inserire nel DB i dati

conn.close 
set conn = nothing

I due valori mailName e mailSender dovrebbero essere inizializzati da un form tramite Request.Form("mailName") e Request.Form("mailSender") giusto?

[zeweb]

nulla anche così !

 <% 
Dim sFromName
Dim sFromAddress

sFromName= Request.form("MailName")
sFromAddress= Request.form("MailSender")

set conn = server.createObject("ADODB.Connection") 
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mapPath("/_private/tekshop.mdb") 

MailName = replace(MailName, "'", "''") 
MailSender = replace(MailSender, "'", "''") 
sql = "INSERT INTO Newsletter (MailName, mailSender) VALUES('" & MailName & "', '" & MailSender & "')"

conn.close 
set conn = nothing 

	' *******************************************************
	' 
	Sub SendMail()	
		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
		Mailer.FromName   = sFromAddress
		Mailer.FromAddress= sFromAddress
		Mailer.RemoteHost = "smtp.nettuno.it"
		Mailer.AddRecipient "TEKMEDIA Servizio Clienti", "tekmedia@tekmedia.it"
		Mailer.Subject    = "Registrazione a TEKMEDIA Newsletter"
		Mailer.BodyText   = "Grazie per esserti registrato, ora sarai aggiornato sulle novità di Tekmedia s.r.l."
		If Mailer.SendMail then
		Response.Write "<span class='testoavviso'>Registrazione avvenuta con successo!</span>"
		else
	  		Response.Write "<span class='testoavviso'>Errore! (Errore: " & Mailer.Response & ") </span>"
		End If
		set Mailer = Nothing
	End Sub
%>
</span>

<% Call SendMail %>

[orcim]

Originariamente inviato da zeweb
questo:

INSERT INTO Newsletter (mailName, mailSender) VALUES('', '')

Dunque non passa i valori dal form alla query, come li recuperi dal forum alla pagina della query??

[zeweb]

<form action="invia_newsletter.asp" method="post" onSubmit="news('',250,250)" target="pop">
<input name="mailName" type="text" class="campiform" id="mailName" size="25">
<input name="mailSender" type="text" class="campiform" id="mailSender" size="25">
<input type="submit" class="bottonform" value=" OK ">
</form>

[deivnet]

Prova così :

<%
Dim sFromName
Dim sFromAddress

sFromName= Request("mailName")
sFromAddress= Request("mailSender")

set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mapPath("/_private/tekshop.mdb")

MailName = replace(sFromName, "'", "''")
MailSender = replace(sFromAddress, "'", "''")
sql = "INSERT INTO Newsletter (MailName, mailSender) VALUES('" & MailName & "', '" & MailSender & "')"

conn.execute(sql)

conn.close
set conn = nothing

Call SendMail

' ****************************************
***************
'
Sub SendMail()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = sFromAddress
Mailer.FromAddress= sFromAddress
Mailer.RemoteHost = "smtp.nettuno.it"
Mailer.AddRecipient "TEKMEDIA Servizio Clienti", "tekmedia@tekmedia.it"
Mailer.Subject = "Registrazione a TEKMEDIA Newsletter"
Mailer.BodyText = "Grazie per esserti registrato, ora sarai aggiornato sulle novità di Tekmedia s.r.l."
If Mailer.SendMail then
Response.Write "<span class='testoavviso'>Registrazione avvenuta con successo!</span>"
else
Response.Write "<span class='testoavviso'>Errore! (Errore: " & Mailer.Response & ") </span>"
End If
set Mailer = Nothing
End Sub
%>
</span>

[orcim]

Originariamente inviato da zeweb

<form action="invia_newsletter.asp" method="post" onSubmit="news('',250,250)" target="pop">
<input name="mailName" type="text" class="campiform" id="mailName" size="25">
<input name="mailSender" type="text" class="campiform" id="mailSender" size="25">
<input type="submit" class="bottonform" value=" OK ">
</form>

questo è il form... nella pagina dove hai la query inserisci:

sFromName= Request.form("MailName")
sFromAddress= Request.form("MailSender")
 response.write sFromName
 response.write sFromAddress

e vedi cosa restituisce.

[zeweb]

mi stampa nome+email tutto attaccato !