<%@ Language="VBScript" %> <% Dim Conn, Rs, searchID, strSQL, strImgNum, filePath,folderNum ' Create ADO Connection Component to connect with the database Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") ' Filename: Insurance_Real_Estate.asp '------------------------------- ' Insurance_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Insurance_Real_Estate" pageName = "Insurance_Real_Estate" Session("expired") = "No" %> <% ' Insurance_Real_Estate CustomIncludes end '------------------------------- '*** TOOLS *** '** FROM FILE ** root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","") 'Set fso = CreateObject("Scripting.FileSystemObject") 'If fso.fileexists(Root & "alreadyAsked.txt") then 'set f = fso.OpenTextFile(Root & "alreadyAsked.txt", 1) 'sHTML2 = f.ReadAll() 'set f=nothing 'End If '** REMOTE XML ** 'sHTML = "" 'url = "http://www.nailsoupmedia.com/PostLinkLetter.html" ''Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") 'Set xml = Server.CreateObject("Microsoft.XMLHTTP") 'xml.Open "GET", url, False 'xml.Send 'sHTML = xml.responseText 'set xml=nothing '** REMOTE DATABASE ** 'Set Conn = Server.CreateObject("ADODB.Connection") 'Set Rs = Server.CreateObject("ADODB.Recordset") 'Conn.Open "Provider=sqloledb;" & _ ' "Data Source=216.127.88.120,2433;" & _ ' "Network Library=dbmssocn;" & _ ' "Initial Catalog=Accounting;" & _ ' "User ID=sa;" & _ ' "Password=buckler;" 'rs.Open SQL,conn,1,1 'rs.Close 'conn.Close 'set rs=Nothing 'set conn=Nothing ' Set conn = CreateObject("ADODB.Connection") ' Set rs = Server.CreateObject("ADODB.Recordset") ' filePath = Server.MapPath("AdminMyStuff.html") ' conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & filePath ' strSQL = "SELECT * FROM MyListings ORDER BY ID Desc" ' Set rs = conn.Execute(strSQL) ' rs.Movefirst 'rs.Close 'conn.Close 'set rs=Nothing 'set conn=Nothing '=============================== ' Save Page and File Name available into variables '------------------------------- sFileName = "Insurance_Real_Estate.html" sTemplateFileName = "Skin/Insurance_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Insurance_Real_Estate Show begin '=============================== ' Display page '------------------------------- ' Load HTML template for this page '------------------------------- 'Dim LoadedPage 'LoadedPage = LoadTemplate2 (sAppPath & "Skin/Objects/AutoBlog.html") LoadTemplate sAppPath & sTemplateFileName, "main" '------------------------------- ' Load HTML template of Header and Footer '------------------------------- '------------------------------- SetVar "FileName", sFileName '------------------------------- ' Step through each form '------------------------------- 'OpenDB Load_Cities_Counties Item_Show '------------------------------- Parse "main", True '------------------------------- ' Output the page to the browser '------------------------------- Response.write fixPage(PrintVar("main")) ' Insurance_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Insurance_Real_Estate Close Event begin ' Insurance_Real_Estate Close Event end UnloadTemplate '=============================== '=============================== ' FUNCTIONS '------------------------------- '=============================== ' Display '=============================== Sub Load_Cities_Counties() Counties = replaceLastComma(Session("counties")) Cities = replaceLastComma(Session("cities")) End Sub Function ShowMyListings Dim con Dim rst Set con = CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") filePath = Server.MapPath("AdminMyStuff.html") con.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & filePath strSQL = "SELECT * FROM MyListings ORDER BY ID Desc" Set rst = con.Execute(strSQL) rst.Movefirst Response.Write While not rst.EOF Response.Write "" & rst("mls") & "
" rst.MoveNext Wend con.Close:set rst=Nothing : set con = Nothing End Function '=============================== ' Display Search Form '------------------------------- Sub Item_Show() %> <% If LoadedPage <> "" Then SetScript "PutYourContentHere",LoadedPage Else If Request("Insurance_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Insurance_Real_EstateMessage") & "
" End If End if For totalDynamics = 1 to DynamicVarIndex aDVar = DynamicVarItem(totalDynamics) & ",load" SetScript aDVar , DynamicVar(totalDynamics) Next SetScript "MyListings",ShowMyListings Parse "FormSearch", False End Sub '=============================== %>
 

 

5700 Veterans Parkway

Columbus, GA 31904

Direct : 706-718-4690
Office: 706-321-0370

 

 
     Home | Contact | Featrued Listings

  Buyers | Sellers | Reports | Search | Home Values | F.S.B.O | Financing | Todays Rates | About | Contact
  • Blue Shield Of California

    • CAP Insurance Online.com have been helping people in California save money on their Health Insurance for over 29 years.
  • California Health Insurance Plan

    • Fasthealthquotes Services is one of the leading producers for Blue Cross of California, california medical insurance.
  • California Medical Insurance

    • Baahealthinsurance.com is a top-rated health insurance site for locating, comparing and purchasing California medical insurance, California health insurance and blue cross of California.
  • California Medical Insurance

    • BAA Health Insurance Services is one of the leading producers for Blue Cross of California. We can find you the right Blue Cross of California plan based on your individual circumstances.


  • Discount Auto Insurance

    • America''s #1 online insurance agency. Compare instant auto insurance quotes, car insurance quotes, life insurance quotes and more.
  • Health Insurance Indiana

    • IndyHealthInsurance.com providing low cost Indiana health insurance, Indiana Health Insurance Broker, affordable individual health insurance, healthcare plans from Indiana health.
  • Health Insurance Plan Texas

    • We provide Affordable Health Individual Insurance Quote Texas, Blue Cross Blue Shield Of Texas, Family Health Insurance Plan Texas to individuals and families along with honest, helpful advice.
  • Illinois Small Business Health Insurance

    • AffordableHealthInsurancePlan.com Specialize in Group Health Illinois Individual Insurance Plan and Illinois Affordable Family Health Insurance Quote.


  • Online Disability Insurance Quote

    • Disability-insurance-protection.com provides high performing free quote and products for all of your Disability Insurance,California health insurance, Blue cross of california needs.
  • Outsourcing Debt Collection

    • If you have overdue Debt Collections, Account Receivable Factoring in your business, you need to check out the PS II system.
  • Texas Health Insurance

    • At KramerInsurance.com, we?re dedicated to bringing you the lowest medical insurance quotes, quickly and conveniently.

      Buyers | Sellers | Relocation | Blog | Financing | Columbus | Search | Testimonials | Login | About | Contact

     

    Equal Housing Opportunity - Columbus Real Estate ?2007 All Rights Reserved - Privacy Statement

    *Military Family Relocation