<% Dim objConn Dim objRS Dim strSQL Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("btlsa.mdb") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT bmsUsername,bmsPassword,bmsFirstName,bmsSurname," & _ "bmsAddress1,bmsAddress2,bmsAddress3,bmsAddress4," & _ "bmsTelephone,bmsCellphone,bmsEmailAddress,bmsFacsimile," & _ "bmsTextA,bmsTextB,bmsTextC,bmsTextD,bmsTextE," & _ "bmsTextF,bmsTextG,bmsTextH,bmsTextI,bmsTextJ," & _ "bmsTextK,bmsTextL,bmsTextM,bmsTextN,bmsTextO," & _ "bmsTextP,bmsTextQ,bmsTextR,bmsTextS,bmsTextT," & _ "bmsTextU,bmsTextV,bmsTextW,bmsTextX,bmsTextY," & _ "bmsTextZ,bmsDateRegistered,bmsTimeRegistered," & _ "bmsIPAddress,bmsUserAgent,bmsActive,bmsAdmin,bmsContactType,bmsDelete FROM bmsWebUsers;" objRS.CursorType = 2 objRS.LockType = 3 objRS.Open strSQL,objConn objRS.AddNew objRS.Fields("bmsUsername") = Request.Form("bmsUsername") objRS.Fields("bmsPassword") = Request.Form("bmsPassword") objRS.Fields("bmsFirstName") = Request.Form("bmsFirstName") objRS.Fields("bmsSurname") = Request.Form("bmsSurname") objRS.Fields("bmsAddress1") = Request.Form("bmsAddress1") objRS.Fields("bmsAddress2") = Request.Form("bmsAddress2") objRS.Fields("bmsAddress3") = Request.Form("bmsAddress3") objRS.Fields("bmsAddress4") = Request.Form("bmsAddress4") objRS.Fields("bmsTelephone") = Request.Form("bmsTelephone") objRS.Fields("bmsCellphone") = Request.Form("bmsCellphone") objRS.Fields("bmsEmailAddress") = Request.Form("bmsEmailAddress") objRS.Fields("bmsFacsimile") = Request.Form("bmsFacsimile") objRS.Fields("bmsTextA") = optA objRS.Fields("bmsTextB") = optB objRS.Fields("bmsTextC") = optC objRS.Fields("bmsTextD") = optD objRS.Fields("bmsTextE") = optE objRS.Fields("bmsTextF") = optF objRS.Fields("bmsTextG") = optG objRS.Fields("bmsTextH") = optH objRS.Fields("bmsTextI") = optI objRS.Fields("bmsTextJ") = optJ objRS.Fields("bmsTextK") = optK objRS.Fields("bmsTextL") = optL objRS.Fields("bmsTextM") = optM objRS.Fields("bmsTextN") = optN objRS.Fields("bmsTextO") = optO objRS.Fields("bmsTextP") = optP objRS.Fields("bmsTextQ") = optQ objRS.Fields("bmsTextR") = optR objRS.Fields("bmsTextS") = optS objRS.Fields("bmsTextT") = optT objRS.Fields("bmsTextU") = optU objRS.Fields("bmsTextV") = optV objRS.Fields("bmsTextW") = optW objRS.Fields("bmsTextX") = optX objRS.Fields("bmsTextY") = optY objRS.Fields("bmsTextZ") = optZ objRS.Fields("bmsDateRegistered") = Request.Form("bmsDateRegistered") objRS.Fields("bmsTimeRegistered") = Request.Form("bmsTimeRegistered") objRS.Fields("bmsIPAddress") = Request.Form("bmsIPAddress") objRS.Fields("bmsUserAgent") = Request.Form("bmsUserAgent") objRS.Fields("bmsActive") = Request.Form("bmsActive") objRS.Fields("bmsAdmin") = Request.Form("bmsAdmin") objRS.Fields("bmsContactType") = "2" objRS.Fields("bmsDelete") = "false" objRS.Update Session("bmsFirstName") = Request.Form("bmsFirstName") Session("bmsSurname") = Request.Form("bmsSurname") Session("bmsEmailAddress") = Request.Form("bmsEmailAddress") objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby Dim objCDOMail 'The CDO object Dim regName, regSurname Dim formDate strTo = Request.Form("bmsEmailAddress") strSubject = "New visitor requesting membership." regName = Request.Form("bmsFirstName") regSurname = Request.Form("bmsSurname") formDate = Request.Form("bmsDateRegistered") strBody = "A new visitor, " & regName & " " & regSurname & ", has completed the " strBody = strBody & "Bishopstrade Passport and is waiting for a response from you. " strBody = strBody & vbCrLf & vbCrLf strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "

" strBody = strBody & "" strBody = strBody & "" 'strBody = strBody & "Form completed: " & (day(formDate)) & "-" & (Monthname(month(formDate),true)) & "-" & (Year(formDate)) & "." strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & " " & (day(formDate)) & "-" & (Monthname(month(formDate),true)) & "-" & (Year(formDate)) & " Surname    " & regSurname & "    Name    " & regName & "    Email    " & Request.Form("bmsEmailAddress") & "    Mobile    " & Request.Form("bmsCellphone") & "    Telephone    " & Request.Form("bmsTelephone") & "    Facsimile    " & Request.Form("bmsFacsimile") & "    Address    " & Request.Form("bmsAddress1") & "       " & Request.Form("bmsAddress2") & "       " & Request.Form("bmsAddress3") & "       " & Request.Form("bmsAddress4") & "    " strBody = strBody & "

" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.Form("bmsEmailAddress") objCDOMail.To = "btlsa@global.co.za" ' objCDOMail.To = "billyi@highveldmail.co.za" objCDOMail.Cc = "billydrummer@hotmail.com" objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML objCDOMail.MailFormat = 0 ' CdoMailFormatMime objCDOMail.Send ' Set the object to nothing because it immediately becomes ' invalid after calling the Send method. Set objCDOMail = Nothing Response.Redirect "bpassportComplete.asp" %>