<%@ 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: Home_Design_&_Repair_Real_Estate.asp '------------------------------- ' Home_Design_&_Repair_Real_Estate Custom Includes begin Dim page Dim pageName Dim Cities Dim Counties page = "Home_Design_&_Repair_Real_Estate" pageName = "Home_Design_&_Repair_Real_Estate" Session("expired") = "No" %> <% ' Home_Design_&_Repair_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 = "Home_Design_&_Repair_Real_Estate.html" sTemplateFileName = "Skin/Home_Design_&_Repair_Real_Estate.html" '=============================== '=============================== 'Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' Home_Design_&_Repair_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")) ' Home_Design_&_Repair_Real_Estate Show end '------------------------------- ' Destroy all object variables '------------------------------- ' Home_Design_&_Repair_Real_Estate Close Event begin ' Home_Design_&_Repair_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("Home_Design_&_Repair_Real_EstateMessage") <> "" Then SetScript "PutYourContentHere","


" & Request("Home_Design_&_Repair_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 '=============================== %>






Hemet Real Estate 951-533-0363
951-533-2252
  • Bluebird Country Crafts

    • Beautiful quilted home accessories including table toppers and quilts. Custom embroidery and design digitizing services. Country crafts and wedding accessories.
  • Enviroments for Living

    • Heating and Cooling Performance Guaranteed
  • Midcentury Palm Springs

    • Palm Springs real estate service, mid-century, architectural, modern and Alexander homes.
  • Power Bound Electrical

    • Serving San Jacinto and Hemet


  • Red Exerciser

    • The Red Exerciser is the only abdominal machine you will ever need to burn calories, lose weight and get the most out of your core exercise
  • Tennessee Log Homes

    • Tennessee Log Homes web site has log homes packages, log homes pictures, log homes floor plans, log homes financing info, free log homes brochures, log homes construction tips, custom log homes designs
  • Tennessee Timberframe

    • Tennessee Timberframe uses only the highest quality timbers for its frames. We specialize in Douglas Fir and Eastern White Pine and have many other species available, such as Cedar, Spruce and Oak.
  • Wall Hung Boiler | Tankless Water Heater | On Demand Hot Water Heater

    • Baxi tankless water heaters give you instant on demand hot water, with no noisy furnace. Environment and cost friendly.