MyLoanOfficerSite

<%@ LANGUAGE=vbscript enablesessionstate=false LCID=1033 %> <% PageName = "your@email.com" %> <% Dim Connect, OnBanking_DB Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql159.secureserver.net;PORT=3306;DATABASE=freeloan;USER=freeloan;PASSWORD=dmp2006;OPTION=0;" Set OnBanking_DB = Conn.Execute("SELECT * FROM FLOS_DB WHERE cust_email = '" & PageName & "'") IF OnBanking_DB.EOF then %> <% exists = "no" %> <% else Cust_Email = OnBanking_db("cust_email") Company_Name = OnBanking_db("Company_Name") Cust_FirstName = OnBanking_db("cust_FirstName") Cust_LastName = OnBanking_db("cust_LastName") Cust_Password = OnBanking_db("Cust_Password") Address1 = OnBanking_db("Address") City = OnBanking_db("City") State = OnBanking_db("State") Zip = OnBanking_db("Zip") Phone = OnBanking_db("Phone") photo = OnBanking_db("photo") locell = OnBanking_db("locell") logo = OnBanking_db("logo") Fax = OnBanking_db("Fax") Bio1 = OnBanking_db("Bio1") Bio2 = OnBanking_db("Bio2") features = OnBanking_db("features") end if %> MyLoanOfficerSite

MyLoanOfficerSite.com

<% if (features AND 4) then %> <%end if %> <% if (features AND 8) then %> <%end if %> <% if (features AND 16) then %> <%end if %> <% if (features AND 32) then %> <%end if %>

Home

Contact

My Contact Information

<% if (features AND 1) then %>

<%end if %> <% = Cust_firstname %> <% = Cust_lastname %>