% ' Declarations Dim cnDBConn Dim lngUserID, strUserHandle, strUserPwd, blnUserCanSearchResumes, blnIsEmployer, blnCurrentSuspendedForNonPayment Dim NOT_AUTHORIZED Dim ADMIN_ID, ADMIN_HANDLE, ADMIN_PWD Dim GUEST_ID, GUEST_HANDLE, GUEST_PWD Dim HOME, LISTINGS, REGISTER, BUYERS, SELLERS, SEARCH, GUIDE, ADMIN_ADVERTISERS Dim SITE_NAME, SITE_URL, SITE_EMAIL, SITE_BILL_EMAIL, SITE_ID, SITE_NAV_COLOR, SITE_BG_COLOR Dim SITE_FONT, SITE_FONT_HUGE, SITE_FONT_BIG, SITE_FONT_SMALL, SITE_FONT_COLOR, SITE_FONT_NAV_COLOR Dim SITE_REQUIRED_FIELD_COLOR, SITE_REQUIRED_FIELD_COLOR_NAME, SITE_PAYPAL_BUSINESS_NAME Dim SITE_EVEN_ROW_COLOR, SITE_ODD_ROW_COLOR Dim SITE_TABLE_HEADING_COLOR, SITE_TABLE_HEADING_FONT, SITE_TABLE_HEADING_FONT_COLOR DIM SITE_TABLE_BORDER_COLOR, SITE_TABLE_HEADING_FONT_SIZE ' Site Constants SITE_NAME = "Oilfield.com" SITE_URL = "www.oilfield.com" SITE_EMAIL = "info@oilfield.com" SITE_BILL_EMAIL = "info@oilfield.com" SITE_PAYPAL_BUSINESS_NAME = "loridixon@aol.com" SITE_ID = 1 SITE_NAV_COLOR = "#979581" SITE_BG_COLOR = "#5E5957" SITE_FONT = "Verdana" SITE_FONT_HUGE = "6" SITE_FONT_BIG = "2" SITE_FONT_SMALL = "1" SITE_FONT_COLOR = "#000000" SITE_FONT_NAV_COLOR = "#5E5957" SITE_REQUIRED_FIELD_COLOR = "#5E5957" SITE_REQUIRED_FIELD_COLOR_NAME = "GRAY" SITE_EVEN_ROW_COLOR = "#DDD8CE" SITE_ODD_ROW_COLOR = "#979581" SITE_TABLE_BORDER_COLOR = "#5E5957" SITE_TABLE_HEADING_COLOR = "#5E5957" SITE_TABLE_HEADING_FONT = "Verdana" SITE_TABLE_HEADING_FONT_COLOR = "#FFFFFF" SITE_TABLE_HEADING_FONT_SIZE = "2" ' Constants ADMIN_ID = "100000" ADMIN_HANDLE = "Admin" ADMIN_PWD = "oilfield" GUEST_ID = "100001" GUEST_HANDLE = "Guest" GUEST_PWD = "anon" ' Locations NOT_AUTHORIZED = 0 HOME = 1 LISTINGS = 2 REGISTER = 3 BUYERS = 4 SELLERS = 5 GUIDE = 6 ADMIN_ADVERTISERS = 7 ' Database Connection Set cnDBConn = Server.CreateObject("ADODB.Connection") 'cnDBConn.Open "server=laptop;database=OilfieldCom;driver={SQL Server};uid=sa;pwd=;" cnDBConn.Open "server=63.119.175.59;database=oilfield;driver={SQL Server};uid=oilfield;pwd=L900;" ' Check to see if user is logged on If UserIsLoggedOn Then lngUserID = Session("UserID") strUserHandle = Session("UserHandle") strUserPwd = Session("UserPwd") End If ' Functions Function RemoveInvalidChars(strString) Dim liPosition Dim strChar Dim strFinalString strChar = "" strFinalString = "" liPosition = 1 Do While liPosition <= Len(strString) strChar = Mid(strString, liPosition, 1) Select Case strChar Case Chr(39) ' single quote strFinalString = strFinalString & "'" & strChar Case Else strFinalString = strFinalString & strChar End Select liPosition = liPosition + 1 Loop RemoveInvalidChars = strFinalString End Function Function UserIsLoggedOn() If CStr(Session("UserID")) = CStr(GUEST_ID) Then UserIsLoggedOn = False Else UserIsLoggedOn = True End If End Function Function UserIsAdmin() If CStr(Session("UserID")) = CStr(ADMIN_ID) Then UserIsAdmin = True Else UserIsAdmin = False End If End Function Function SendMail(strFromName, strFromAddress, strToName, strToAddress, strSubject, strBody) Dim mlrMailer If IsNull(strFromName) Or IsNull(strFromAddress) Or IsNull(strToName) Or IsNull(strToAddress) Or IsNull(strSubject) Or IsNull(strBody) Then Exit Function End If Set mlrMailer = Server.CreateObject("CDONTS.NewMail") mlrMailer.From = strFromAddress mlrMailer.To = strToAddress mlrMailer.Subject = strSubject mlrMailer.Body = strBody mlrMailer.Send End Function Function SendHTMLMail(strFromName, strFromAddress, strToName, strToAddress, strSubject, strBody) Dim mlrMailer If IsNull(strFromName) Or IsNull(strFromAddress) Or IsNull(strToName) Or IsNull(strToAddress) Or IsNull(strSubject) Or IsNull(strBody) Then Exit Function End If Set mlrMailer = Server.CreateObject("CDONTS.NewMail") mlrMailer.ContentBase = "http://" & SITE_URL mlrMailer.BodyFormat = 0 mlrMailer.MailFormat = 0 mlrMailer.From = strFromAddress mlrMailer.To = strToAddress mlrMailer.Subject = strSubject mlrMailer.Body = strBody mlrMailer.Send End Function Function GetNextID(strTable) Dim strSQL, rsMaxID, lngNextID strSQL = "SELECT MAX(ID) FROM " & strTable Set rsMaxID = Server.CreateObject("ADODB.Recordset") rsMaxID.Open strSQL, cnDBConn, 1, 3 If Not IsNull(rsMaxID(0)) Then lngNextID = CLng(rsMaxID(0)) + CLng(1) Else lngNextID = 1 End If rsMaxID.Close Set rsMaxID = Nothing GetNextID = lngNextID End Function %>