20 Authority Drive, Fitchburg, MA 01420 Phone: 978-348-1989 | Fax: 978-348-1128 | info@geosearchinc.com

<% If Request("submit") = "Submit Form" Then Call ProcessForm() Else %>

Registration Information

Contact Information

Contact:  >

Company:  >

Email Address:  >

Fax Number:  >

Method of Reply:  Fax   Email

User Name:  >

Password:  >

Confirm Password:  >

	Close Window

<% end if %> <% SUB ProcessForm() m_company = Request("Company") m_company = Replace(m_company, "'", "''") m_email = Request("Email") m_email = Replace(m_email, "'", "''") m_fax = Request("Fax") m_fax = Replace(m_fax, "'", "''") m_ReplyMethod = Request("ReplyMethod") m_ReplyMethod = Replace(m_ReplyMethod, "'", "''") m_contact = Request("Contact") m_contact = Replace(m_contact, "'", "''") m_username = Request("UserName") m_username = Replace(m_username, "'", "''") m_Pword = Request("Pword") m_Pword = Replace(m_Pword, "'", "''") Dim Conn, dbPath dbPath = "D:\Websites\geosearchinc.com\GeosearchDB\GeoSearch.mdb" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath SQL = "SELECT UserName FROM USERS WHERE (ltrim(USERNAME) = '" & Request("UserName") & "')" Set CheckUser = Conn.Execute(SQL) If not CheckUser.EOF then m_checkUserName = CheckUser("UserName") Else m_checkUserName = "" End IF IF m_checkUserName = m_username THEN Response.write "
The user name " & m_username & " already exists. Please go back and choose a different user name
" Response.write "
" ELSE SQL = "Insert Into Users (Company, Email, Fax, ReplyMethod, Contact, UserName, Pword, DateTimeStamp)" _ & " Values ('"& m_Company &"', '"& m_Email &"', '"& m_Fax &"', '"& m_ReplyMethod &"', '"& m_Contact &"', '"& m_UserName &"', '"& m_Pword &"', NOW)" Set InsertUser = Conn.Execute(SQL) SQL = "Select Max(UserID) from Users" Set GetID = Conn.Execute(SQL) m_id = GetID(0) Session("UserID") = m_id %>

Thank You for registering! Click here to continue

<% END IF END SUB %>