<% ' pyhsical location of directories and paths LocationPhyPath & 'LocationPhyPath = "/test/kingsburyemail/web/" 'LocationPhyPath = "/test/kingsburyweb/web/" LocationPhyPath = "/website/web/" %> <% ' ************************************************************************* ' This page will read in all the configuration settings from the database ' ************************************************************************* dim MAIL_SERVER dim MAIL_COMPONENT dim SENDER_EMAIL dim SENDER_EMAIL_NAME dim CONFIRMATION_EMAIL_CONTENT dim CONFIRMATION_EMAIL_SUBJECT dim ADMIN_USERNAME dim ADMIN_PASSWORD query = "select * from config where id = 1" Set rsConfig = CreateObject("ADODB.Recordset") rsConfig.CursorType = 3 set rsConfig.ActiveConnection = DBConn rsConfig.Source = query rsConfig.Open if not rsConfig.EOF then MAIL_SERVER = rsConfig("MailServer") MAIL_COMPONENT = rsConfig("MailComponent") SENDER_EMAIL = rsConfig("SenderEmail") SENDER_EMAIL_NAME = rsConfig("SenderEmailName") CONFIRMATION_EMAIL_CONTENT = rsConfig("ConfirmationEmailContent") CONFIRMATION_EMAIL_SUBJECT = rsConfig("ConfirmationEmailSubject") ADMIN_USERNAME = rsConfig("AdminUsername") ADMIN_PASSWORD = rsConfig("AdminPassword") end if rsConfig.Close set rsConfig = nothing %>