  
<!--#include file="../includes/header.inc" -->

<%
session("loginvalidate")="false"
dim erroremailcolor,erroremail,errorpasscolor,errorpass,RS1, sql1,sql2,RS2
dim errcoloradd,erradd,strEmail,errcount,errcolorpassword,errpassword,errcolorconfirm,errconfirm,errcolorhint,errhint
if (request.form("process")="register" or request.querystring("process")="register") then
	if request.form("beenthere")=1 then
			'response.write "BEENTHERE"
			if request.form("emailaddform")="" or (request.form("emailaddform2")<> request.form("emailaddform")) then
				errcoloradd="darkred"
				erradd="Enter an email address"
				errcount=1
			else
				strEmail = Request.Form("emailaddform")
				IF strEmail <> "" AND inStr(strEmail,"@") <> 0 AND inStr(strEmail,".") <> 0 THEN
					sql1="select * from users where emailid='" & request.form("emailaddform") & "'"
					set RS1=Conn.execute(sql1)
						if RS1.eof then
							Const hexVeLevelSmtp = 3
							Dim oVE, iRating, hexVeLevelBad
							Set oVE = Server.CreateObject("HexValidEmail.Connection")
							oVE.FromDomain = "loyaltyresearch.com"
							oVE.FromEmail = "tomheater@loyaltyresearch.com"
							iRating = oVE.Validate(request.form("emailaddform"), hexVeLevelSmtp)
							'response.write iRating
							'response.write hexVeLevelBad
							If hexVeLevelBad = iRating Then
    							'Response.Write "Address is bad"
								errcoloradd="darkred"
								erradd="Email Authenticity Failed"
								errcount=1
							Else
    							'Response.Write "Address appears good"
							End If
						else
							errcoloradd="darkred"
							erradd="Email already exists"
							errcount=1
						end if
						'RS1.Close
						'Set RS1=Nothing
				else
					errcoloradd="darkred"
					erradd="Format: xxxxx@domain.com"
					errcount=1				
				end if
				dim errcolorfname,errfname,errlname,errcolorlname
				if (request.form("fnameform")="") then
					errcolorfname="darkred"
					errfname="Enter a First Name"
					errcount=1	
				else
					if (len(request.form("fnameform")) >= 2) then
					else
						errcolorfname="darkred"
						errfname="Enter a valid first name"
						errcount=1		
					end if					
				end if	
				if (request.form("lnameform")="") then
					errcolorlname="darkred"
					errlname="Enter a Last Name"
					errcount=1	
				else
					if (len(request.form("lnameform")) >= 2) then
					else
						errcolorlname="darkred"
						errlname="Enter a valid last name"
						errcount=1		
					end if					
				end if	
				dim errcolorcompany,errcompany,errcoloraddress, erraddress,errcolorcity,errcity,errcolorstate,errstate,errcolorzip,errzip,sql3
				if (request.form("companyform")="") then
					errcolorcompany="darkred"
					errcompany="Enter your Company Name"
					errcount=1	
				end if		
				if errcount=1 then
				else
					sql3="insert into users values ('" & request.form("emailaddform") & "','" & request.form("fnameform") & "','" & request.form("lnameform") & "','" & request.form("companyform") & "','" & request.form("titleform") & "',#" & date() & "#)"
					'response.write sql3
					Conn.execute sql3
					session("loginvalidate")="true"
					session("email")=request.form("emailaddform")
					Conn.close
					response.redirect("fullaccess.asp")	
				end if
			end if
	end if
end if
if (request.form("process")="login" or request.querystring("process")="login") then
	if request.form("beenthere")="1" then
		dim sqltest, rstest, errcoloraddlogin,erraddlogin,sqladmin,RSAdmin
		sqltest="select * from users where emailid='" & request.form("emailaddform") & "'"
		set rstest=conn.execute(sqltest)
		if rstest.eof then
			errcoloraddlogin="darkred"
			erraddlogin="Invalid Login"
						'rstest.Close
						'Set rstest=Nothing
		else
			session("loginvalidate")="true"
			session("email")=request.form("emailaddform")
						sqladmin="select * from admin where users_emailid='" & request.form("emailaddform") & "'"
						set RSAdmin=Conn.execute(sqladmin)
						if RSAdmin.eof then
							'RSAdmin.Close
							'Set RSAdmin=Nothing
							Conn.close
							response.redirect("fullaccess.asp")
						else
							session("adminaccess")="yes"
							'RSAdmin.Close
							'set RSAdmin=Nothing
							Conn.close
							response.redirect("admin/strators.asp")
						end if
						'RSAdmin.Close
						'Set RSAdmin=Nothing
			'response.redirect("fullaccess.asp")
		end if
		'rstest.Close
		'Set rstest=Nothing
	end if
end if
Conn.close
%>
<TR>
    <TD bgColor=#ffffff colSpan=4><IMG height=25 src="/images/spacer.gif" width=1><center><font face="Arial" size="-1"><b>
		If you have already registered, please enter your email address to login:</b>
		</center><br>
		<table width="500" align="center" valign="top">
		<tr>
			<td colspan="2"><font face="Arial" size="-1">
			<form action="reg.asp?process=login&beenthere=1" method="post">
			<input type="hidden" name="beenthere" value="1">
			<input type="hidden" name="process" value="login">
			</font></td>
		</tr>
		<tr>
			<td width="175" valign="top"><font face="Arial" size="-1">Email Address: &nbsp;&nbsp;</font></td>
			<td width="325"><font face="Arial" size="-1"><input type="text" name="emailaddform" value="<%=request.form("emailaddform")%>" size="25" maxlength="35">&nbsp;&nbsp;<input type="submit" value="Submit"></form></font><b><font color="<%=errcoloraddlogin%>" size="-2" face="Arial"><%=erraddlogin%></b></font></td>
		</tr>
		<tr><td></td></tr>
		<tr>
			<td colspan="2"><font face="Arial" size="-1">
			<form action="reg.asp?process=register&beenthere=1" method="post">
			<input type="hidden" name="beenthere" value="1">
			<input type="hidden" name="process" value="register">
			<b>Please register below to access the entire list of white papers 
			and cases.</B><br>
			(*) Fields are required.
			</font><br><br></td>
		</tr>
		<tr>
			<td width="175"><font face="Arial" size="-1">First Name:*</font></td>
			<td width="325"><font face="Arial" size="-1"><input type="text" name="fnameform" value="<%=request.form("fnameform")%>" size="25" maxlength="25"></font><b><font color="<%=errcolorfname%>" size="-2" face="Arial"><%=errfname%></b></font></td>
		</tr>
				<tr>
			<td width="175"><font face="Arial" size="-1">Last Name:*</font></td>
			<td width="325"><font face="Arial" size="-1"><input type="text" name="lnameform" value="<%=request.form("lnameform")%>" size="25" maxlength="25"></font><b><font color="<%=errcolorlname%>" size="-2" face="Arial"><%=errlname%></b></font></td>
		</tr>
		<tr>
			<td width="175"><font face="Arial" size="-1">Company:*</font></td>
			<td width="325"><font face="Arial" size="-1"><input type="text" name="companyform" value="<%=request.form("companyform")%>" size="25" maxlength="25"></font><b><font color="<%=errcolorcompany%>" size="-2" face="Arial"><%=errcompany%></b></font></td>
		</tr>
		<tr>
			<td width="175"><font face="Arial" size="-1">Email Address:*</font></td>
			<td width="325"><font face="Arial" size="-1"><input type="text" name="emailaddform" value="<%=request.form("emailaddform")%>" size="25" maxlength="35"></font><b><font color="<%=errcoloradd%>" size="-2" face="Arial"><%=erradd%></b></font></td>
		</tr>
		<tr>
			<td width="175"><font face="Arial" size="-1">Confirm Email Address:*</font></td>
			<td width="325"><font face="Arial" size="-1"><input type="text" name="emailaddform2" value="<%=request.form("emailaddform")%>" size="25" maxlength="35"></font><b><font color="<%=errcoloradd%>" size="-2" face="Arial"><%=erradd%></b></font></td>
		</tr>
		<tr>
			<td>&nbsp;</font></td>
			<td><font face="Arial" size="-1"><input type="submit" name="submitbutton" value="Submit">&nbsp;<input type="reset" name="cancelbutton" value="Clear"></form></font></td>
		</tr>
		</table>
	</td>
  </tr>  



<!--#include file="../includes/footer.inc" -->