<% if request.form("Login")="Login" then sql="select user_id from internet_users where email='" & request("f_email_login") & "' and password='" & request("f_password_login") & "'" rs.open sql, strconn if rs.eof then f_alert=1 else session("internet_user_idno") = rs("user_id") response.Redirect(request("f_refer_page") & "?f_volume=" & request("f_volume") & "&f_issue=" & request("f_issue")) end if rs.close end if if request.form("Register")="Register" then f_alert=0 f_name=request("f_name") f_title=request("f_title") f_company=request("f_company") f_address=request("f_address") f_city=request("f_city") f_state=request("state") f_zip=request("f_zip") f_country=request("country") f_phone=request("f_phone") f_fax=request("f_fax") f_email=request("f_email") f_password=request("f_password") f_agree=request("f_agree") if (f_name="") then f_alert=2 if (f_title="") then f_alert=2 if (f_company="") then f_alert=2 if (f_city="") then f_alert=2 if (f_state="") then f_alert=2 if (f_zip="") then f_alert=2 if (f_country="") then f_alert=2 if (f_email="") then f_alert=2 if (f_password="") then f_alert=2 if (f_agree<>1) then f_alert=2 if f_alert=0 then SQL = " SELECT TheCount FROM TheCounter UPDATE TheCounter SET TheCount = TheCount + 1 " rs1.open sql, strconn Counter = RS1("TheCount") rs1.close rs.open "internet_users", strconn, 3, 3 rs.AddNew rs("user_id")=counter rs("name")=f_name rs("title")=f_title rs("company")=f_company rs("address")=f_address rs("city")=f_city rs("state")=f_state rs("zip")=f_zip rs("country")=f_country rs("phone")=f_phone rs("fax")=f_fax rs("email")=f_email rs("password")=f_password rs.update rs.close session("internet_user_idno") = counter response.Redirect(request("f_refer_page") & "?f_volume=" & request("f_volume") & "&f_issue=" & request("f_issue")) end if end if %>
Login

Please log in or sign up for FREE MEMBERSHIP to view this page's FREE content.

<% if f_alert=1 then %>

INVALID LOGIN

<% end if %>
Email Address " size="40">
Password
 

Free Registration

Registration is quick and easy. Please take
a moment to create your free account now.

* = Required Field

<% if f_alert=2 then %>

PLEASE FILL IN ALL REQUIRED FIELDS

<% end if %>
* Name " size="40">
* Title " size="40">
* Company " size="40">
* Address " size="40">
* City " size="40">
* State/Province
* ZIP/Postal Code " size="40">
* Country
  Phone " size="40">
  Fax " size="40">
* Email " size="40">
* Password " size="40">
  Terms and Conditions
*  
I have read the Terms and Conditions above, and I accept them as a condition of my use of this site.
   
 
Click here to learn more and see advertising rates
 

<% sql="select c_image, c_url from t_intelligencer_banner where c_volume='" & f_volume & "' and c_issue='" & f_issue & "' and c_position=6" rs.open sql, strconn if not rs.eof then f_image=rs("c_image") else f_image="ad_banner650x90.gif" if not rs.eof then f_url=rs("c_url") else f_url="www.lab400.com/adrates.asp" rs.close %> <%=f_url%>