<%@ Language=VBScript %> <%Option Explicit%> <% Response.Buffer = true %> SoftCad 3D International <% 'put this on pages that require log in vLogin_id = ForceLogin( Request.Cookies("BPLN")("Scrbl") ) %> <% ' connect to the database dim conn ' hold the connect to the database dim vSQL ' holds the sql statement to execute dim vRec ' holds the record from query. ' field vars dim vFirstname, vLastName, vDesktopName, vSuccess, vFeatset dim vBizName, vBizAddr, vBizCity, vSelectedState, vZip, vPhone, vFax, vEmail_reg, vEmail_comp, vUrl dim vTitle, vBizType, vBizAddr2, vHmphone, vCountry1, vPref_lang vDesktopName = Session("login_name") vLogin_id = Session("login_id") set conn = server.CreateObject("adodb.connection") conn.Open Application("DBName"),Application("DBUser"),Application("DBPswd") ' visit to page - get info from db vSQL = "GetSoftCadProf '" & vLogin_id & "'" set vRec = conn.Execute ( vSQL ) if( not vRec.EOF ) then vFirstname = vRec("first_name") vLastName = vRec("last_name") vBizName = vRec("company_name") vBizAddr = vRec("address1") vBizCity = vRec("city1") vSelectedState = vRec("state1") vZip = vRec("zip1") vPhone = vRec("officephone1") vFax = vRec("fax1") vEmail_reg = vRec("reg_email") vTitle = vRec("title") vBizType= vRec("biz_Cat2") vBizAddr2 = vRec("address2") vHmphone= vRec("homephone1") vCountry1= vRec("country") vPref_lang = vRec("preferredlang") else if( vRec.EOF ) then vSQL = "GetuAdminProf '" & vLogin_id & "'" set vRec = conn.Execute ( vSQL ) vFirstname = vRec("first_name") vLastName = vRec("last_name") vBizName = vRec("company_name") vBizAddr = vRec("address1") vBizCity = vRec("city1") vSelectedState = vRec("state1") vZip = vRec("zip1") vPhone = vRec("phone1") vFax = vRec("fax1") vEmail_reg = vRec("reg_email") end if end if %> <% if not isempty( Request.Form("submit") ) then ' the user hit the submit button ' update the admin/biz info vFirstname = Request.Form("firstname") vFirstname = replace(vFirstname,"'","''") vLastName = Request.Form("lastname") vLastName = replace(vLastName,"'","''") vBizName = Request.Form("companyname") vBizAddr = Request.Form("address") vBizCity = Request.Form("city") vSelectedState = Request.Form("states") vZip = Request.Form("zip") vPhone = Request.Form("phone") vFax = Request.Form("fax") vEmail_reg = Request.Form("email") vTitle = Request.Form("title") vBizType= Request.Form("business") vBizAddr2 = Request.Form("address2") vHmphone= Request.Form("phonehome") vCountry1= Request.Form("country") vPref_lang = Request.Form("language") set conn = server.CreateObject("adodb.connection") conn.Open Application("DBName"),Application("DBUser"),Application("DBPswd") vSQL = "SetSoftCadProf'" & vLogin_id & "', '" & vFirstname & "', '" & vLastName & "', '" & vBizName & "', '" & vBizAddr & "', '" & vBizCity & "', '" & vSelectedState & "', '" & vZip & "', '" & vPhone & "', '" & vFax & "', '" & vEmail_reg & "', '" & vTitle & "', '" & vBizType & "', '" & vBizAddr2 & "', '" & vHmphone & "', '" & vCountry1 & "', '" & vPref_lang & "'" conn.Execute ( vSQL ) ' no results 'vSuccess = "Your Information Was updated Successfully
" Response.Redirect("/Affiliates/SoftCad/dwnloadSC.asp") end if %> ">
BuildersPlanet.comBuildersPlanet Home Page  
Marketplace Job Bank Buy/Sell Community News Services
BuildersPlanet.com

Preferred language:

Your E-mail:
(REQUIRED)

 

Last Name:

 

First Name:

 

Title:

 

Company:

 

Type of Business:

 

Address1:

 

Address2:

 

Zip code:

 

City:

 

State/Province:

Country:

Phone Office:

 

Ext

Phone Home:

 

Fax: