in locale va... ma sul server NO

[digitm]

ciao ragazzi,

ho un form che mi rimanda alla pagina login1.asp dove effettuo un controllo. Ecco la pagina login1.asp:


<%
pass = request.Form("password")
sql = "SELECT * FROM password"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3

if pass = rs("password") then
session("password")="si"
%>

<%
response.Redirect("admin.asp")
else
session("password")=""
%>

<%
response.Redirect("login.asp")
end if
%>

il problema è che in locale va, ma su aruba no.... come mai???? Ho controllato ed ho effettuato correttamente l'upload...

[weppos]

Che errore genera sul server?

[digitm]

Impossibile visualizzare la pagina
Impossibile visualizzare la pagina desiderata. Si è verificato un problema.

--------------------------------------------------------------------------------

Provare a eseguire le operazioni seguenti:

Aprire la pagina iniziale www.95034.it, quindi cercare i collegamenti alle informazioni desiderate.
Scegliere il pulsante Aggiorna o riprovare in un secondo momento.

Fare clic sul pulsante Cerca per ricercare informazioni su Internet.
È anche possibile visualizzare un elenco di siti correlati.




HTTP 500 - Errore interno del server
Internet Explorer

[digitm]

Per fare una prova, ho creato la pagina sessione.asp dove ho impostato

session("password")="si"

e poi richiamando la pagina admin.asp va...

[digitm]

lo stesso problema in questa pagina:


<%
Dim strdata
miaData = Now
strdata = (formatDateTime(miaData, vbShortDate))

percorso = "/public/banner/"

if session("password")="si" then

ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next
FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)

for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

' Recupero i campi se sono compilati
if instr(Intestazione,"azienda_nome") > 0 then
azienda_nome = ContenutoFile
end if
if instr(Intestazione,"azienda_url") > 0 then
azienda_url = ContenutoFile
end if
if instr(Intestazione,"azienda_impression") > 0 then
azienda_impression = ContenutoFile
end if
if instr(Intestazione,"data_scadenza") > 0 then
data_azienda = ContenutoFile

end if
if instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if
next
If Upload1 = true then
%>
<style type="text/css">
A:link {
COLOR: ffffff; TEXT-DECORATION: none
}
A:visited {
COLOR: ffffff; TEXT-DECORATION: none
}
A:hover {
COLOR: ffffff; TEXT-DECORATION: underline; font-family: Verdana, Arial, Helvetica, sans-serif}
</style>





<table width="560" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#00CC00">
<tr>
<td><table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" bgcolor="#00CC00"> <div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Upload
file</font></div></td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">La
dimensione del file che hai uploadato &egrave; di </font> <font size="2">
<% response.write DimensioneFile1*0.001 %>
<font face="Verdana, Arial, Helvetica, sans-serif">kb</font></font></div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">[img]<% response.write percorso & NomeFile1 %>[/img]</font></div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"> <div align="center"></div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"> <div align="center">
<table width="100%" border="0">
<tr>
<td width="20%"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome
Azienda: </font> </td>
<td width="80%"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% response.write azienda_nome %>
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Url
Azienda:</font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% response.write azienda_url %>
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Impression</font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% response.write azienda_impression %>
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome
File</font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% response.write NomeFile1 %>
</font></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="21" bgcolor="#00CC00">
<div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="admin.asp">Torna
al pannello di amministrazione</a></font></div></td>
</tr>
</table></td>
</tr>
</table>




<%
End If
End if
%>

<% sql = "SELECT * FROM dati"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3
rs.addnew
rs("azienda_nome") = azienda_nome
rs("azienda_url") = azienda_url
rs("data") = strdata
rs("data_scadenza") = data_azienda
rs("azienda_impression") = azienda_impression
rs("percorso_banner") = NomeFile1
rs.update


%>

<%
else
%>
<meta http-equiv="Refresh" content="0; URL= login.asp">
<%
end if
%>




Prima mi dava questo errore:

Server.MapPath() error 'ASP 0175 : 80004005'

Disallowed Path Characters

/banner/conn.asp, line 4

The '..' characters are not allowed in the Path parameter for the MapPath method

Poi ho sostituito:

percorso = "../public/banner/"
con
percorso = "/public/banner/"


e mi spunta la pagina di errore:


Impossibile visualizzare la pagina
Impossibile visualizzare la pagina desiderata. Si è verificato un problema.

--------------------------------------------------------------------------------

Provare a eseguire le operazioni seguenti:

Aprire la pagina iniziale www.95034.it, quindi cercare i collegamenti alle informazioni desiderate.
Scegliere il pulsante Aggiorna o riprovare in un secondo momento.

Fare clic sul pulsante Cerca per ricercare informazioni su Internet.
È anche possibile visualizzare un elenco di siti correlati.




HTTP 500 - Errore interno del server
Internet Explorer


Cos'è?

[weppos]

Disattiva l'errore generico 500 e verifica l'errore completo.

[digitm]

Ho seguito il consiglio di weppos e adesso mi da:

1) script (login.asp)

Active Server Pages error 'ASP 0126'

Include file not found

/banner/login1.asp, line 1

The include file 'conn.asp' was not found.


2) script

Active Server Pages error 'ASP 0126'

Include file not found

/banner/banner_nuovo2.asp, line 1

The include file 'intestazione.asp' was not found.


ma i files.... ci sono!!!

[digitm]

Ho risolto sostituendo:



con

[weppos]

virtual vuole include virtuali che devono sempre partire per / .