Praiselink.com

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% myConstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "\my_db\praiselink.mdb;" ' *** Insert Record: construct a sql insert statement and execute it Dim strEmail MM_editAction = CStr(Request("URL")) strEmail = CStr(Request("emailaddress")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If if stremail <> "" then set ors2 = Server.CreateObject("ADODB.Recordset") ors2.ActiveConnection = myConstring ors2.Source = "SELECT email_address FROM registered_users" ors2.CursorType = 0 ors2.CursorLocation = 2 ors2.LockType = 3 ors2.Open ors2_numRows = 0 if stremail = ors2.Fields("email_address") then 'Response.Write "ERROR" ELSEIf (CStr(Request("MM_insert")) <> "") Then MM_tableName = "registered_users" MM_fields = "Contact_FullName,username,',none,'',Contact_Title,title,',none,'',Contact_Organization,organisation,',none,'',Contact_WorkPhone,tel_no,',none,'',Contact_FAX,fax_no,',none,'',emailaddress,email_address,',none,'',pwd1,pass_word,',none,'',Contact_URL,url,',none,'',church_goer,church_goer,',none,'',under18,under_18,',none,'',churchurl,church_url,',none,'',comments,commemts,',none,''" MM_redirectPage = "post_process.asp?email=" & stremail ' create the insert sql statement MM_tableValues = "" MM_dbValues = "" MM_fieldsArray = Split(MM_fields, ",") For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5 FormVal = CStr(Request.Form(MM_fieldsArray(i))) Delim = MM_fieldsArray(i+2) If (Delim = "none") Then Delim = "" AltVal = MM_fieldsArray(i+3) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_fieldsArray(i+4) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fieldsArray)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_fieldsArray(i+1) MM_dbValues = MM_dbValues & FormVal Next MM_insertStr = "insert into " & MM_tableName & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" ' finish the sql and execute it Set MM_insertCmd = Server.CreateObject("ADODB.Command") MM_insertCmd.ActiveConnection = myConstring MM_insertCmd.CommandText = MM_insertStr MM_insertCmd.Execute ' redirect with URL parameters If (MM_redirectPage = "") Then MM_redirectPage = CStr(Request("URL")) End If If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And (Request.QueryString <> "")) Then MM_redirectPage = MM_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(MM_redirectPage) End If END IF %> Praiselink.com

Artist of the Month:
The Tribe

Add Your Business

- your gateway to a life of praise!!!

Registering with Praiselink will enable you to receive early notification of offers, special events, participate in our Online Discussion Forum and obtain our new Praiselink Discount Card (if you have registered before, please click here to enter the Discussion Forum)...

Please provide the following contact information:

Name * required

Title

Organization

Work Phone

FAX

E-mail * required

Password * required

Confirm Password * required

URL

Church Goer Yes No

Under 18? Yes No

Church URL

Your Suggestions ?

Praiselink takes its privacy policy very seriously and we will not disclose your information to third parties except for completing any transactions you may have with us. Praiselink will not sell or trade your personal information to third parties for marketing purpose without your express consent.

Name	* required
Title
Organization
Work Phone
FAX
E-mail	* required
Password	* required
Confirm Password	* required
URL
Church Goer	Yes No
Under 18?	Yes No
Church URL
Your Suggestions ?