<% option explicit
Response.Buffer = True
'@BEGINVERSIONINFO
'@APPVERSION: 5.3001.0.1
'@FILENAME: default.asp
'@DESCRIPTION: Search Page
'@STARTCOPYRIGHT
'The contents of this file is protected under the United States
'copyright laws and is confidential and proprietary to
'LaGarde, Incorporated. Its use or disclosure in whole or in part without the
'expressed written permission of LaGarde, Incorporated is expressly prohibited.
'
'(c) Copyright 2002, by The Magic Box. All rights reserved.
'@ENDCOPYRIGHT
'@ENDVERSIONINFO
On Error Resume Next
dim rsAdmin, sStoreName,sSSLpath,sDomain,sSql
'Response.Write Session("CurrencyISO")
%>
Middle Georgia Clean Cities
<%
set rsAdmin = server.CreateObject("adodb.recordset")
sSQL = "Select adminSSLPath, adminDomainName,adminStoreName from sfAdmin"
rsAdmin.Open sSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
sSSLpath = trim(rsadmin.Fields("adminSSLPath"))
sDomain =trim(rsadmin.Fields("adminDomainName"))
sStoreName = rsadmin.Fields("adminStoreName")
closeObj(rsAdmin)
%>
Cleaning up the air will let
us all breath a little easier about the future.
