<%@LANGUAGE=JScript CODEPAGE=1252 %> Add/Edit Contact <% //Response.Write( Request.QueryString() ) var id = new Number( Request.QueryString("Val" ) ) if ( id == -1 ) { rContactName = "" rContactID = -1 rCompanyName = "" rCompanyAddress1 = "" rCompanyAddress2 = "" rCompanyCity = "" rCompanyState = "" rCompanyCity = "" rCompanyZip = "" rCompanyMainPhone = "" rCompanySupportPhone = "" rCompanyFax = "" rCompanyWebSite = "" rContactOccupation = "" rContactAddress1 = "" rContactAddress2 = "" rContactCity = "" rContactState = "" rContactZip = "" rContactPhone = "" rContactEMail = "" } else { g_DBConn = GetDBConnection( Application("SOLUTIONS3") ) var MyData = g_DBConn.Execute("SEP_GetContact " + String( id ) ) if ( !MyData.EOF) { rContactName = MyData("ContactName") rCompanyName = Server.HTMLEncode( MyData("CompanyName") ) rCompanyAddress1 = MyData("CompanyAddress1") rCompanyAddress2 = MyData("CompanyAddress2") rCompanyCity = MyData("CompanyCity") rCompanyState = MyData("CompanyState") rCompanyCity = MyData("CompanyCity") rCompanyZip = MyData("CompanyZip") rCompanyMainPhone = MyData("CompanyMainPhone") rCompanySupportPhone = MyData("CompanySupportPhone") rCompanyFax = MyData("CompanyFax") rCompanyWebSite = MyData("CompanyWebSite") rContactOccupation = MyData("ContactOccupation") rContactAddress1 = MyData("ContactAddress1") rContactAddress2 = MyData("ContactAddress2") rContactCity = MyData("ContactCity") rContactState = MyData("ContactState") rContactZip = MyData("ContactZip") rContactPhone = MyData("ContactPhone") rContactEMail = MyData("ContactEMail") rContactID = Request.QueryString("Val") } else { Response.Write ( "
Contact Data Not Found For: " + Request.QueryString("id") + "
" ) Response.End } } %>
> > >

Edit/Add Contact Information
Company Information
Name
Address1
Address2
City
State
Zip:
Main Phone
Support Phone
Fax
Web Site
Contact Information
Name
Address1
Address2
City
State
Zip
Occupation
Phone
EMail