qualcuno mi aiuta??? con l'asp

24-10-2005, 21.10.45

ciao mi chiamo ziopalletta e ho un sito web ma cerco di installare un forum (lo snitz) che è scritto in asp e quando con l'FTP lo porto sul sito e lo vado ad aprire mi escono delle scritte del linguaggio e non so perche

Codice:

<%
'#################################################################################
'## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################

'#################################################################################
    strNewVersion = "Platinum Full - Snitz Forums 2000 Version 3.4.03"
'#################################################################################
Dim NewConfig
ResponseCode = Request.QueryString("RC")
%>
<!--#INCLUDE FILE="inc_sha256.asp"-->
<%
Dim strCurrentDateTime
Dim strlhDateTime
strCurrentDateTime = DateToStr(Now())
strlhDateTime = DateToStr(dateadd("n", -5, Now()))

if ResponseCode <> "" then 'No parameter
	blnSetup = "Y"
else
	strCookieURL = Left(Request.ServerVariables("Path_Info"), InstrRev(Request.ServerVariables("Path_Info"), "/"))
	Application.Lock
	Application(strCookieURL & "ConfigLoaded")= ""
	Application.UnLock
end if
if blnSetup <> "Y" then NewConfig = 1
%>
<!-- #INCLUDE FILE="config.asp" -->
<%

Response.Buffer = True

Response.Write	"<html>" & vbNewLine & _
		vbNewLine & _
		"<head>" & vbNewLine & _
		"<title>Pagina di Setup del Forum</title>" & vbNewLine

'## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT
Response.Write	"<meta name=""copyright"" content=""This Forum code is Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen, Huw Reddick and Richard Kinser, Non-Forum Related code is Copyright (C) " & strCopyright & """>" & vbNewline
'## END   - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT

Response.Write	"<style><!--" & vbNewLine & _
		"a:link    {color:darkblue;text-decoration:underline}" & vbNewLine & _
		"a:visited {color:blue;text-decoration:underline}" & vbNewLine & _
		"a:hover   {color:red;text-decoration:underline}" & vbNewLine & _
		"--></style>" & vbNewLine & _
		"</head>" & vbNewLine & _
		vbNewLine & _
		"<body bgColor=""white"" text=""midnightblue"" link=""darkblue"" aLink=""red"" vLink=""red"" onLoad=""window.focus()"">" & vbNewLine

If strDBType = "" then
	Response.Write	"<table border=""0"" cellspacing=""0"" cellpadding=""5"" width=""50%"" height=""50%"" align=""center"">" & vbNewLine & _
			"  <tr>" & vbNewLine & _
			"    <td bgColor=""#9FAFDF"" align=""center""><p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & _
			"<b>Setup Database....</b><br /><br />" & _
			"La stringa <b>strDBType</b> not è settata, per favore modifica il tuo file <b>config.asp</b><br />per impostare il tipo di database che utilizzi." & _
			"</font></p></td>" & vbNewLine & _
			"  </tr>" & vbNewLine & _
			" 
'	Check to see if all the fields are in the database

	on error resume next

	set my_Conn = Server.CreateObject("ADODB.Connection")
	my_Conn.Open strConnString

	for counter = 0 to my_Conn.Errors.Count -1
		ConnErrorNumber = Err.Number
		ConnErrorDesc = my_conn.Errors(counter).Description
		if ConnErrorNumber <> 0 then
			my_Conn.Errors.Clear
			Err.Clear
			Response.Redirect "setup.asp?RC=1&EC=" & ConnErrorNumber & "&ED=" & Server.URLEncode(ConnErrorDesc)
		end if
	next

	my_Conn.Errors.Clear
	Err.Clear

	strSql = "SELECT CAT_ID, FORUM_ID, F_STATUS, F_MAIL, F_SUBJECT, F_URL, F_DESCRIPTION, F_TOPICS, F_COUNT, F_LAST_POST, "
	strSql = strSql & "F_PASSWORD_NEW, F_PRIVATEFORUMS, F_TYPE, F_IP, F_LAST_POST_AUTHOR, F_A_TOPICS, F_A_COUNT, "
	strSQL = strSQL & "F_MODERATION, F_SUBSCRIPTION, F_ORDER, F_L_ARCHIVE, F_ARCHIVE_SCHED, F_L_DELETE, F_DELETE_SCHED"
	strSql = strSql &  " FROM " & strTablePrefix & "FORUM"

	my_Conn.Execute strSql

	Call CheckSqlError()

	my_Conn.Errors.Clear
	Err.Clear

	strSql = "SELECT CAT_ID, FORUM_ID, TOPIC_ID, T_STATUS, T_SUBJECT, T_MESSAGE, T_AUTHOR, T_REPLIES, "
	strSql = strSql & " T_VIEW_COUNT, T_LAST_POST, T_DATE, T_LAST_POSTER, T_IP, T_ARCHIVE_FLAG, T_LAST_POST_AUTHOR "
	strSql = strSql & " FROM " & strTablePrefix & "TOPICS"

	my_Conn.Execute strSql

	Call CheckSqlError()

	my_Conn.Errors.Clear
	Err.Clear

	strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_USERNAME, M_PASSWORD, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
	strSql = strSql & "M_SIG, M_DEFAULT_VIEW, M_LEVEL, M_AIM, M_ICQ, M_MSN, M_YAHOO, M_POSTS, M_DATE, M_LASTHEREDATE, "
	strSql = strSql & "M_LASTPOSTDATE, M_TITLE, M_SUBSCRIPTION, M_HIDE_EMAIL, M_RECEIVE_EMAIL, M_LAST_IP, M_IP, "
	strSql = strSql & "M_FIRSTNAME, M_LASTNAME, M_OCCUPATION, M_SEX, M_AGE, M_HOBBIES, M_LNEWS, M_QUOTE, M_BIO, "
	strSql = strSql & "M_MARSTATUS, M_LINK1, M_LINK2, M_CITY, M_STATE, M_PHOTO_URL, M_KEY, M_NEWEMAIL, M_PWKEY, M_SHA256 "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"

	& _
			"    <td bgColor=""#9FAFDF"" align=""center"">" & vbNewLine & _
			"    <p><font face=""Verdana, Arial, Helvetica"" size=""2"">" & vbNewLine
	if CustomCode = 1 then
		Response.Write	"    The database could not be opened !!<br />" & vbNewLine & _
				"    Controlla se nel tuo config.asp la stringa <br /><b>strConnString</b> è settata con l'esatto percorso del database.<br />" & vbNewLine & _
				"    Controlla anche che la stringa <b>strDBType</b> sia settata sul tipo di database esatto.<br />" & vbNewLine & _
				"    <br />" & vbNewLine
	elseif CustomCode = 2 then
		Response.Write	"    Impossibile leggere da una o più tabelle del database.<br /> Assicuratiche nessuna tabella sia stata chiusa da un altro utente.<br /><br />" & vbNewLine
	elseif CustomCode = 3 then
		Response.Write	"    Impossibile aprire il database.<br /> Assicurati di inserire correttamente Nome Utente e password.<br /><br />" & vbNewLine
	else
		Response.Write	"    Il database non può essere aperto!!<br />" & vbNewLine & _
				"    <br />" & vbNewLine
	end if
	if ErrorCode <> "" and ErrorCode < "0" then
		Response.Write("    <p>Codice :  " & Hex(ErrorCode) & "</p>" & vbNewLine)
		if ErrorDesc <> "" then
			Response.Write("	<p><b>Descrizione errore</b> : <br />" & ErrorDesc & "</p>" & vbNewLine)
		end if
	elseif ErrorCode <> "" then
		Response.Write("    <p>Codice :  " & ErrorCode & "</p>" & vbNewLine)
		if ErrorDesc <> "" then
			Response.Write("	<p><b>Descrizione errore</b> : <br />" & ErrorDesc & "</p>" & vbNewLine)
		end if

cosi!!!!!! perche!!!!!!!!

c'è qualcuno che mi può aiutare???????????
grazie ziopall

etta

24-10-2005, 21.33.23

l'asp non è supportato su altervista visto che ci troviamo su hosting linux, prova con phpbb

24-10-2005, 21.34.57

a me il phpbb non piace è un po brutto
senti non è che hai un hosting web che lo supporta?

24-10-2005, 21.37.42

non so puoi provare su aruba

24-10-2005, 21.38.26

io dico freeweb!!!!!!

**radioradianti** · 24-10-2005, 21.55.09

@ziopalletta: la prossima volta che posti tanto codice, racchiudilo fra i tag code, per evitare il topic sia un papiro lunghissimo

Il messaggio te l'ho editato io ora.

Per quanto riguarda il tuo problema ti consiglio di fare una ricerca con www.google.it, ce ne dovrebbero essere di freeweb che supportano asp.

Ciao

Leandro

Happy Slack!

Discussione: qualcuno mi aiuta??? con l'asp

LinkBack

Strumenti discussione

Display

qualcuno mi aiuta??? con l'asp

ma a me....

ma è a pagamento

Regole di scrittura