ecco il codice:
codice:
ruolo = Replace(Trim(Request.Form("ruolo")), "'", "''")
corso = Replace(Trim(Request.Form("corso")), "'", "''")
rru=Replace(Trim(Request.Form("rru")), "'", "''")
CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN
qry = "INSERT INTO iscritti(ruolo,corso,rru) VALUES ( '"& ruolo &"', '"& corso &"','"& rru &"')"
conn.execute(qry)
registrazione effettuata
hai inserito i seguenti dati:
<%response.write " " & corso & "
"%>
<% response.write "" & ruolo & "
"%>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
qry2="SELECT TOP 1 id ruolo,corso, rru FROM iscritti WHERE vis=-1 ;"
rs1.Open qry2,conn
response.write(qry2)
Set rs = Server.CreateObject("ADODB.Recordset")
qry3 ="SELECT email from Login where UserName = '"& rru & "' and Clearance ='"& iper &"';"
rs.Open qry3,conn
if not rs.eof then
do until rs.eof
rs.movenext
loop
end if
response.write(qry3)
Set Mail = Server.CreateObject("CDONTS.NewMail")
da = "messaggi@prova.it"
titolo = "Invio Iscrizione a Corso"
mex = ciao
Set MAIL = CreateObject("CDONTS.NewMail")
MAIL.From = da
MAIL.Subject = titolo
MyBody = "<html><body><font face=Verdana size=2> Dati Inseriti. "
MyBody = MyBody + rs1("corso") & " " & rs1("ruolo") & ",
" & mex
MyBody = MyBody + "</font></body></html>"
MAIL.Body = MyBody
MAIL.To = rs("email")
MAIL.BodyFormat = 0
MAIL.MailFormat = 0
' response.write rs("nome") & " " & rs("email") & "
"
MAIL.Send
set MAIL = nothing
rs1.close
set rs1=nothing
rs.close
set rs = nothing
conn.close
set conn=nothing
end if
%>
Permessi di invio
Rispondi quotando