%@ 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: Megans_Law_Real_Estate.asp
'-------------------------------
' Megans_Law_Real_Estate Custom Includes begin
Dim page
Dim pageName
Dim Cities
Dim Counties
page = "Megans_Law_Real_Estate"
pageName = "Megans_Law_Real_Estate"
%>
<%
' Megans_Law_Real_Estate CustomIncludes end
'-------------------------------
'===============================
' Save Page and File Name available into variables
'-------------------------------
sFileName = "Megans_Law_Real_Estate.asp"
sTemplateFileName = "Skin/Megans_Law_Real_Estate.html"
'===============================
'===============================
'Save the name of the form and type of action into the variables
'-------------------------------
sAction = GetParam("FormAction")
sForm = GetParam("FormName")
'===============================
' Megans_Law_Real_Estate Show begin
'===============================
' Display page
'-------------------------------
' Load HTML template for this page
'-------------------------------
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 PrintVar("main")
' Megans_Law_Real_Estate Show end
'-------------------------------
' Destroy all object variables
'-------------------------------
' Megans_Law_Real_Estate Close Event begin
' Megans_Law_Real_Estate Close Event end
UnloadTemplate
'===============================
'===============================
' FUNCTIONS
'-------------------------------
'===============================
' Display
'===============================
Sub Load_Cities_Counties()
Counties = replaceLastComma(Session("counties"))
Cities = replaceLastComma(Session("cities"))
End Sub
'===============================
' Display Search Form
'-------------------------------
Sub Item_Show()
%>
<%
For totalDynamics = 1 to DynamicVarIndex
aDVar = DynamicVarItem(totalDynamics) & ",load"
SetScript aDVar , DynamicVar(totalDynamics)
Next
Parse "FormSearch", False
End Sub
'===============================
%>
 |
 |
 |