<%@ Language=VBScript %>
<%
option explicit
dim conn, sql
dim mdbfile, strConnString
mdbfile = "/data/contact.mdb"
strConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath( mdbfile ) & ";"
set conn = server.CreateObject ("ADODB.Connection")
conn.Open strConnString
dim firstName
firstName = Trim (Request.Form("first"))
sql = "insert into users (first) values ('" & firstName & "')"
conn.Excecute (sql)
%>
<html>
Thanks for your registration,
<% Response.write firstName %>
</html>
<%
option explicit
dim conn, sql
dim mdbfile, strConnString
mdbfile = "/data/contact.mdb"
strConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath( mdbfile ) & ";"
set conn = server.CreateObject ("ADODB.Connection")
conn.Open strConnString
dim firstName
firstName = Trim (Request.Form("first"))
sql = "insert into users (first) values ('" & firstName & "')"
conn.Excecute (sql)
%>
<html>
Thanks for your registration,
<% Response.write firstName %>
</html>