<%@ Language=VBScript %> <%Option Explicit%> <% Response.Buffer = true %> SoftCad 3D Download <% 'put this on pages that require log in vLogin_id = ForceLogin( Request.Cookies("BPLN")("Scrbl") ) %> <% if Session("feature_set")<2 then Response.Redirect("/common/mustprovideInfo.asp?originalpage="&Request.ServerVariables("SCRIPT_NAME")) end if %> <% dim conn dim vSQL dim vRec dim vFirstname, vLastName, vDesktopName, vSuccess, vFeatset dim vBizName, vBizAddr, vBizCity, vSelectedState, vZip, vPhone, vFax, vEmail_reg, vEmail_comp, vUrl dim vName, vContact, vPhone1,vEmail dim vTitle,vBizType,vBizAddr2,vHmphone, vCountry, vCountry1, vPref_lang %> <% set conn = server.CreateObject("adodb.connection") conn.Open Application("DBName"),Application("DBUser"),Application("DBPswd") vSQL = "GetSoftCadprof '" & vLogin_id & "'" set vRec = conn.Execute ( vSQL ) if( not vRec.EOF ) then vPhone1 = vRec("officephone1") vEmail = vRec("reg_email") vName = vRec("first_name") & " " & vRec("last_name" ) vContact = vRec("address1") & "
" & vRec("city1") & ", " & vRec("state1") & ", " & vRec("zip1") vBizName = vRec("company_name") vTitle = vRec("title") vBizType= vRec("biz_Cat2") vBizAddr2 = vRec("address2") vHmphone= vRec("homephone1") vCountry1= vRec("country") vPref_lang = vRec("preferredlang") vFax= vRec("fax1") else vSQL = "GetuAdminProf '" & vLogin_id & "'" set vRec = conn.Execute ( vSQL ) vPhone1 = vRec("phone1") vPhone = vPhone1 vEmail = vRec("comp_email") 'set form information vName = vRec("first_name") & " " & vRec("last_name" ) vContact = vRec("address1") & "
" & vRec("city1") & ", " & vRec("state1") & ", " & vRec("zip1") vBizName = vRec("company_name") vFirstname = vRec("first_name") vLastName = vRec("last_name") vBizAddr = vRec("address1") vBizCity = vRec("city1") vSelectedState = vRec("state1") vZip = vRec("zip1") vFax = vRec("fax1") vEmail_reg = vRec("reg_email") vTitle = "" vBizType= "" vBizAddr2 = "" vHmphone= "" vCountry1= "United States" vPref_lang = "English" end if %> <% dim vTarget vTarget = Request.QueryString("target") if Request.QueryString("target")<>"" then 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 Dim myMail Set myMail = Server.CreateObject("CDONTS.NewMail") myMail.From = "admin@buildersplanet.com" myMail.To = "softcad@buildersplanet.com" myMail.Subject = "Download From BuildersPlanet.com" myMail.Body = "Subject = s3d_lite"_ & vbCRLF & "Text_File_Location= usa_note_s3dlite.txt"_ & vbCRLF & "Language=ENGLISH"_ & vbCRLF & "DOWNLOAD_PAGE= http://www.buildersplanet.com"_ & vbCRLF & "NOTE=Downloaded S3D lite"_ & vbCRLF & "PreferredLanguage = " & vPref_lang & vbCRLF & "E-mail = " & vEmail & vbCRLF & "FirstName = " & vRec("first_name") & vbCRLF & "LastName = " & vRec("last_name" ) & vbCRLF & "Title = " & vTitle & vbCRLF & "Company = "& vBizName& vbCRLF & "BusinessType = " & vBizType & vbCRLF & "Address1 = " & vRec("address1")& vbCRLF & "Address2 = " & vBizAddr2 & vbCRLF & "Zip Code = " & vRec("zip1") & vbCRLF & "City = " & vRec("city1") & vbCRLF & "State = " & vRec("state1")& vbCRLF & "Country = "& vCountry1 & vbCRLF & "Officephone = " & vPhone1 & vbCRLF & "OFFICE_EMAIL = info@softcad.com" & vbCRLF & "HomePhone = "& vHmphone & vbCRLF & "Fax = "& vFax myMail.Send Set myMail = Nothing Response.Redirect("http://www.buildersplanet.net/downloads/"& Request.QueryString("target")) end if %> ">
BuildersPlanet.comBuildersPlanet Home Page
Marketplace Job Bank Buy/Sell Community News Services
Register at BuildersPlanet.com
This information is being provided to SoftCad to register this download.
Download SoftCAD.3D Lite 1.16 English Version now (7.7K)
Name: <%=vName%>
Title: <%=vTitle%>
Company: <%=vBizName%>
Address: <%=vContact%>
Address 2: <%=vBizAddr2%>
Phone: <%=vPhone1%>
Fax: <%=vFax%>
Phone 2: <%=vHmphone%>
E-mail: <%=vEmail%>
Business Type: <%=vBizType%>
Country: <%=vCountry1%>
Preferred Language: <%=vPref_lang%>

Metric Version  (8.1K)
Training  (1.1K)
Adobe Acrobat Reader  

Change this information