%
'==========================================================
'Livinguptown.com Application Functions
' Online Engineering ©2007, All Rights Reserved.
'Developer Info:
' Online Engineering
' 718 N. Poplar Street #2A
' Charlotte, NC 28202
' http://www.onlinengineering.com
'
'Version: 1.0 - Date: 4/3/2007
'================================================================
'Name: appFunctions.asp
'Description: Contains all of the global functions used within
' the application. This includes functions for
' accessing the database.
'================================================================
Dim sql
Dim rcSet
Function cleanString(str)
cleanString = Replace(str,"'","''")
End Function 'cleanString
Function strEmpty(str)
strEmpty = False
If str = "" OR IsNull(str) Then strEmpty = True
End Function 'strEmpty
Function strParam(strTestValue,strDefaultValue)
strParam = strTestValue
If strEmpty(strParam) Then strParam = strDefaultValue
End Function 'strParam
Function appOpenQuery(strSQL)
Set appOpenQuery = Server.CreateObject("ADODB.Recordset")
With appOpenQuery
.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\hosting\livinguptown\_private\realestateDB.mdb;User ID=;Password=;"
.Source = strSQL
.CursorType = 3
.CursorLocation = 2
.LockType = 1
.Open()
End With
End Function 'appOpenQuery
'==================================================================================================================================
Function appExecuteQuery(strSQL)
Dim cmdExecute : Set cmdExecute = Server.CreateObject("ADODB.Command")
With cmdExecute
.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\hosting\livinguptown\_private\realestateDB.mdb;User ID=;Password=;"
.CommandText = strSQL
.Execute()
.ActiveConnection.Close
End With
Set cmdExecute = Nothing
End Function 'appExecuteQuery
'==================================================================================================================================
Function appOpenQuerySQL(strSQL)
Set appOpenQuerySQL = Server.CreateObject("ADODB.Recordset")
With appOpenQuerySQL
.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\hosting\livinguptown\_private\realestateDB.mdb;User ID=;Password=;"
.Source = strSQL
.CursorType = 3
.CursorLocation = 2
.LockType = 1
.Open()
End With
End Function 'appOpenQuery
'==================================================================================================================================
Function appExecuteQuerySQL(strSQL)
Dim cmdExecute : Set cmdExecute = Server.CreateObject("ADODB.Command")
With cmdExecute
.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\hosting\livinguptown\_private\realestateDB.mdb;User ID=;Password=;"
.CommandText = strSQL
.Execute()
.ActiveConnection.Close
End With
Set cmdExecute = Nothing
End Function 'appExecuteQuery
'==================================================================================================================================
Sub appCloseRS(rs)
If IsObject(rs) Then
rs.Close
Set rs = Nothing
end if
End Sub 'closeRecordset
'======================================================Form Error Subroutine=======================================================
Sub formError(byRef errorVar,strErr)
If NOT IsArray(errorVar) Then
ReDim errorVar(0)
errorVar(0) = strErr
Else
ReDim Preserve errorVar(UBound(errorVar)+1)
errorVar(UBound(errorVar)) = strErr
End If
End Sub 'formError
'==================================================================================================================================
'====================================================Get Error Subroutine==========================================================
Function getError(errorVar,strErr)
Dim x
getError = False
If IsArray(errorVar) Then
For x = 0 to UBound(errorVar)
If LCase(errorVar(x)) = LCase(strErr) Then
getError = True
Exit Function
End If
Next
End If
End Function 'getError
'==================================================================================================================================
'====================================================setFieldLabel Subroutine======================================================
Function setFieldLabel(errorObject,strLabel,errorString)
If getError(errorObject,errorString) Then
setFieldLabel = "" & strLabel & " "
Else
setFieldLabel = strLabel
End If
End Function 'setFieldLabel
'==================================================================================================================================
Function ValidateEmail(str)
ValidateEmail = false
Dim regEx, retVal
Set regEx = New RegExp 'Create regular expression
regEx.Pattern = "^[a-z0-9][\!-\~]*\@[a-z\d\-\.]+\.[a-z]{2,4}(\.[a-z]{2})?$" 'Set pattern
regEx.IgnoreCase = true 'Set case sensitivity.
retVal = regEx.Test(str) 'Execute the search test.
If NOT retVal Then Exit Function
ValidateEmail = true
End Function
Function GetRandomizedSequencerArray(iArraySize)
Dim arrTemp()
Dim I
Dim iLowerBound, iUpperBound
Dim iRndNumber
Dim iTemp
' Set array size
ReDim arrTemp(iArraySize - 1)
' Init randomizer
Randomize
' Get bounds into local vars for speed
iLowerBound = LBound(arrTemp)
iUpperBound = UBound(arrTemp)
' Insert initial values
For I = iLowerBound To iUpperBound
arrTemp(I) = I
Next
' Loop through the array once, swapping each value
' with another in a random location within the array.
For I = iLowerBound to iUpperBound
' Generate random # in range
iRndNumber = Int(Rnd * (iUpperBound - iLowerBound + 1))
' Swap Ith element with iRndNumberth element
iTemp = arrTemp(I)
arrTemp(I) = arrTemp(iRndNumber)
arrTemp(iRndNumber) = iTemp
Next 'I
' Return our array
GetRandomizedSequencerArray = arrTemp
End Function
Function altRow(intRow)
altRow = "altRowOdd"
If intRow MOD 2 Then altRow = "altRowEven"
End Function
function RTESafe(strText)
'returns safe code for preloading in the RTE
dim tmpString
tmpString = trim(strText)
'convert all types of single quotes
tmpString = replace(tmpString, chr(145), chr(39))
tmpString = replace(tmpString, chr(146), chr(39))
tmpString = replace(tmpString, "'", "'")
'convert all types of double quotes
tmpString = replace(tmpString, chr(147), chr(34))
tmpString = replace(tmpString, chr(148), chr(34))
' tmpString = replace(tmpString, """", "\""")
'replace carriage returns & line feeds
tmpString = replace(tmpString, chr(10), " ")
tmpString = replace(tmpString, chr(13), " ")
RTESafe = tmpString
end function
%>
Articles :: Deborah Cox :: Charlotte NC Real Estate
<%
Dim sqlCategories, rsCategories
Dim sqlPages, rsPages
%>
Deborah Cox, Charlotte NC Real Estate Agent
Real Estate Articles
The articles below offer a variety of information for buyers and sellers. If you have any questions about one
of the articles, please contact Deborah Cox for additional information. Be sure to check back periodically as
we are always adding new articles to the website.
<%
sqlCategories = "SELECT category_ID, category_name, category_folder_name FROM tbl_categories ORDER BY category_sort"
Set rsCategories = appOpenQuery(sqlCategories)
%>
<% Do While Not rsCategories.EOF %>
<%= rsCategories("category_name") %>
<%
sqlPages = "SELECT tbl_articles.article_title, tbl_articles.article_filename " &_
"FROM tbl_articles INNER JOIN tbl_cat_article_rel " &_
"ON tbl_articles.article_ID = tbl_cat_article_rel.rel_article_ID " &_
"WHERE tbl_cat_article_rel.rel_cat_ID = " & rsCategories("category_ID") &_
" ORDER BY article_sort"
Set rsPages = appOpenQuery(sqlPages)
%>
<% rsCategories.MoveNext %>
<% Loop %>
<% appCloseRS(rsCategories) %>
©2007 LivingUptown.com
Web Design by Online Engineering