|
|
<%
Dim Conn
Dim objSubscriber
Dim strConnect
Dim strSQL
Dim strSubscriber
Dim str_title, strfirst_name, strmiddle_name, strsurname, strphone, strfax, stremail, straddress_1, straddress_2, str_suburb, str_state, strpostcode, strcountry, strpayment_method, strcard_type, strcard_number, strexpiry_date, strname_on_card, strusername, strpassword, strconfirm_password, strdate_joined
'start the connection, execute the sql statment and finally close the connection
Set Conn = Server.CreateObject("ADODB.Connection")
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/databases/Subscriber.mdb")
conn.open(strConnect)
Set objSubscriber = Server.CreateObject("ADODB.Recordset")
strSubscriber = Request.Form("Subscriber")
%>
|