<%@ 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: Finacial_and_Financing_Real_Estate.asp
'-------------------------------
' Finacial_and_Financing_Real_Estate Custom Includes begin
Dim page
Dim pageName
Dim Cities
Dim Counties
page = "Finacial_and_Financing_Real_Estate"
pageName = "Finacial_and_Financing_Real_Estate"
Session("expired") = "No"
%>
<%
' Finacial_and_Financing_Real_Estate CustomIncludes end
'-------------------------------
'*** TOOLS ***
root=Replace(server.MapPath("AdminOwnerXML.html"),"AdminOwnerXML.html","")
'set fso = Server.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
'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
'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "Finacial_and_Financing_Real_Estate.html"
sTemplateFileName = "Skin/Finacial_and_Financing_Real_Estate.html"
'===============================
'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' Finacial_and_Financing_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"))
' Finacial_and_Financing_Real_Estate Show end
'-------------------------------
' Destroy all object variables
'-------------------------------
' Finacial_and_Financing_Real_Estate Close Event begin
' Finacial_and_Financing_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("Finacial_and_Financing_Real_EstateMessage") <> "" Then
SetScript "PutYourContentHere","
"
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
'===============================
%>
North American Home Funding is dedicated to providing expert advice and service during every step of your home purchase experience including Bad Credit Mortgage Loans and our Credit Repair Guide.
Term Life Insurance Database at Wholesale Insurance: Compare life insurance quotes and term life insurance rates from ALL top life insurance companies.
Welcome to Best Tax Settlements, a premier Tax Resolution and Settlement Company that will fight the IRS tooth and nail for you if you have issues regarding Back Taxes
If you been in business for at least 1 year and process a minimum of $2,500 in credit cards, you may qualify for an Unsecured Loan.
.
JENNIFER ROBINSON
REALTOR,
ABR
Roland
Daniel Properties
|
124 Follins Lane
|
St. Simons Island, GA 31522
Office 912-638-6373
|
Cell 912-223-1974
|
Fax 912-638-0789 www.stsimons-realestate.com
