<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="Connections/directory.asp" -->
<%
' *** 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 = ""
%>
<%
' *** Redirect if username exists
MM_flag="MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  MM_dupKeyRedirect="duplicatedID.asp"
  MM_rsKeyConnection=MM_directory_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("U_ID"))
  MM_dupKeySQL="SELECT U_ID FROM USERS WHERE U_ID='" & MM_dupKeyUsernameValue & "'"
  MM_adodbRecordset="ADODB.Recordset"
  set MM_rsKey=Server.CreateObject(MM_adodbRecordset)
  MM_rsKey.ActiveConnection=MM_rsKeyConnection
  MM_rsKey.Source=MM_dupKeySQL
  MM_rsKey.CursorType=0
  MM_rsKey.CursorLocation=2
  MM_rsKey.LockType=3
  MM_rsKey.Open
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then 
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_directory_STRING
  MM_editTable = "USERS"
  MM_editRedirectUrl = "favlogin.asp?Reg=yes"
  MM_fieldsStr  = "U_ID|value|U_PASSWORD|value|U_FIRST|value|U_LAST|value|U_EMAIL|value|checkbox|value"
  MM_columnsStr = "U_ID|',none,''|U_PASSWORD|',none,''|U_FIRST|',none,''|U_LAST|',none,''|U_EMAIL|',none,''|email_subscribe|none,1,0"

  ' 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
%>
<!--#include file="inc_header.asp" --><!--#include file="inc_nav.asp" -->
      <%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 5
Repeat2__index = 0
SmallBanner_numRows = SmallBanner_numRows + Repeat2__numRows
%> 
      <script language="JavaScript">
<!--
function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') {
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (val<min || max<val) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
//-->
</script>
      <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                
          <td valign="top"> <span class="box3"><strong><font face="Verdana"><a href="default.asp" class="box1">Home 
            </a></font></strong></span><strong><font face="Verdana"> <span class="box1">&raquo;</span> 
            </font></strong><span class="box1"><font face="Verdana"><strong>New Member 
            Registration </strong></font></span></td>
                <td width="125" rowspan="2" valign="top"> <div align="center">
                    <!--#include file="inc_side.asp" -->
                  </div></td>
              </tr>
              <tr> 
                <td width="90%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr align="center"> 
                      <td width="7%" valign="top">
						<p><br>
&nbsp;</td>
                      <td width="85%" valign="top"><font face="Tahoma"><b>
						<font color="#336699" size="4">Congratulations!
						</font></b></font>
						<p style="margin-top: 0; margin-bottom: 0" align="justify">
						<font face="Tahoma"><b>
						<font size="2"><br>
						</font></b><font color="#333333" size="2">Thank you for 
						choosing VIP Card Network. You have made the right 
						choice in selecting VIP Card Network as your online 
						directory and owner loyalty service provider. VIP Card 
						Network is ranked as #1 by many independent parties. We 
						provide excellent customer service, reliable online 
						advertising solutions, and cutting-edge owner loyalty VIP 
						Card products at affordable prices.<br>
						<br>
						We appreciate your business and look forward to a great business 
						relationship!</font></font></p>
						<p>&nbsp;</td>
                      <td width="8%" valign="top">&nbsp;</td>
                    </tr>
                    <tr align="center"> 
                      <td valign="top" colspan="3">&nbsp;</td>
                    </tr>
                    <tr align="center"> 
                      <td valign="top" colspan="3"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td align="center" valign="top"> <form method="POST" action="<%=MM_editAction%>" name="form2">
                          <table width="385" align="center" cellpadding="1" cellspacing="1">
                            <tr valign="baseline"> 
                              <td width="157" align="right" nowrap class="box1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#333333">User 
                                ID:</font></b></td>
                              <td width="221"> <input type="text" name="U_ID" value="" size="30" maxlength="10" class="inputFieldIE"> 
                              </td>
                            </tr>
                            <tr valign="baseline"> 
                              <td width="157" align="right" nowrap class="box1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#333333">Password:</font></b></td>
                              <td width="221"> <input type="password" name="U_PASSWORD" value="" size="30" maxlength="10" class="inputFieldIE"> 
                              </td>
                            </tr>
                            <tr valign="baseline"> 
                              <td width="157" align="right" nowrap><span class="box1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#333333">First 
                                Name:</font></b></span></td>
                              <td width="221"> <input type="text" name="U_FIRST" value="" size="30" class="inputFieldIE"> 
                              </td>
                            </tr>
                            <tr valign="baseline"> 
                              <td width="157" align="right" nowrap><span class="box1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#333333">Last 
                                Name:</font></b></span></td>
                              <td width="221"> <input type="text" name="U_LAST" value="" size="30" class="inputFieldIE"> 
                              </td>
                            </tr>
                            <tr valign="baseline"> 
                              <td width="157" align="right" nowrap><span class="box1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#333333">Email:</font></b></span></td>
                              <td width="221"> <input type="text" name="U_EMAIL" value="" size="30" class="inputFieldIE"></td>
                            </tr>
                            <tr valign="baseline"> 
                              <td width="157" align="right" nowrap class="box1">
								<font size="1" face="Verdana">Periodic e-mail 
								offers<br>
								from vipcardnetwork.com?</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">:</font></td>
                              <td><font size="1"><i><font face="Verdana, Arial, Helvetica, sans-serif"> 
                                <input type="checkbox" name="checkbox" value="checkbox">
                                </font></i></font></td>
                            </tr>
                            <tr valign="baseline"> 
                              <td colspan="2" align="right" nowrap><div align="center"> 
                                </div></td>
                            </tr>
                            <tr valign="baseline"> 
                              <td align="right" nowrap><h3 align="center">&nbsp; </h3></td>
                              <td align="right" nowrap><div align="left"> 
                                  <input name="submit" type="submit" class="Buttons" onClick="MM_validateForm('U_ID','','R','U_FIRST','','R','U_LAST','','R','U_EMAIL','','RisEmail','U_PASSWORD','','R');return document.MM_returnValue" value="Register">
                                </div></td>
                            </tr>
                          </table>
                          <input type="hidden" name="MM_insert" value="form2">
                        </form>
                              <p>&nbsp;</p></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
      <!--#include file="inc_footer.asp" -->