Dim oConn
Dim oRs
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("registro_puncher.mdb")
Set oRs = oConn.Execute("INSERT INTO Disquete(fistname, email2, lastname, city, password, jobtitle, company, addressstreet, zip, phone, nomeoncard, address)" & "VALUES('" & nome & "','" & email & "','" & sobrenome & "','" & cidade & "','" & senha & "','" & jobtitles & "','" & companys & "','" & addressstreets & "','" & zips & "','" & phone1 & "','" & phones & "','" & nameoncards & "')")
oConn.Close
Set oConn = Nothing
Valew espero que saibva
