Ciao
Non riesco a capire
il file common.asp è il seguente
<%
'Set the timeout of the forum
Server.ScriptTimeout = 90
Session.Timeout = 20
'Set the date time format to your own if you are getting a CDATE error
'Session.LCID = 1033
Dim adoCon 'Database Connection Variable Object
Dim strCon 'Holds the string to connect to the db
Dim rsCommon 'Holds the configuartion recordset
Dim strSQL 'Holds the SQL query for the database
Dim lngLoggedInUserID 'Holds a logged in users ID number
Dim strLoggedInUsername 'Holds a logged in users username
Dim intGroupID 'Holds the group ID number the member is a group of
Dim strWebsiteName 'Holds the website name
Dim strMainForumName 'Holds the forum name
Dim strForumPath 'Holds the virtual path to the forum
Dim strForumEmailAddress 'Holds the forum e-mail address
Dim blnTextLinks 'Set to true if you want text links instead of the powered by logo
Dim blnRTEEditor 'Set to true if the Rich Text Editor(RTE) is enabled
Dim blnEmail 'Boolean set to true if e-mail is on
Dim strMailComponent 'Email coponent the forum useses
Dim strOutgoingMailServer 'Forums incomming mail server
Dim strLoggedInUserCode 'Holds the user code of the user
Dim blnLCode 'set to true
Dim blnAdmin 'set to true if the user is a forum admininstrator (Group ID 1)
Dim blnModerator 'Set to true if the user is a forum moderator
Dim blnGuest 'set to true for the Guest account (Group ID 2)
Dim blnActiveMember 'Set to false if the member is no longer allowed to post messages on the forum
Dim blnLoggedInUserEmail 'Set to true if the user has entered there e-mail
Dim blnLoggedInUserSignature 'set to true if the user has enetered a signature
Dim intTopicPerPage 'Holds the number of topics to show on each page
Dim strTitleImage 'Holds the path and name for the title image for the forum
Dim blnEmoticons 'Set to true if emoticons are turned on
Dim strDatabaseDateFunction 'Holds a different date function for Access or SQL server
Dim strDatabaseType 'Holds the type of database used
Dim blnGuestPost 'Set to true if guests can post
Dim blnAvatar 'Set to true if the forum can use avatars
Dim blnEmailActivation 'Set to true if the e-mail activation is turned on
Dim blnSendPost 'Set to true if post is sent with e-mail notification
Dim intNumHotViews 'Holds the number of how many views a topic has before it becomes a hot topic
Dim intNumHotReplies 'Holds the number of replies before a topic becomes a hot topic
Dim blnPrivateMessages 'Set to true if private messages are allowed
Dim intNumPrivateMessages 'Holds the number of private messages allowed by each user
Dim intThreadsPerPage 'Holds the number of threads shown per page
Dim strDbPathAndName 'Holds the path and name of the database
Dim intSpamTimeLimitSeconds 'Holds the number of secounds between posts
Dim intSpamTimeLimitMinutes 'Holds the number of minutes the user can post five posts in
Dim strDateFormat 'Holds the users date format
Dim strTimeOffSet 'Holds the users time offset in + or -
Dim intTimeOffSet 'Holds the users time offset
Dim blnReplyNotify 'Set to true if the user wants to be notified of replies to posts
Dim blnAttachSignature 'Set to true if the user always wants there signature attached
Dim blnWYSIWYGEditor 'Set to true if the user wants to use the IE WYSIWYG post editor
Dim intMaxPollChoices 'Holds the maximum allowed number of poll choices
Dim blnEmailMessenger 'Set to true if the email system is on
Dim blnActiveUsers 'Set to true if active users is enabled
Dim blnForumClosed 'Set to true of the forum is cloded for maintence
Dim blnShowEditUser 'Set to true if we are to show the username and time a post is edited
Dim blnShowProcessTime 'Set to true if we are to show how long the page took to be processed on the server
Dim dblStartTime 'Holds the start time for the page process
Dim blnClosedForumPage 'Set to true if we are looking at the closed forum page
Dim blnFlashFiles 'Set to true if Flash support is enabled
Dim strWebsiteURL 'Holds the URL to the sites homepage
Dim blnShowMod 'Set to true if mod groups are shown on the main forum page
Dim blnAvatarUploadEnabled 'Set to true if avatars are enabled
Dim blnRegistrationSuspeneded 'Set to true if new registrations are suspended
Dim strLoggedInUserEmail 'Holds the logged in users email address
Dim strImageTypes 'Holds the types of images allowed in the forum
Dim blnLongRegForm 'Set to true if the reg form is to be the long version
Dim blnLongSecurityCode 'Set to true if the security code feature is required when logging in
Dim blnUseApplicationVariables 'Set to true if application varibles are used
'These are used for forum permissions
Dim blnRead
Dim blnPost
Dim blnReply
Dim blnEdit
Dim blnDelete
Dim blnPriority
Dim blnPollCreate
Dim blnVote
Dim blnAttachments
Dim blnImageUpload
'Initialise variables
Const strVersion = "7.9"
Const strRTEversion = "1.2c"
lngLoggedInUserID = 0
strLoggedInUsername = strTxtGuest
blnActiveMember = true
blnLoggedInUserEmail = false
blnLoggedInUserSignature = false
intGroupID = 2
lngLoggedInUserID = 2
blnAdmin = false
blnModerator = false
blnGuest = true
intTimeOffSet = 0
strTimeOffSet = "+"
blnWYSIWYGEditor = true
blnLongRegForm = true
blnLongSecurityCode = false
'Database Type
strDatabaseType = "Access"
'strDatabaseType = "SQLServer"
'Set up the database table name prefix and stored procedure prefix
'(This is useful if you are running multiple forums from one database)
' - make sure you also change this in the msSQL_server_setup.asp file if setting up an ms SQL server database)
Const strDbTable = "tbl"
Const strDbProc = "wwfSp"
'Set up the forum cookie name
'(This is useful if you run multiple copies of Web Wiz Forums on the same site so that cookies don't interfer with each other)
Const strCookieName = "WWF"
'Set if application variables are used for forum configuration
'This will make your forum run faster as there are less hits on the database, but if you are using free web hosting or
'are on a server where you share your application oject with others then you will need to set this to false
blnUseApplicationVariables = true
'Set Encrypted passwords (ignore unless you don't wish to use Encrypted passwords in your forum)
'This will make your forum unsecure from hackers if you disable this!!!!!
'This can NOT be changed once your forum is in use!!!
'If you do disable Encrypted Passwords - You will also need to directly edit the database to type in the admin password to the Password field in the tblAuthor table at record position 1 also edit both common.asp files to change this variable
Const blnEncryptedPasswords = true 'True = Encrypted Passwords Enabled - Flase = Encrypted Passwords Disabled
'Create database connection
'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'If this is access set the access driver
If strDatabaseType = "Access" Then
'--------------------- Set the path and name of the database --------------------------------------------------------------------------------
'Virtual path to database
strDbPathAndName = Server.MapPath("admin/database/wwForum.mdb") 'This is the path of the database from this files location on the server
'------------- If you are having problems with the script then try using a diffrent driver or DSN by editing the lines below --------------
'Generic MS Access Database connection info and driver (if this driver does not work then comment it out and use one of the alternative faster JET OLE DB drivers)
'strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & strDbPathAndName
'Alternative drivers faster than the generic one above
'strCon = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & strDbPathAndName 'This one is if you convert the database to Access 97
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDbPathAndName 'This one is for Access 2000/2002
'If you wish to use DSN then comment out the driver above and uncomment the line below (DSN is slower than the above drivers)
'strCon = "DSN=DSN_NAME" 'Place the DSN where you see DSN_NAME
'---------------------------------------------------------------------------------------------------------------------------------------------
'The now() function is used in Access for dates
strDatabaseDateFunction = "Now()"
'Else set the MS SQL server stuff
Else
%><%
'The GetDate() function is used in SQL Server
strDatabaseDateFunction = "GetDate()"
End If
'Set the connection string to the database
adoCon.connectionstring = strCon
'Set an active connection to the Connection object
adoCon.Open
'Intialise the main ADO recordset object
Set rsCommon = Server.CreateObject("ADODB.Recordset")
'Read in the Forum configuration
If isEmpty(Application("blnConfigurationSet")) OR isNull(Application("blnConfigurationSet")) OR Application("blnConfigurationSet") = false OR blnUseApplicationVariables = false Then
'Initialise the SQL variable with an SQL statement to get the configuration details from the database
If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE " & strDbProc & "SelectConfiguration"
Else
strSQL = "SELECT TOP 1 " & strDbTable & "Configuration.* From " & strDbTable & "Configuration;"
End If
'Query the database
rsCommon.Open strSQL, adoCon
'If there is config deatils in the recordset then read them in
If NOT rsCommon.EOF Then.......
cosa devo modificare?
ciao