Ciao a Tutti,
non riesco proprio ad aprire una pagina, mi dà il seguente errore:
Informazioni tecniche (per il personale del supporto tecnico)
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/WebDir/config.asp, line 10
Option Explicit
Tipo di browser:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
Pagina:
GET /WebDir/default_2.asp
Grazie in anticipo
GuidoC
E siccome noi non siamo degli indovini, quale è lo script di questa benedetta pagina config.asp e in particolare cosa c'è nella riga 10?Originariamente inviato da GUIDOC
Ciao a Tutti,
non riesco proprio ad aprire una pagina, mi dà il seguente errore:
Informazioni tecniche (per il personale del supporto tecnico)
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/WebDir/config.asp, line 10
Option Explicit
Tipo di browser:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)
Pagina:
GET /WebDir/default_2.asp
Grazie in anticipo
Scusami, hai ragione
Contenuto di config.asp:
<%
' Script realizzato da Luca Ruggiero
' Concesso in esclusiva a www.mrwebmaster.it
'------------------------------------------------------------
' Potete utilizzare questo codice liberamente per il vostro
' sito personale e/o commerciale.
' E' VIETATO RIVENDERE QUESTO CODICE E/O DISTRIBUIRLO SU SITI
' AVENTI FINALITA' COMMERCIALI.
'------------------------------------------------------------
Option Explicit
On Error Resume Next
Response.Buffer = True
Response.Expires = 0
Session.Timeout = 60
Dim cn, rs, sc
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("mdb-database/directory.mdb")
Function CnOpen()
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open sc
End Function
Function CnClose()
Set rs = Nothing
cn.Close
Set cn = Nothing
End Function
%>
Grazie
GuidoC
Mi pare di aver capito che lo script è questo .
L'ho provato e funziona perfettamente e non mi pare che nella tua pagina ci sia un qualche errore.
Siccome è un po solo ho certato di metterlo in una pagina un pò più ricca e mi dà quell'errore:
contenuto della pagina:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>
<body>
<tr>
<td height="101" colspan="3"></td>
</tr>
<tr>
<td height="21" colspan="3" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="73" height="21"><div align="center"></div></td>
<td width="94"></td>
<td width="131"></td>
<td width="149"></td>
<td width="149"></td>
<td width="151"></td>
</tr>
</table> </td>
</tr>
<tr>
<td width="150" rowspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="150" height="664"></td>
</tr>
</table></td>
<td width="449" height="90" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="449" height="90"></td>
</tr>
</table></td>
<td width="148" rowspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="148" height="664"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="574" align="center" valign="top">
<%
' A cura di Luca Ruggiero - Consulente Informatico
' Sito Web: http://www.lucaruggiero.it/
Call CnOpen()
%>
<title>Una Directory in ASP</title>
</body>
<h1 align="center">Una Directory in ASP</h1>
<div align="center">
<table>
<tr>
<%
Dim conta
conta = 0
rs.Open "SELECT * FROM categorie ORDER BY cat_nome ASC", cn, 1
While rs.EOF = False
If conta = 2 Then
%>
</tr><tr>
<%
conta = 0
End If
%>
<td>[img]folder.gif[/img]</td>
<td>"><%=rs("cat_nome")%></td>
<%
conta = conta + 1
rs.MoveNext
Wend
rs.Close
%>
</tr>
</table>
</div>
</html>
<%
Call CnClose()
%></td>
</tr>
<tr>
<td height="14" colspan="3"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="747" height="14"></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
Contenuto della pagina cat.asp:
<%@LANGUAGE = VBScript%>
<%
' A cura di Luca Ruggiero - Consulente Informatico
' Sito Web: http://www.lucaruggiero.it/
Dim id, SQL
id = Request.QueryString("id")
If IsNumeric(id) = False Or id < 1 Then
Response.Redirect "default_2.asp"
End If
Call CnOpen()
%>
<html>
<head>
<title>Una Directory in ASP</title>
</head>
<body>
<h1>Una Directory in ASP</h1>
<select onChange="document.location.href='cat.asp?id='+thi s.value">
<option value="0">Cambia categoria</option>
<%
SQL = "SELECT * FROM categorie ORDER BY cat_nome ASC"
rs.Open SQL, cn, 1
While rs.EOF = False
%>
<option value="<%=rs("cat_id")%>"><%=rs("cat_nome")%></option>
<%
rs.MoveNext
Wend
rs.Close
%>
</select>
<%
SQL = "SELECT cat_nome FROM categorie WHERE cat_id = " & id
rs.Open SQL, cn, 1
%>
<h2><%=rs("cat_nome")%></h2>
<%
rs.Close
%>
<ul>
<%
SQL = "SELECT * FROM subcat WHERE sub_cat = " & id & " ORDER BY sub_nome ASC"
rs.Open SQL, cn, 1
While rs.EOF = False
%>[*]"><%=rs("sub_nome")%>
<%
rs.MoveNext
Wend
rs.Close
%>[/list]
</body>
</html>
<%
Call CnClose()
%>
GuidoC
Scusa, ma perché non lo fai con un semplice include?
prepara la pagina con la grafica che vuoi e poi nel punto in cui vuoi far apparire la directory fai un include.
Esempio:
Fatto questo, apri la pagina "config.asp" e commenta la riga 10, cioè da così:codice:<div align="center"> <table border="0" width="800" id="table1" cellspacing="0" cellpadding="5" style="border: 1px dashed #800000"> <tr> <td colspan="3" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom: 1px solid #800000"> <p align="center">Intestazione</td> </tr> <tr> <td width="180" valign="top">menu sx</td> <td width="67%" style="border-left: 1px solid #800000; border-right: 1px solid #800000" valign="top"> <div align="center"> </div> </td> <td width="180" valign="top">menu dx</td> </tr> <tr> <td colspan="3" style="border-left-width: 1px; border-right-width: 1px; border-top: 1px solid #800000; border-bottom-width: 1px"> <p align="center">Piede</td> </tr> </table> </div>
a così:codice:Option Explicit
codice:'Option Explicit
Ci sei?
GuidoC
Allora? hai provato?
sembra funzionare, ora provo con na pagina vuota per vedere cosa succede
GuidoC
Ok! Fai sapere!
Permessi di invio
Rispondi quotando