Sembra una cavolata... HTTP500

**dommy79** · 27-04-2005, 11:52

Sul sito ho:

<html>
<head>
<title>Rider Zone</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="vendita.css" rel="stylesheet" type="text/css">
<script language="VBScript">
function ricarica(privato)
document.form1.txtselezione1.value=document.form1. cmbselezione1.value
document.form1.txtselezione2.value=document.form1. cmbselezione2.value
document.form1.txtselezione3.value=document.form1. cmbselezione3.value
document.form1.action="selezione_vendita.asp?priva to=" & privato
document.form1.submit()
end function

function controllocampi(tipo,privato)
select case tipo
case "S"
document.form1.txtselezione1.value=document.form1. cmbselezione1.value
document.form1.txtselezione2.value=document.form1. cmbselezione2.value
document.form1.txtselezione3.value=document.form1. cmbselezione3.value
document.form1.action="lista_vendita.asp?privato=" & privato
end select
document.form1.submit()
end function
</script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<form name="form1" method="post" action="" onSubmit="">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr valign="top" class="IntestazioneMenu">
<td>

Selezione

<span class="DescrizioneNormale">Quest'area permette
di filtrare i prodotti disponibili in base ad una o più
categorie. Indicare 'Tutti i prodotti' per una lista completa dei prodotti
attualmente on-line.

</span></p>
</td>
</tr>
<tr valign="top" class="IntestazioneMenu">
<td></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" class="IntestazioneLegenda">
<tr valign="top">
<td class="TestoLabel" width="25%"></td>
<td width="25%"></td>
<td width="25%"></td>
<td width="25%"></td>
<tr valign="middle">
<td width="20%" class="TestoLabel"></td>
<td><span class="TestoLabel">Prima categoria</span></td>
<td><select name="cmbselezione1" onChange="vbscript: ricarica '<%=request.QueryString("privato")%>'" class="TestoCampiDinamici">
<% set rs = server.createobject("ADODB.Recordset")
sql = "SELECT DISTINCT prodotti.prod_genere "
sql = sql & " FROM prodotti "
if (request.form("txtselezione2") <> "" or request.form("txtselezione3") <> "") then
sql = sql & " WHERE 1 = 1 "
if request.form("txtselezione2") <> "" and request.form("txtselezione2") <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione2")) & " "
end if
if request.form("txtselezione3") <> "" and request.form("txtselezione3") <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione3")) & " "
end if
end if
sql = sql & " ORDER BY prodotti.prod_genere "
rs.open sql, cnt, 3, 3
if rs.recordcount > 0 then
if trim(ucase(request.form("txtselezione1"))) = "TUTTI" then
%>
<option value="TUTTI" selected>Tutti i prodotti</option>
<%
else
%>
<option value="TUTTI">Tutti i prodotti</option>
<%
end if
rs.movefirst
do while not rs.eof
if trim(ucase(request.form("txtselezione1"))) = trim(ucase(rs.fields("prod_genere").value)) then
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>" selected>
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
else
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>">
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
end if
rs.movenext
loop
else
%>
<option value="<%response.Write("@")%>">
<%response.Write("Nessun prodotto")%>
</option>
<%
end if
rs.close
%>
</select>
<input name="txtselezione1" type="hidden" class="TestoCampiDinamici" id="txtselezione1" size="20" value="<%=request.form("txtselezione1")%>"></td>
<td></td>
</tr>
<tr valign="middle">
<td width="20%" class="TestoLabel"></td>
<td><span class="TestoLabel">Seconda categoria</span></td>
<td><select name="cmbselezione2" onChange="vbscript: ricarica '<%=request.QueryString("privato")%>'" class="TestoCampiDinamici">
<% set rs = server.createobject("ADODB.Recordset")
sql = "SELECT DISTINCT prodotti.prod_genere "
sql = sql & " FROM prodotti "
if (request.form("txtselezione1") <> "" or request.form("txtselezione3") <> "") then
sql = sql & " WHERE 1 = 1 "
if request.form("txtselezione1") <> "" and trim(ucase(request.form("txtselezione1"))) <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione1")) & " "
end if
if request.form("txtselezione3") <> "" and trim(ucase(request.form("txtselezione3"))) <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione3")) & " "
end if
end if
sql = sql & " ORDER BY prodotti.prod_genere "
rs.open sql, cnt, 3, 3
if rs.recordcount > 0 then
if trim(ucase(request.form("txtselezione2"))) = "TUTTI" then
%>
<option value="TUTTI" selected>Tutti i prodotti</option>
<%
else
%>
<option value="TUTTI">Tutti i prodotti</option>
<%
end if
rs.movefirst
do while not rs.eof
if request.form("txtselezione2") = rs.fields("prod_genere").value then
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>" selected>
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
else
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>">
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
end if
rs.movenext
loop
else
%>
<option value="<%response.Write("@")%>">
<%response.Write("Nessun prodotto")%>
</option>
<%
end if
rs.close
%>
</select>
<input name="txtselezione2" type="hidden" class="TestoCampiDinamici" id="txtselezione22" size="20" value="<%=request.form("txtselezione2")%>"></td>
<td></td>
</tr>
<tr valign="middle">
<td width="20%" class="TestoLabel"></td>
<td><span class="TestoLabel">Terza categoria</span></td>
<td><select name="cmbselezione3" onChange="vbscript: ricarica '<%=request.QueryString("privato")%>'" class="TestoCampiDinamici">
<% set rs = server.createobject("ADODB.Recordset")
sql = "SELECT DISTINCT prodotti.prod_genere "
sql = sql & " FROM prodotti "
if (request.form("txtselezione1") <> "" or request.form("txtselezione2") <> "") then
sql = sql & " WHERE 1 = 1 "
if request.form("txtselezione1") <> "" and trim(ucase(request.form("txtselezione1"))) <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione1")) & " "
end if
if request.form("txtselezione2") <> "" and trim(ucase(request.form("txtselezione2"))) <> "TUTTI" then
sql = sql & " AND prodotti.prod_genere <> " & testodb(request.form("txtselezione2")) & " "
end if
end if
sql = sql & " ORDER BY prodotti.prod_genere "
rs.open sql, cnt, 3, 3
if rs.recordcount > 0 then
if request.form("txtselezione3") = "TUTTI" then
%>
<option value="TUTTI" selected>Tutti i prodotti</option>
<%
else
%>
<option value="TUTTI">Tutti i prodotti</option>
<%
end if
rs.movefirst
do while not rs.eof
if request.form("txtselezione3") = rs.fields("prod_genere").value then
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>" selected>
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
else
%>
<option value="<%response.Write(rs.fields("prod_genere").v alue)%>">
<%response.Write(rs.fields("prod_genere").value) %>
</option>
<%
end if
rs.movenext
loop
else
%>
<option value="<%response.Write("@")%>">
<%response.Write("Nessun prodotto")%>
</option>
<%
end if
rs.close

%>
</select>
<input name="txtselezione3" type="hidden" class="TestoCampiDinamici" id="txtselezione32" size="20" value="<%=request.form("txtselezione3")%>"></td>
<td></td>
</tr>
<tr valign="top">
<td class="TestoLabel"></td>
<td></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" class="SfondoToolbar">
<tr align="left" valign="top">
<td width="25%"></td>
<td width="25%"></td>
<td width="25%">[img]../img/conferma.gif[/img]'"> '">Conferma selezione</td>
<td width="25%">[img]../img/fine.gif[/img]
Chiudi</td>
</tr>
</table></td></tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>

Perchè secondo voi mi visualizza SERVER ERROR HTML500!!!!!!!!!!!!!!!!!!

Se al posto di questo codice metto una stringa la vedo... quindi il problema è proprio su questa.....
p.s. naturalmente in locale mi funziona ma quando lo butto on-line sul server di ARUBA no..... mi devo preoccupare?

**Roby_72** · 27-04-2005, 11:54

Disabilitare gli errori http brevi sul menu strimenti, opzioni internet, avanzate di IE, così vedi l'errore.
Probabile sia errato il percorso del db.

Roby

**dommy79** · 27-04-2005, 11:56

ci provo........ e ti dico

**dommy79** · 27-04-2005, 12:07

questo è l'errore:

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

Disallowed Path Characters

/asp/connessione.asp, line 24

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

su connessione.asp io ho:

<%
'Impostazione dei parametri per la scadenza delle pagine
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1

'Test per la verifica della sessione: le due variabili vengono impostate nella pagina di verifica utente
if Request.cookies("usercode") <> "" and Request.cookies("usercode") <> session("usercode") then
response.Cookies("usercode") = ""
response.redirect "fine_sessione.asp"
end if

stringadiconnessione = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mdb-database/dati.mdb") & ";pwd="

session("DSN") = stringadiconnessione

'test sull'oggetto connessione per la verifica di esistenza
If IsObject(Session("sess_cnt")) Then
Set cnt = Session("sess_cnt")
if cnt.state = 0 then
cnt.open session("DSN"),"",""
end if
Else
Set cnt = Server.CreateObject("ADODB.Connection")
cnt.open session("DSN"),"",""
Set Session("sess_cnt") = cnt
end if

%>

??????????????????????????

**Baol74** · 27-04-2005, 12:12

Evviva Windows 2003.

Non puoi mettere ../ nel percorso passato a Server.MapPath

Puoi risolvere usando questa funzione (MapPth) al posto di Server.MapPath : http://forum.html.it/forum/showthrea...hreadid=814925

Oppure mettendo il percorso virtuale.

**dommy79** · 27-04-2005, 12:15

e cosa dovrei mettere?
io hoil db in
mdb-database
e le pagine in
asp
asp e mdb-database sono sullo stesso livello........

**Roby_72** · 27-04-2005, 12:16

codice:

stringadiconnessione = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/dati.mdb") & ";pwd="

Roby

**Baol74** · 27-04-2005, 12:16

Ho aggiunto le due soluzione, rileggi sopra.

Ciao..

appunto, come dice roby

**dommy79** · 27-04-2005, 12:23

GRAZIE RAGAZZI..........
ORA FUNZIONA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ciao
buona giornata

**dreaman74** · 12-01-2006, 23:47

Anche io ho questo problema... devo inserire un percorso fisico e Server.MapPath mi restituisce l'errore di caratteri non riconosciuti D:\....\...

Ho letto e scariato lo script per la funzione MapPath... da sostituire al Server.MapPath

Ecco il codice:
Percorsi virtuali:
strMailingListPath = "mailing_list/"
strMailingListAccessDB = "mailing_list/mailing_list.mdb"

strMailingListCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strMailingListAccessDB)

posso decidere il percorso fisico del database.mdb anche tramite questo:

strMailingListCon = "DSN= XX.XXX.XX.XXX"
il percorso fisico e' il seguente:

d:\business\dominio.it\private\mailing_list\

come faccio?
Grazie

Discussione: Sembra una cavolata... HTTP500

Strumenti discussione

Ricerca discussione

Visualizza

Sembra una cavolata... HTTP500

Permessi di invio