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
%>