<% Dim MenuConn dim rstForm dim cmdForm Set MenuConn= Server.CreateObject("ADODB.Connection") MenuConn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\hilltorch\hilltorchDB.mdb" MenuConn.Open 'Set RegConn = Server.CreateObject("ADODB.Connection") 'RegConn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\webproject\Etccdbase.mdb" Set cmdForm= Server.CreateObject("ADODB.Command") Set rstForm= Server.CreateObject("ADODB.Recordset") xstFirstName = request.form("stFirstName") xstLastName = request.form("stLastName") xstsex = request.form("stsex") xstoccupation = request.form("stoccupation") xstaddress = request.form("staddress") xstphone = request.form("stphone") xstemail = request.form("stemail") xstcomments = request.form("stcomments") xdayval = request.form("xdayval") xmonthval= request.form("xmonthval") xYearval= request.form("xYearval") xstformdate = cstr(xdayval) + "/" + cstr(xmonthval) + "/" + cstr(xYearval) %>
 
Diamond Wealth Network Operator  
line decor
 HOME  ::   Expanding the frontiers of your wealth!
line decor
   
 

 
 Page Development in progress. Pls bear with us............

 
<% IF request.form("Message")= "True" THEN 'Set cmdForm.ActiveConnection = MenuConn 'Set rstForm = cmdForm.Execute cmdForm.CommandText = "Insert into tblCust (FirstName, LastName, sex, occupation, address, Telephone, email, comments, formdate)" _ & "Values ('" & xstFirstName & "','" & xstLastName & "','" & xstsex & "','" & xstoccupation & "','" & xstaddress & "','" & xstphone & "', " _ & "'" & xstemail & "','" & xstcomments & "',cdate('" & xstformdate & "')" Set cmdForm.ActiveConnection = MenuConn 'Response.write cmdEtcc.CommandText cmdForm.Execute Response.write "Record Successfully Inserted into tblCust " End if %>