<% dist_id = session("dist_id") business_name = CheckString(Request.Form("business_name")) contact_name = CheckString(Request.Form("contact_name")) email = CheckString(Request.Form("email")) addr1 = CheckString(Request.Form("addr1")) addr2 = CheckString(Request.Form("addr2")) city = CheckString(Request.Form("city")) state = CheckString(Request.Form("state")) zip = CheckString(Request.Form("zip")) phone = CheckString(Request.Form("phone")) fax = CheckString(Request.Form("fax")) username = "" password = CheckString(Request.Form("password")) if request.form("submit") = "Submit" then sql = "insert into distributor (business_name) values('" & business_name & "')" conn.Execute(Sql) sql = "select max(dist_id) from distributor" set rs = conn.Execute(sql) dist_id = rs(0) blnUpdate = true blnReg = true elseif request.form("submit") = "Update" then blnUpdate = true end if if blnUpdate then sql = "update distributor set business_name = '" & business_name & "',contact_name = '" & contact_name & "',email = '" & email & "',addr1 = '" & addr1 & "',addr2 = '" & addr2 & "',city = '" & city & "',state = '" & state & "',zip = '" & zip & "',phone = '" & phone & "',fax = '" & fax & "',username = '" & username & "',password = '" & password & "' where dist_id = " & dist_id 'd sql conn.Execute(sql) end if if dist_id = "" then dist_id = 0 sql = "select * from distributor where dist_id = " & dist_id set rs = conn.Execute(sql) on error resume next if rs.eof then subCap = "Submit" else subCap = "Update" end if %>

Distributor Registration

<%if blnReg then%> Your registration has been entered. You will be notified upon approval by Lynx Power Systems <%else%>
Company Name: " size=50>
Contact Name: " size=50>
Email: " size=50>
Address: " size=50>
Address: " size=50>
City, St. Zip: " size=30> "> " size=12>
Phone: ">
Fax: ">
Password: ">
<%if subCap = "Update" then%> <%end if%> <%end if%>