Ciao a tutti,
vorrei passare da un submit di inserimento dati in un database access (con invio di avvenuta ricezione via email) ad una stessa operazione ma su database mysql
Sapreste indicarmi come si modifica questo script?
Grazie mille, vanni
<HTML>
<head>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("\mdb-database\test.mdb")
Conn.Execute "INSERT INTO tabellatest (Nome,Sesso,Citta,Eta,Email,R1,R2,R3,R4,R5,R6,R7,R 8,R9,R10,R11,consenso,subject,Punteggio) SELECT '" & replace(request("Nome"),"'","''") & "','"& replace(request("Sesso"),"'","''") & "','"& replace(request("Citta"),"'","''") & "','"& replace(request("Eta"),"'","''") & "','"& replace(request("Email"),"'","''") & "','" & replace(request("R1"),"'","''") & "','" & replace(request("R2"),"'","''") & "','" & replace(request("R3"),"'","''") & "','" & replace(request("R4"),"'","''") & "','" & replace(request("R5"),"'","''") & "','" & replace(request("R6"),"'","''") & "','" & replace(request("R7"),"'","''") & "','" & replace(request("R8"),"'","''") & "','" & replace(request("R9"),"'","''") & "','" & replace(request("R10"),"'","''") & "','" & replace(request("R11"),"'","''") & "','" & replace(request("consenso"),"'","''") & "','" & subject & "'," & Punteggio
Conn.Close
set Conn=Nothing
Set FSO=CreateObject("Scripting.FileSystemObject")
set instream = Fso.OpenTextFile(Server.MapPath("../test/risultati/ALLERGIAtest.htm"))
Messaggio = instream.ReadAll
instream.Close
set instream = nothing
set FSO = nothing
Messaggio = Replace(Messaggio, "__NOME__", request("nome"))
Messaggio = Replace(Messaggio, "__PUNTEGGIO__", punteggio)
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "info@testsalute.it"
objMail.To = request("email")
objMail.Subject = "Risultati ALLERGIA Test, www.testsalute.it"
objMail.Body = Messaggio
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Send
Set objMail = nothing
%>
Rispondi quotando
