<%@LANGUAGE="VBSCRIPT"%>
<%
	' log out the user
If LCase(Request.QueryString("logout")) = "true" then
	Response.Cookies("colin") ("firstname")= ""
	Response.Cookies("colin") ("lastname")= ""
	Response.Cookies("colin") ("emailaddress")= ""
	Response.Cookies("colin") ("remember")= ""
	Response.Cookies("colin") ("username")= ""
	Response.Cookies("colin") ("password")= ""
	Response.Cookies("colin").Expires = "1 January, 2000"
End If
%>

<% IF (Request.Form("remember") = "yes") then
Response.Cookies("colin") ("firstname")= Request.Form("firstname")
Response.Cookies("colin") ("lastname")= Request.Form("lastname")
Response.Cookies("colin") ("emailaddress")= Request.Form("emailaddress")
Response.Cookies("colin") ("username")= Request.Form("username")
Response.Cookies("colin") ("password")= Request.Form("password")
Response.Cookies("colin"). Expires = date + 365
End If %>

<% IF (Request.Form("remember1") = "yes") then


Response.Cookies("colin") ("emailaddress")= Request.Form("emailaddress2")
Response.Cookies("colin") ("username")= Request.Form("username2")
Response.Cookies("colin") ("password")= Request.Form("password2")
Response.Cookies("colin"). Expires = date + 365
End If %>

<!--#include file="../Connections/colinlogin.php" -->
<%
' *** 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="join.php"
  MM_rsKeyConnection=MM_colinlogin_STRING
  MM_dupKeyUsernameValue = CStr(Request.Form("emailaddress"))
  MM_dupKeySQL="SELECT email_address FROM colinlogin WHERE email_address='" & 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_colinlogin_STRING
  MM_editTable = "colinlogin"
  MM_editRedirectUrl = "joinedup.php"
  MM_fieldsStr  = "firstname|value|lastname|value|emailaddress|value|username|value|password|value|newsletter|value|access_level|value"
  MM_columnsStr = "first_name|',none,''|last_name|',none,''|email_address|',none,''|username|',none,''|password|',none,''|newsletter|none,1,0|access_level|none,none,NULL"

  ' 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
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("username2"))
If MM_valUsername <> "" Then
  MM_fldUserAuthorization=""
  MM_redirectLoginSuccess="joinedup.php"
  MM_redirectLoginFailed="join.php?valid=false"
  MM_flag="ADODB.Recordset"
  set MM_rsUser = Server.CreateObject(MM_flag)
  MM_rsUser.ActiveConnection = MM_colinlogin_STRING
  MM_rsUser.Source = "SELECT username, password"
  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
  MM_rsUser.Source = MM_rsUser.Source & " FROM colinlogin WHERE username='" & MM_valUsername &"' AND password='" & CStr(Request.Form("password2")) & "'"
  MM_rsUser.CursorType = 0
  MM_rsUser.CursorLocation = 2
  MM_rsUser.LockType = 3
  MM_rsUser.Open
  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then 
    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    If (MM_fldUserAuthorization <> "") Then
      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
    Else
      Session("MM_UserAuthorization") = ""
    End If
    if CStr(Request.QueryString("accessdenied")) <> "" And false Then
      MM_redirectLoginSuccess = Request.QueryString("accessdenied")
    End If
    MM_rsUser.Close
    Response.Redirect(MM_redirectLoginSuccess)
  End If
  MM_rsUser.Close
  Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html><!-- #BeginTemplate "/Templates/main.dwt" --><!-- DW6 -->
<!-- DW6 -->
<head>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META 
content="Cool graphic design,DVD production,Printing low costs,CD ROM development,Grafix Design, Flash 5,Flash 4." 
name=description>
<META 
content="Design agency, Flash design and coding, Games designs,Director 8.5 DVD creation,Copy writing, Web design, ASP,VBscript,Backend database with Flash, Javascript" 
name=keywords>
<META http-equiv=pragma content=no-cache>
<META content="60 days" name=revisit-after>
<META content=all name=robots>
<META content="© 2001 Colin Isaacs" name=copyright>
<META content="Colin Isaacs" name=publisher>
<META content=Colin-Isaacs.com name=author>
<META content="MSHTML 5.50.4616.200" name=GENERATOR>
<!-- #BeginEditable "doctitle" --> 
<TITLE>---colinisaacs.com</TITLE>
<!-- #EndEditable --><link rel="stylesheet" href="../css/3col_leftNav.css" type="text/css">
<style type="text/css">
<!--
.style1 {color: #006699}
.style2 {	color: #99CC00;
	font-weight: bold;
}
-->
</style>
<!-- #BeginEditable "head" --><script language="JavaScript" type="text/JavaScript">
<!--
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;
}

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') { num = parseFloat(val);
        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 (num<min || max<num) 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_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</script><!-- #EndEditable -->
</head>
<body> 
<div id="masthead"> 
  <table width="869" border="0" summary="head table for text of www.colinisaacs.com">
    <caption>
    </caption>
    <tr>
      <td><h1></h1>  <h1>www.colinisaacs.com newmedia designer</h1></td>
    </tr>
  </table>
  <h1 id="siteName">&nbsp;</h1> 
  <div id="globalNav"> 
    <a href="noflash.php">home:</a> | <a href="clients.php">clients: </a>| <a href="me.php">me: </a> | <a href="work.php">work:</a> | <a href="examples.php">examples:</a> | <a href="contact_me.php">contact me: </a> | <a href="teaching.php">teaching:</a> | <a href="services.php">services:</a> |<a href="Guestbook/DisplayGuestbook.php"> guestbook:</a> | <a href="clientslogin.php">clients login:</a> |<a href="join.php"> join:</a> | <a href="https://vault1.secured-url.com/email/ssl/shopping.php">for sale:</a> | <a href="http://www.colinisaacs.com/flashdetection.php">flash site:</a></div> 
  <!-- #BeginEditable "pagename" -->
  <h2 id="pageName">join up </h2>
  <div id="breadCrumb"> </div>
<!-- #EndEditable --></div> 
<div id="navBar">
  <div id="search"></div> 
</div> 
<!--end navBar div --> 
<div id="headlines"> 
  <h3><b class="maintext"><font color="#666666"><b>Welcome</b></font><font class="maintext"><br>
  </font></b>Headline <a href="news.php">full story...</a></h3><b><table width="100" border="0" cellspacing="2" cellpadding="2" summary="banner ads for apple and game please click to get special offers">
    <caption>&nbsp;
    </caption>
    <tr>
      <td><b><a href="http://tracker.tradedoubler.com/click?p=2554&a=848238&g=30874" target="_blank"><img src="http://impgb.tradedoubler.com/imp/img/30874/848238" width="100" height="100" border=0></a></b></td>
      <td><b></b></td>
    </tr>
    <tr>
      <td><b><a href="http://tracker.tradedoubler.com/click?p=2554&a=848238&g=64527" target="_blank"><img src="http://impgb.tradedoubler.com/imp/img/64527/848238" alt="Apple store link" border=0 align="bottom"></a><a href="http://tracker.tradedoubler.com/click?p=12813&a=848238&g=150063" target="_blank"></a></b></td>
      <td rowspan="3">&nbsp;</td>
    </tr>
    <tr>
      <td><b><a href="http://tracker.tradedoubler.com/click?p=2554&a=848238&g=64527" target="_blank"><img src="http://impgb.tradedoubler.com/imp/img/30881/848238" width="100" height="100" border=0></a></b></td>
    </tr>
    <tr>
      <td> </td>
    </tr>
  </table> 
</b></div><b>
<!--end headlines --> 
<div class="feature" id="content"><!-- #BeginEditable "main1" --><div align="left" class="style1"></div>
 
  <div align="left"><span class="maintext">Please join to receive details on what 
    I am working on now and in the future.</span><br>
    <br>
    <table width="85%" border="0" cellspacing="2" cellpadding="2">
      <tr> 
        <td width="51%"> 
          <p class="maintext">&nbsp;</p>
          <form name="login" method="post" action="<%=MM_LoginAction%>" onSubmit="MM_validateForm('password2','','R');return document.MM_returnValue">
            <table cellspacing="0" cellpadding="0" border="0" height="205">
              <tr> 
                <td width="2" height="22" valign="top"></td>
                <td rowspan="4" height="255" valign="top" width="699"> <br>
                  <span class="maintext">if you have forgotten your <b><font color="#660000">password</font></b> 
                  please use this <a href="backend/forgotpass.php" onMouseOver="MM_displayStatusMsg('click here to find out your password');return document.MM_returnValue">link</a> 
                  </span> <span class="heading"><font color="#660000"><br>
                  <br>
                  <br>
                  Registered Users Please Login</font></span><font color="#660000"><span class="maintext"> 
                  </span></font><span class="maintext"> </span> 
                  <table width="75%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td class="maintext">&nbsp;</td>
                      <td class="maintext">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td class="maintext">Username</td>
                      <td class="maintext"> 
                        <input type="text" name="username2">
                      </td>
                    </tr>
                    <tr> 
                      <td class="maintext">Password</td>
                      <td class="maintext"> 
                        <input type="password" name="password2">
                      </td>
                    </tr>
                    <tr> 
                      <td class="maintext">&nbsp;</td>
                      <td class="maintext">&nbsp; </td>
                    </tr>
                    <tr> 
                      <td class="maintext">Remember me</td>
                      <td class="maintext"> 
                        <input type="checkbox" name="remember1" value="yes"
			 <% IF (Request.Cookies("colin")("remember")="yes") then %> checked <%end If%>>
                      </td>
                    </tr>
                    <tr> 
                      <td class="heading">&nbsp; </td>
                      <td class="heading"> 
                        <input type="submit" name="Submit2" value="Submit">
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td width="2" height="233" valign="top"></td>
            </table>
          </form>
          <p class="maintext"> 
            <% IF (Request.Querystring("valid") = "false") then %>
            <b class="maintext">You entered either an incorrect <font color="#CC0000">Username</font> 
            or <font color="#CC0000">Password</font> Please try again</b> 
            <%
			End If
%>
            <font color="#660000"> </font></p>
        </td>
        <td width="49%"> 
          <form name="register" method="POST" action="<%=MM_editAction%>" onSubmit="MM_validateForm('firstname','','R','lastname','','R','emailaddress','','RisEmail','username','','R','password','','R');return document.MM_returnValue">
            <table width="97%" border="0" cellspacing="2" cellpadding="2" class="maintext">
              <tr> 
                <td colspan="2"><span class="maintext"> Please enter you detail 
                  below </span> </td>
              </tr>
              <tr> 
                <td width="46%"><br>
                  first name:</td>
                <td width="54%"> <br>
                  <input type="text" name="firstname">
                </td>
              </tr>
              <tr> 
                <td width="46%">last name:</td>
                <td width="54%"> 
                  <input type="text" name="lastname">
                </td>
              </tr>
              <tr> 
                <td width="46%">e-mail address:</td>
                <td width="54%"> 
                  <input type="text" name="emailaddress">
                </td>
              </tr>
              <tr> 
                <td width="46%">username:</td>
                <td width="54%"> 
                  <input type="text" name="username">
                </td>
              </tr>
              <tr> 
                <td width="46%">password:</td>
                <td width="54%"> 
                  <input type="password" name="password">
                </td>
              </tr>
              <tr> 
                <td width="46%">newsletter:</td>
                <td width="54%"> 
                  <input type="checkbox" name="newsletter" value="checkbox" checked>
                </td>
              </tr>
              <tr> 
                <td width="46%">remember me 
                  <input type="checkbox" name="remember" value="yes"
			 <% IF (Request.Cookies("colin")("remember")="yes") then %> checked <%end If%>>
                  <input type="hidden" name="access_level" value="3">
                </td>
                <td width="54%"> 
                  <input type="submit" name="Submit" value="Submit">
                </td>
              </tr>
            </table>
            <br>
            <font color="#333333"><span class="maintext"><font color="#000000">Somebody 
            is using this e-mail address</font></span></font> <span class="maintext">- <font color="#000000">please enter 
            a different e-mail.</font></span>
            <input type="hidden" name="MM_insert" value="true">
          </form>
          <br>
        </td>
      </tr>
    </table>
  </div>
  <!-- #EndEditable --><br>
<!-- #BeginEditable "body" --><!-- #EndEditable -->  
<div class="feature"></div> 
</div> 
<!--end content --> 
<div id="siteInfo"><a href="me.php">About Me </a> |<a href="map.php"> Site Map</a> | <a href="privacypolicy.php">Privacy Policy</a> | <a href="contact_me.php">Contact Us</a> | <span class="style2">&copy; 2007 colin isaacs.com</span></div> 
<br> 
</b></body>
<!-- #EndTemplate --></html>