Seitz Corporation

<% Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = "DRIVER=SQL Server;server=64.106.150.189;uid=brsql;pwd=sql2tdst;database=seitz;" conn.Open if query("logout") = "true" then session("client") = "" session("product") = "" end if function sendWelcome(fname,email,username,password) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.ContentType = "text/html" Mailer.FromName = "seitz.com" Mailer.FromAddress= "info@fathom.net" Mailer.RemoteHost = "mail.room960.com" Mailer.AddRecipient email,email Mailer.Subject = "Welcome to Quick Gears" Set rsContacts = Conn.Execute("Select * from contacts") tname = rsContacts("firstname") & " " & rsContacts("lastname") tinfo = rsContacts("Firstname") & " " & rsContacts("lastname") & "
E-mail: " & rsContacts("email") & "
" if rsContacts("phone") <> "" then tinfo = tinfo & "Phone: " & rsContacts("phone") & "
" end if if rsContacts("fax") <> "" then tinfo = tinfo & "Fax: " & rsContacts("fax") & "
" end if rsContacts.movenext if not rsContacts.eof then tname = tname & " or " & rsContacts("firstname") & " " & rsContacts("lastname") tinfo = "

" & tinfo & "

" & rsContacts("Firstname") & " " & rsContacts("lastname") & "
E-mail: " & rsContacts("email") & "
" if rsContacts("phone") <> "" then tinfo = tinfo & "Phone: " & rsContacts("phone") & "
" end if if rsContacts("fax") <> "" then tinfo = tinfo & "Fax: " & rsContacts("fax") & "
" end if tinfo = tinfo & "

" end if Mailer.BodyText = "" & fname & ",
Welcome to Quick Gears and Seitzcorp.com. We are pleased to celebrate 50 Years of manufacturing excellence! Feel free to use the Quick Gears application any time to receive rapid quotes on all-plastic gears and pulleys, or as a way to contact a Seitz sales representative. To make logging-in to Quick Gears as easy and fast as possible, use the username and password you have chosen below:

username: " & username & "
password: " & password & "

If you would prefer, you may contact " & tname & " at any time using the following information:

" & tinfo & "
Once again, thank you for your interest in Quick Gears and seitzcorp.com,

Seitz Corporation" if not Mailer.SendMail then response.write(Mailer.Response) response.end end if rsContacts.close set rsContacts = nothing end function continue = false if query("new") = "true" then if form("username") = "" or form("password") = "" or form("firstname") = "" or form("lastname") = "" or form("address") = "" or form("city") = "" or form("state") = "" or form("zipcode") = "" or form("phone") = "" then error = "Please fill in all information." elseif form("password") <> form("password2") then error = "Your passwords do not match, please re-enter them." else set rsTemp = Conn.Execute("Select * from clients where username = '" & fc(form("username")) & "'") if not rsTemp.eof then error = "That username is already being used, please choose a different one." else Conn.Execute("Insert into clients (visited, company, email, username, password, firstname, lastname, address, address2, city, state, zipcode, phone, fax, dateadded, IPaddress) values ('y','" & fc(form("company")) & "','" & fc(form("email")) & "','" & fc(form("username")) & "','" & fc(form("password")) & "','" & fc(form("firstname")) & "','" & fc(form("lastname")) & "','" & fc(form("address")) & "','" & fc(form("address2")) & "','" & fc(form("city")) & "','" & fc(form("state")) & "','" & fc(form("zipcode")) & "','" & fc(form("phone")) & "','" & fc(form("fax")) & "','" & now & "','" & Request.ServerVariables("REMOTE_HOST") & "')") set rsTemp = Conn.Execute("Select * from clients where username = '" & fc(form("username")) & "'") if form("email") <> "" then sendWelcome form("firstname"),form("email"),form("username"),form("password") end if continue = true session("client") = rsTemp("id") session("type") = "new" end if end if elseif query("update") <> "" then if form("username") = "" or form("password") = "" then error = "Please fill in all information." elseif form("password") <> form("password2") then error = "Your passwords do not match, please re-enter them." else Conn.Execute("Update clients set company = '" & fc(form("company")) & "', username = '" & fc(form("username")) & "', password = '" & fc(form("password")) & "', visited = 'y' where id = " & query("update")) Set rsGrab = Conn.Execute("Select * from clients where ID = " & query("update")) if rsGrab("email") <> "" then sendWelcome rsGrab("firstname"),rsGrab("email"),form("username"),form("password") end if rsGrab.close set rsGrab = nothing continue = true session("client") = query("update") session("type") = "previous" end if elseif form("username") <> "" then if form("password") = "" then error = "Please enter both your username and password" else Set rsTemp = Conn.Execute("Select id,password from clients where username = '" & fc(form("username")) & "'") if rsTemp.eof then error = "We could not find your username, please re-enter it." elseif form("password") <> rsTemp("password") then error = "Your password is incorrect!" else continue = true session("client") = rsTemp("id") end if rsTemp.close set rsTemp = nothing end if end if if continue = true then response.redirect("quickgears_start.asp") end if %> Seitz Corporation

Welcome to the Quick Gears sales area !

This feature will be available soon! Please contact your sales representative for more information about Quick Gears.


Seitz Corporation • 212 Industrial Lane • Torrington, CT 06790 • 1. 800.261.2011 • info@seitzcorp.com