<% ' Server Information Public g_RootFolderPath Public g_ReadWritePath Select Case lcase(g_ServerDomain) case "www.amciss.co.uk","amciss.co.uk" g_RootFolderPath = "F:\FCFUHMDP74S1491J\www.amciss.co.uk\" g_ReadWritePath = "F:\FCFUHMDP74S1491J\www.amciss.co.uk\" case "www.onlineauctionshop.co.uk", "onlineauctionshop.co.uk" g_RootFolderPath = "D:\hshome\onlineauctionsho\onlineauctionshop.co.uk\amciss\" g_ReadWritePath = "D:\hshome\onlineauctionsho\private\" case else ' development server g_RootFolderPath = "G:\shared\wwwroot\amciss\site\" g_ReadWritePath = "G:\shared\wwwroot\amciss\" End Select ' Database being used Const g_DatabaseType = "access" ' access, sqlserver, mysql Public g_DbaseConnection ' Database Login Details Const g_DatabaseUser = "admin" '"admin" Const g_DatabasePass = "" ' "" Const g_DatabaseName = "" '"marketplace" Const g_DatabaseDSN = "" ' if applicable Const g_DatabaseServer = "" Dim g_DatabasePath g_DatabasePath = g_ReadWritePath & ".mdb" ' if applicable ' Admin Const g_AdminLoginUsername = "admin" Const g_AdminLoginPassword = "amciss09" ' Email Const g_EmailHost = "mail.amciss.co.uk" Const g_EmailPort = "" Const g_EmailComponent = "cdo" ' AspEmail, CDonts, CDO Const g_EmailFrom = "Amciss" Const g_EmailFromName = "Amciss" Const g_EmailQueue = true ' true or false ' Hosting Control Panel Const g_HostingLogin = "amciss" Const g_HostingPassword = "amciss09" Dim g_HostingControlPanel g_HostingControlPanel = "https://cp.dc-servers.com/psoft/servlet/psoft.hsphere.CP?action=login&ftemplate=design/login.html&requestURL=&login=" & g_HostingLogin & "&password=" & g_HostingPassword %>