Pagina di installazione. Snitz mercatino online per snitz 3.4.03

Titoli originali:

Snitz mercatino online
Autore: Alan Le (alanle2000@hotmail.com)

Versione: per Snitz Forums 2000 v3.4

Tradotto, implementato ed ottimizzato per Forum Platinum Full da Danny C.
Distribuito da SuperDeeJay.Net

Modificato da Lele, Webmaster di http://www.teambertolo.it.

Download: http://www.superdeejay.net

Supporto: http://www.superdeejay.net/Forum/

Testato su: Forum Platinum Full - 3.4.0.3 e 3.4.06 Full con database access e Mysql

Aggiornato il - 06/03/2007

Funzioni:

Questo mod permette di inserire una sezione mercatino nel vostro forum in modo che tutti gli utenti possano inserire i propri annunci e inserzioni..

Fai l'upload di tutti i file del mods
Modifica il file inc_header.asp secondo questa configurazione
Rispetto alla versione originale, sono stati aggiunti i file pop_upload_mercatino.asp e outputFile_mercatino.asp
Inserimento della cartella mercatino dentro la cartella public
Il resto delle modifiche riguarda l'inserimento dei dati

Adesso vi sono due possibilità: se volete visualizzare il mercatino solo agli iscritti inserite il codice 1, se volete che il mercatino venga visualizzato da tutti, inserite il codice 2

INC_HEADER.ASP

Cerca questo codice:

select case Request.Form("Method_Type") case "login" strEncodedPassword = sha256("" & Request.Form("Password")) select case chkUser(strDBNTFUserName, strEncodedPassword,-1) case 1, 2, 3, 4 Call DoCookies(Request.Form("SavePassword")) strLoginStatus = 1 case else strLoginStatus = 0 end select case "logout" Call ClearCookies() end select

Subito prima inserisci questo codice:

'## Inizio Conteggio Inserzioni Mercatino ## if not IsNull(Session(strCookieURL & "last_here_date")) then '## Forum_SQL - Get ActiveTopicCount from DB strSql = "SELECT COUNT(" & strTablePrefix & "ADS_CONTENT.date_posted) AS MER_ACTIVE " strSql = strSql & " FROM " & strTablePrefix & "ADS_CONTENT " strSql = strSql & " WHERE (((" & strTablePrefix & "ADS_CONTENT.date_posted)>'"& Session(strCookieURL & "last_here_date") & "'))" ' strSql = strSql & " AND " & strTablePrefix & "TOPICS.T_STATUS <= 1" set rsme = Server.CreateObject("ADODB.Recordset") rsme.open strSql, my_Conn if not rsme.EOF then ActiveInserzioni = rsme("MER_ACTIVE") else ActiveInserzioni = 0 end if rsme.close set rsme = nothing end if '## Fine Conteggio Inserzioni Mercatino ##

Cerca questo codice:

Response.Write " |" & vbNewline & _ " <a href=""search.asp" if Request.QueryString("FORUM_ID") <> "" then Response.Write("?FORUM_ID=" & cLng(Request.QueryString("FORUM_ID"))) Response.Write """" & dWStatus("Cerca per parola chiave, data, e/o nome...") & " tabindex=""-1""><acronym title=""Cerca per parola chiave, data, e/o nome..."">Cerca</acronym></a>" & vbNewline

Subito sotto inserite uno dei due codici in funzione della visualizzazione del Mercatino

Inserisci questo codice se vuoi che solo gli utenti registrati vedano il Mercatino:

'###################### Mercatino snitz online ########## if (mlev = 1 or mlev = 2 or mlev = 3 or mlev = 4) or (lcase(strNoCookies) = "1") then if strUseExtendedProfile then Response.Write " |" & vbNewline & _ " <a href=""classifieds.asp""" & dwstatus("mercatino online...") & " tabindex=""-1""><acronym title=""mercatino online..."">Mercatino</acronym> (" & ActiveInserzioni & ")</a>" & vbNewline else Response.Write " <a href=""classifieds.asp""" & dwstatus("mercatino online...") & " tabindex=""-1""><acronym title=""mercatino online..."">Mercatino</acronym> (" & ActiveInserzioni & ")</a>" & vbNewline end if end if '#################### Mercatino snitz online ##############

Inserisci questo codice se vuoi che tutti vedano il Mercatino:

'###################### Mercatino snitz online ########## Response.Write " |" & vbNewline & _ " <a href=""classifieds.asp""" & dwstatus("mercatino online...") & " tabindex=""-1""><acronym title=""mercatino online..."">Mercatino</acronym> (" & ActiveInserzioni & ")</a>" & vbNewline '#################### Mercatino snitz online ##############