I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
gtr-d
gtr-d
il 29 giugno 2001 alle 18:56
41 messaggi dal 20 giugno 2001
mi da il seguente errore:
---------------------------------------------
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/paginazione/appuntamenti.asp, line 40

rs.Open "select * from fotogaltab where modello=Request.QueryString (" model_foto ") ",db,adOpenStatic,adCmdTable
---------------------------------------------
e mi segnala con la classica riga di errore che l'errore e alla "m" di "model_foto".
Vi posto anche lo script completo:
---------------------------------------------


<%@ Language=VBScript %>
<!--#include virtual="/adovbs.inc"-->
<html>
<head>
<title>xxxxxxxxxxxxxxxxxx</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
-->
</style>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="10" marginwidth="0" marginheight="0">
<div align=center class="assocontribuenti">
<table width="620" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF">
<td colspan="2"><img src="img/img/appuntamenti.gif" width="165" height="18"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" height="250" bgcolor="#FFFFFF" valign="top">
<p><b><br>
</b></p>
<p>I prossimi appuntamenti:</p>
<%
'=====================================================================
'=====================================================================
' visualizza l'elenco degli appuntamenti presenti nella cartella appuntamenti
' visualizza solo fino a quelli di oggi
' questo file viene richiamato dal link appuntamenti della home page
'=====================================================================

' apre la connessione al database
set db= Server.CreateObject("ADODB.Connection")
dbfile = Server.MapPath("/mdb-database") & "\db_foto.mdb"
db.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile & ";"
set rs = Server.CreateObject("ADODB.Recordset")
' imposta il cursore per poter essere libero di leggere in ordine
rs.CursorLocation = adUseClient
' apre tabella appuntamenti
rs.Open "select * from fotogaltab where modello=Request.QueryString (" model_foto ") ",db,adOpenStatic,adCmdTable


RecordsPerPagina = 6
' legge la pagina richiesta
page = Request.QueryString("page")
if page="" then page = 1
'Response.Write("<br>Page n°: " & page)
' imposto la lettura del db in ordine cronologico
rs.Sort = "id"
' filtro le date maggiori di oggi
rs.Filter = "id >= " & 1
'Response.Write("<br>Posizione: " & rs.CursorLocation)

record = true
' controlla se ci sono valori
If rs.Eof=True or rs.Bof=True then
Response.Write "<P><b>Nessun risultato trovato</b></P>"
record = false
Else

'paginazione
rs.PageSize = RecordsPerPagina
rs.AbsolutePage = page


' intestazione tabella
%>
<table width="614" border="0" cellspacing="1" cellpadding="2" bgcolor="#000000">
<tr>
<td width="105" height="20"><b><font face="Arial, Helvetica, sans-serif" color="#FFFFFF" size="2">
Data</font></b></td>
<td width="135"><b><font face="Arial, Helvetica, sans-serif" color="#FFFFFF" size="2">
Luogo</font></b></td>
<td width="358"><b><font face="Arial, Helvetica, sans-serif" color="#FFFFFF" size="2">Argomento</font></b></td>
</tr>
<%
For i=1 to RecordsPerPagina step 1

if Not rs.EOF then
'==========================================
'======== visualizza i record =============
ID = rs.Fields("ID")
data = rs.Fields("modello")
luogo = rs.Fields("foto")
argomento = rs.Fields("modello")
'==========================================
'======== visualizza i record =============
%>
<tr bgcolor="#FFFFcc">
<td width="105"><font face="Arial, Helvetica, sans-serif"><font size="2"><%=data%></font></font></td>
<td width="135"><font face="Arial, Helvetica, sans-serif" size="2">
<%=luogo%></font></td>
<td width="358">
<p><font face="Arial, Helvetica, sans-serif" size="2"><%=argomento%></font></p>
</td>
</tr>
<%
rs.MoveNext
end if
next
'Response.Write("<br>ID: " & id)
'Response.Write("<br>data: " & data)
end if

%>
</table>
<%

if record = true then
' parte che visualizza il numero di pagine totali e i link relativi a quelle pagine
'Response.Write ("<P><B>Pagine totali:</B> " & NumPagine(numero_di_record, RecordsPerPagina) & "<br>")
'Response.Write ("<br>Page: " & page)
Response.Write "<P><B>Pagine:</B> "
For pag=1 to rs.PageCount
if pag = page*1 then
Response.Write("<b>" & pag & " </b>")
else
Response.Write "<A href='appuntamenti.asp?page=" & pag
'Response.Write "&" & Server.UrlEncode(strRicerca)
pagina = rs.PageCount
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next
end if
' chiude la connessione con il database
rs.Close
set rs = nothing

db.Close
set db = nothing
%>
</td></tr></table><br>
<tr valign="bottom">
<td colspan="2" bgcolor="#FFFFFF" height="10">
<div align="center">
<hr>

</div>

</td>
</tr>
</div>
</body>
</html>
---------------------------------------------
VI PREGO AIUTATEMI!!!!!!!!!!!!
come firma?
RispondiQuoting
fregoso
fregoso
il 29 giugno 2001 alle 22:57
71 messaggi dal 06 settembre 2002
Imposta una stringa da utilizzare nella Open:
sqlstr="select * from fotogaltab where modello='" & Request.QueryString("model_foto") & "'"
nel caso in cui modello sia un campo char; se invece è numerico:
sqlstr="select * from fotogaltab where modello=" & Request.QueryString("model_foto")

Ciao

Marco

http://www.mso.it/old-public/marco/index.asp
Ciao

Marco
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.