NewbieSite Affiliate page

<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_affiliate_STRING MM_editTable = "affiliates" MM_editRedirectUrl = "" MM_fieldsStr = "Name|value|Email|value" MM_columnsStr = "Name|',none,''|Email|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) 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_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsaffiliate__MMColParam rsaffiliate__MMColParam = "1" if (Request("Email") <> "") then rsaffiliate__MMColParam = Request("Email") %> <% if Request.FORM("Email") <> "" THEN set rsaffiliate = Server.CreateObject("ADODB.Recordset") rsaffiliate.ActiveConnection = MM_affiliate_STRING rsaffiliate.Source = "SELECT * FROM affiliates WHERE Email = '" + Replace(rsaffiliate__MMColParam, "'", "''") + "'" rsaffiliate.CursorType = 0 rsaffiliate.CursorLocation = 2 rsaffiliate.LockType = 3 rsaffiliate.Open() rsaffiliate_numRows = 0 If rsaffiliate.EOF Then response.write "I tired but could not find your email on file, please try again.." Response.END End IF END IF %> NewbieSite Affiliate page <% If (Request("Email")) = ("") Then 'script %>

newbie resources | about newbiesite | contact newbiesite

Sign up with NewbieSite affiliate program today. Refer visitors to our site. We will pay you $5 for each domain name registers or transfers. Just simple as that.

If you have any questions about the program please check the FAQ

FAQ on Affiliate Program

Here are some images and banners to promote NewbieSite.com from your site.

Images and Banners

Sign up today.....it won't cost you anything.

Name:

Email:

Affiliate area:

Log in below to check your current commission due and retrieve your affiliate links.

Email:

<% End If ' end If (Request("Email")) = ("") script %> <% If (Request("Email")) <> ("") Then 'script %>

Welcome <%=(rsaffiliate.Fields.Item("Name").Value)%>,

Total clickthroughs: <%=(rsaffiliate.Fields.Item("Hits").Value)%>

Your commissions due are= $<%=(rsaffiliate.Fields.Item("Earned").Value)%>

*********************

Your linking codes:

Use the following Url to promote Free hosting from Newbiesite.com. You can use text links anywhere in your web pages or in e-zines. However spamming will not be allowed for promoting newbiesite.com

http://www.newbiesite.com/index2.asp?Affid=<%=(rsaffiliate.Fields.Item("AffID").Value)%>

Click Here for the images and banners to promote NewbieSite.com.

Thank you supporting NewbieSite

***************************

<% End If ' end If (Request("Email")) <> ("") script %>

Privacy Statement | Terms of Use
Copyright 2001-03 NewbieSite.com

<% IF Request.FORM("email") <> "" Then rsaffiliate.Close() END IF %>