<%@Language="VBScript" LCID="1033"%> <% Option Explicit response.buffer = true 'response.expires = -1500 'response.ExpiresAbsolute = Now() - 1500 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" response.CacheControl = "no-cache" Dim datastore, dbUser, dbPass, dbName, dbServer, dbOwnerPrefix '################################################################### 'The following is for your database connection string dbUser = "yic_dbo" 'This is your username on your SQL server dbPass = "israelcountry" 'This is your password on your SQL server dbName = "YourIsraelConnection" 'Database name on your SQL server dbServer = "192.168.1.105" 'Database IP address. e.g."192.168.0.2,1433" dbOwnerPrefix = "dbo." 'Database owner Prefix for Stored Procedure '################################################################### datastore = "Provider=SQLOLEDB; User ID="&dbUser&"; Password="&dbPass&"; Initial Catalog="&dbName&"; Data Source="&dbServer '### comment out the line below if you wish to use Windows Security to connect to your SQL server.###' 'datastore = "Provider=sqloledb;Data Source="&dbServer&";Initial Catalog="&dbName&";Integrated Security=SSPI;" if isEmpty(Application(dbName&"Language")) and instr(Request.ServerVariables("SCRIPT_NAME"),"/ini.asp") = 0 then response.redirect ("ini.asp") response.end end if Dim forumDefaultCharSet:forumDefaultCharSet = Application(dbName&"Language") response.charset = forumDefaultCharSet Dim nstart, nstop nstart = timer() Dim UpLoadSizeLimit : UpLoadSizeLimit = 200 'in kb unit Dim UploadFormat : UploadFormat = "gif/txt/jpg" ' separate exetensions with '/' Dim strRC4Password:strRC4Password = "" 'Add your own password for RC4 if len(strRC4Password) = 0 then strRC4Password = dbName&dbServer Dim HostType:HostType = GetHostType() Dim isSearchEngineCompatible:isSearchEngineCompatible = Application(dbName&"searchEngineModEnabled") Dim forumdir:forumdir = Application(dbName&"forumdir") Dim searchDelimiter:searchDelimiter = "_" Dim isSearchEngine Class StringBuilder Private stringArray() Private perIncrement Private NoItems Private Sub Class_Initialize() perIncrement = 100 : NoItems = 0 ReDim stringArray(perIncrement) End Sub Public Property Let Seed(val) if isNumeric(val) then perIncrement = val ReDim stringArray(perIncrement) End Property Public Sub Append(ByVal strValue) Dim ub : ub = UBound(stringArray) strValue = strValue & "" If NoItems > ub Then ReDim Preserve stringArray(ub + perIncrement) stringArray(NoItems) = strValue : NoItems = NoItems + 1 End Sub Public Sub Reset Erase stringArray Class_Initialize End Sub Public Property Get Value Value = Join(stringArray,"") End Property End Class ' Generic Functions and Subs that is used everywhere %>