Newsgroup: it.comp.www.asp
Titolo: errore type=request.QueryString("type")

Ho questo codice (qui ne metto una porzione), ma quando lo carico mi da
errore sulla linea
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
/Home/Connessione/Connessione.asp, line 61
type=request.QueryString("type")
Il codice dovrebbe far si che che chiamando la pagina in questo modo
connessione.asp?type=Pc_Tel, lui dentro a type mi metta il "Pc_Tel" e poi
tramite una select case associarmi a vari valori che puo assumere type un
valore di nfrom...
grazie
p.s. premetto che quel codice di type in altre pagine che ho funziona!?!?!?
<%
Dim Conn
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
          server.MapPath("connessione.mdb")
type=request.QueryString("type")
If type="" Then
  type = "Pc_Tel"
End If
Select case ucase("type")
 case "Pc_Tel":  nfrom= "Pc_Telefono"
 case "Pc_Palm":  nfrom= "Pc_Palmare"
 case "Palm_Tel": nfrom= "Palmare_Telefono"
 case else: nfrom=""
End Select
pag = TRIM(Request.QueryString("pag"))
If pag="" Then
  pag = 1
Else
  pag = CInt(pag)
End If
Dim sql
sql = "SELECT * FROM '" & nfrom & "' ORDER BY Data DESC"
Dim rs
Set rs = Server.CreateObject ("ADODB.Recordset")
'Settiamo il numero di record per pagina
rs.PageSize = 5
rs.Open sql, conn, 3, 3
rs.AbsolutePage = pag
For i=1 to rs.PageSize
ecc....


Moderatore di it.comp.www.asp - Microsoft .NET MVP
http://www.aspitalia.com/
 Enjoy the .NET community!
http://www.dev2dev.it/
 La rete ha connesso nuove particelle! 

 type è una parola chiave riservata. usa un altro nome.
grazie :-)
ma ho ancora un problema :-((
ora sulla query :
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nella query.
Proposizione della query incompleta.
/Home/Connessione/Connessione.asp, line 88
tipo=request.QueryString("tipo")
If tipo="" Then
  tipo = "Pc_Tel"
End If
Select case ucase("tipo")
 case "Pc_Tel":  nfrom= "Pc_Telefono"
 case "Pc_Palm":  nfrom= "Pc_Palmare"
 case "Palm_Tel": nfrom= "Palmare_Telefono"
 case else: nfrom=""
End Select
Dim sql
sql = "SELECT * FROM '"&nfom&"' ORDER BY Data DESC"
Se metto sql = "SELECT * FROM Pc_telefono ORDER BY Data DESC"   va.. ?

 sql = "SELECT * FROM '"&nfom&"' ORDER BY Data DESC"
scusa... ma perche' metti il nome della tabella tra apici?
--
Lino Mari [mod - it.economia.e-commerce]
http://www.ebow.it
 - e-business on web!
http://www.dev2dev.it
 - La rete ha connesso nuove particelle - d2D004
Le persone più interessanti che conosco, a ventidue anni non sapevano
che fare della loro vita. I quarantenni più interessanti che conosco
ancora non lo sanno.

sql = "SELECT * FROM '"&nfom&"' ORDER BY Data DESC"
Hai messo gli apice nel nome della tabella!
sql = "SELECT * FROM " & nfom & " ORDER BY Data DESC"
-- 
   Davide Lakester
   ICQ: 40766105
   Now Playing: The Legend of Zelda: Oracle of Ages (GBA), GTA III: Vice City (PS2)
   Now Listening: Dredg - El Cielo, Audioslave - Audioslave
   Last Movies: Final Fantasy, Harry Potter e la Camera dei Segreti


continua a darmi errore :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nella
proposizione FROM.
/Home/Connessione/Connessione.asp, line 88
posto tutto il codice :
<%
Dim Conn
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
          server.MapPath("connessione.mdb")
tipo=request.QueryString("tipo")
If tipo="" Then
  tipo = "Pc_Tel"
End If
Select case ucase("tipo")
 case "Pc_Tel":  nfrom= "Pc_Telefono"
 case "Pc_Palm":  nfrom= "Pc_Palmare"
 case "Palm_Tel": nfrom= "Palmare_Telefono"
 case else: nfrom=""
End Select
pag = TRIM(Request.QueryString("pag"))
If pag="" Then
  pag = 1
Else
  pag = CInt(pag)
End If
Dim sql
sql = "SELECT * FROM " & nfom & " ORDER BY Data DESC"
Dim rs
Set rs = Server.CreateObject ("ADODB.Recordset")
'Settiamo il numero di record per pagina
rs.PageSize = 5
rs.Open sql, conn, 3, 3
rs.AbsolutePage = pag
For i=1 to rs.PageSize
Response.Write("<table width=""100%"" border=""0"" cellspacing=""0""
cellpadding=""0"">")
Response.Write("<tr><td class=""testo"" valign=""top"" colspan=""2""><a
href="&tipo&"/"&rs("Link")&">"&rs("Titolo")&"</a></td><td class=""testo""
valign=""top""
width=""329"">"&rs("Data")&"</td></tr>")
Response.Write("<tr><td class=""testo"" valign=""top""
width=""105"">&nbsp;</td><td class=""testo"" valign=""top""
colspan=""2"">"&rs("Descrizione")&"</td></tr>")
Response.Write("</table>")
  rs.MoveNext
  If rs.EOF Then Exit For
Next
%>

non devi usare integer se concateni, altrimenti segnala errore; usa sempre
un formato stringa, poi, nella query, se non racchiudi tra apici sarà
considerato numerico (vedi var pag)

 continua a darmi errore :
scusa invece del codice... prova a visualizzare la varibile sql... cosi'
vedi dentro che c'e'...
ciao


 considerato numerico (vedi var pag)
tipo=TRIM(Request.QueryString("tipo"))
If tipo="" Then
  tipo = "Pc_Tel"
End If
Select case ucase("tipo")
 case "Pc_Tel":  nfrom= "Pc_Telefono"
 case "Pc_Palm":  nfrom= "Pc_Palmare"
 case "Palm_Tel": nfrom= "Palmare_Telefono"
 case else: nfrom=""
End Select
Dim sql
sql = "SELECT * FROM '"& nfom &"' ORDER BY Data DESC"
ora l'errore è :Proposizione della query incompleta.
ma l'errore dove è in tipo o nella query??!!??
la select case ucase("tipo") va bene... perchè secondo me è quella che non
funziona
blasfemo


secondo me per qualche motivo la stringa sql a questo punto [ sempre>
SELECT * FROM ORDER BY Data DESC
manca cioè sempre il nome della tabella
visualizza la stringa sql che passi come query e guarda se è questo il 
problema
-- 
davide morelli
www.parser.it

qual è il valore di sql?


ho risolto in una maniera molto barbina...
ho risolto togliendo il Select case ucase("tipo")... era lui che non
funzionava chissa perche !?!? e inoltre ho rinominato le tabelle del db