%@ 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 GuaranteedMidcentury Palm Springs Palm Springs real estate service, mid-century, architectural, modern and Alexander homes.
Power Bound Electrical Serving San Jacinto and HemetRed 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 designsTennessee 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 heater s give you instant on demand hot water, with no noisy furnace. Environment and cost friendly.