:: Coppins Holdings ::

<%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = -1 'connect to the database here Connect if request.form("fname")<>"" and request.form("ccn_1") <> "" then 'Alright adding a new record here strtcomflds = "custfirstname,custmiddlename,custlastmen,custtitle,custcompany," _ & "custemail,custaddress,custcity,custcountry,custtell,custfax,custmobile," _ & "custinternet,shipoption,shipname,shiplastmen,shipemail," _ & "shipaddress,shipcity,shipcountry,shiptell,cardname,carno,cardexpdate,cardtype,cardseccode," _ & "otherrequirements,mysession" dim strFORMfields,strtcomflds strFORMfields = "'" & request.form("fname") & "','" strFORMfields =strFORMfields & request.form("mname") & "','" strFORMfields =strFORMfields & request.form("lname") & "','" strFORMfields =strFORMfields & request.form("title") & "','" strFORMfields =strFORMfields & request.form("company") & "','" strFORMfields =strFORMfields & request.form("email") & "','" strFORMfields =strFORMfields & request.form("address") & "','" strFORMfields =strFORMfields & request.form("city") & "','" strFORMfields =strFORMfields & request.form("country") & "','" strFORMfields =strFORMfields & request.form("tel") & "','" strFORMfields =strFORMfields & request.form("fax") & "','" strFORMfields =strFORMfields & request.form("mobile") & "','" strFORMfields =strFORMfields & request.form("internet") & "','" strFORMfields =strFORMfields & request.form("shipoption") & "','" strFORMfields =strFORMfields & request.form("shipfname") & "','" strFORMfields =strFORMfields & request.form("shiplname") & "','" strFORMfields =strFORMfields & request.form("shipemail") & "','" strFORMfields =strFORMfields & request.form("shipaddress") & "','" strFORMfields =strFORMfields & request.form("shipcity") & "','" strFORMfields =strFORMfields & request.form("shipcountry") & "','" strFORMfields =strFORMfields & request.form("shiptel") & "','" strFORMfields =strFORMfields & request.form("chname") & "','" strFORMfields =strFORMfields & request.form("ccn_1") & request.form("ccn_2") & request.form("ccn_3") & request.form("ccn_4") & "','" strFORMfields =strFORMfields & request.form("expire_year") & request.form("expire_month") & "','" strFORMfields =strFORMfields & request.form("cctype") & "','" strFORMfields =strFORMfields & request.form("scurity_card") & "','" strFORMfields =strFORMfields & request.form("other_require") & "','" strFORMfields =strFORMfields & Session.SessionID & "'" strSQL = "insert into checkout(" & strtcomflds & ") values(" & strFORMfields & ")" set objRS=Server.CreateObject("ADODB.Recordset") objConn.Execute(strSQL) response.redirect "print.asp" end if %> :: Coppins Holdings ::

Under Construction