<% ' Common constants Const GTM_IS_FILE_PROPERTY = "IsFile" Const GTM_CONTROL_NAME_PROPERTY = "IMAGE" Const GTM_FIELD_NAME_PROPERTY = "Field" Const GTM_REQUEST_NAME_PROPERTY = "Name" Const GTM_REQUEST_VALUE_PROPERTY = "Value" Const GTM_FILE_NAME_PROPERTY = "FileName" Const GTM_FILE_PATH = "FilePath" Const GTM_FILE_BINARY_CONTENT_PROPERTY = "FileContents" Const GTM_FILE_CONTENT_TYPE_PROPERTY = "FileContentType" Const GTM_FORBIDDEN_FILES = "exe,com,bat,vbs,js,wsh,cmd,vbe,jse,wsf" Const GTM_NO_SEARCH_FIELDS_SPECIFIED = "No search fields has been set." Const GTM_NO_SEARCH_FIELDS_MESSAGE = "Error, no field has been set to search. Please configure your tabledef.inc file and try again." ' Subroutines to get an easy customization. Sub SendError(iErrNumber, sErrDescription, sHint, sSQL) Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") With objMail .From = "developers@infolinksa.com" .To = "developers@infolinksa.com" .Subject = "An error occured in " + sGTMSolution .Body = "Err.Number = " & iErrNumber & " (" + Hex(iErrNumber) + ")" + vbCrLf + _ "Err.Description = " & sErrDescription & vbCrLf + _ "Hint=" & sHint & vbCrLf If Len( sSQL ) > 0 Then .Body = .Body & "SQL=" & sSQL End If .Send End With Response.Write GTM_HTML_ERROR End Sub Function AddFontTag(sContent) AddFontTag = "" & _ sContent & "" End Function %>