omskriv kode så det passer til www.b-one.net ´s

Hej jeg har følgende kode som jeg godt vil have skrevet om, så jeg kan bruge min database på b-one´s (mysql-database)

<%
'Skaber forbindelse til databasen og henter indholdet af den
' Databaseforbindelse - husk at angive sti til din database
if request.form("txtEmail") <> "" then
DSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("Db/Attif.mdb")'"C:\Inetpub\wwwroot\attif\Db\Attif.mdb" '
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open DSN

strSQL = "Insert into Nyhedsbrev (Email) values('"& Request.Form("txtEmail") & "')"
'response.write strSQL
'response.end
Conn.Execute strSQL
Conn.Close

Set Conn = Nothing
response.redirect "start.asp?Tak=Tak for din tilmeldingen."
end if
%>


De skriver selv følgende connection og ADODB hvis det kan hjælpe:

<%
Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=[DOMAIN_COM];UID=[DOMAIN_COM];PWD=[PASSWORD];"
objConn.Open

objRS.Open "[QUERY]", objConn, 3,3
%>

<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>




<%
ConnString ="Driver=
{MySQL};SERVER=localhost;DATABASE=xxx;UID=xxx;PASSWORD=xxx"
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = server.CreateObject("ADODB.recordset")
Conn.Open ConnString
sql = "select * from table
RS.Open sql, Conn, 1, 2
%>

Håber der er nogen der kan hjælpe