%@ Language=VBScript %> <% on error resume next if Request("txtAction") = "save" and len (Request("txtEmail")) <> 0 then dim sCnString sCnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Database\emaildb.mdb") & ";UID=;PWD=" dim cn set cn = server.CreateObject("ADODB.Connection") cn.Mode = 3 cn.Open sCnString if cn.State = 1 then sSQL = "insert into emailtb (email) values ('" & request("txtemail") & "');" cn.Execute sSQL message = "" cn.close end if set cn = nothing end if %>