domanda

[dedryk]

salve a tutti..
vi spiego cosa vorrei fare..
dunque, ho caricato sul mio server lo script di milea sulla registrazione e gestione degli utenti..io lo sto usando come area riservata del sito..bene, detto questo,sto creando una sezione di admin di tutto il sito tra cui la possibilita' di modificare, e cancellare i RS del database, quindi anche questa pagina deve essere mappata per selezionare le tabelle dello stesso DB di milea..solo che quando vado ad eseguire la pagina, mi compare questo messaggio:

ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/ris/locolist.asp, line 14

forse perche' non posso includere due pagine che hanno il comando SELECT from tabella ?

grazie a tutti

un saluto

Domenico

[Santino83_02]

risposta:

che c'è alla linea 14 di locolist.asp?

[dedryk]

ciao santino

riga 14 ecco qui : rs.Open sql, conn ,3,3

[Santino83_02]

Originariamente inviato da dedryk
ciao santino

riga 14 ecco qui : rs.Open sql, conn ,3,3

o sql non è una stringa sql (magari non l'hai impostata prima) o conn non è una connessione (e cmq 3,3 è pesantuccia come apertura, magari ti basta 1,3, che stai facendo?)

[dedryk]

dunque sto includendo questa pagina nell'area riservata con le indicazioni di milea..questa pagina locolist.asp, e' linkata con lo stesso DB access ma ad una tabella diversa..la connessione del DB e' inclusa gia' in inc_common.asp

eccola: (ovviamente l'ho modificata secondo le mie esigenze)

<%
'------------------------------------------------------------------------------------
'Copyright (C) 2004 Demetrio G. Milea
'
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'GNU General Public License for more details.
'
'A copy of the license may be found at www.fsf.org (Free Software Foundation)
'or inside the folder registrazione_e_gestione_utenti
'------------------------------------------------------------------------------------
%>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
If isCommonCreated <> True Then
'Determino il timeout dello script
Server.ScriptTimeout = 90

'Determino le dimensioni delle variabili
Dim strDataBasePath 'Variabile
Dim cString 'Variabile
Dim adoCon 'Variabile
Dim strSQL 'Variabile

'Setto la variabile per una connessione ADO
Set adoCon = Server.CreateObject("ADODB.Connection")

'------------------------------------------------------------------------------------
'Cambiare il path del database
strDataBasePath = "/mdb-database/global.mdb"
'------------------------------------------------------------------------------------

'Stringa per la connessione
'Se la seguente linea non funziona, commentare con ' e scegliere un altra stringa
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)

'Usa questa stringa se usi Access Database 2000 o 2002
'cString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath)

'Usa questa stringa se usi DSN
'cString = "DSN=NAME_OF_DSN"
'Sostituisci il NAME_OF_DSN con il DSN

adoCon.Open cString

'Richiesta dei valori utente

'Setta the variable to the value in the users cookie
str_userscode = Request.Cookies("Login")("userCode")

'Se l'user code non è vuota allora
IF str_userscode <> "" THEN
'Creo un nuovo record set
Set rsUserLog = Server.CreateObject("ADODB.RecordSet")

'Setta una nuova stringa sql
StrSql="SELECT * FROM tbl_authors WHERE code='" & str_userscode & "';"

'Apro il recordset e eseguo il codice sql
rsUserLog.open StrSql,cString

'Se non ci sono record che accertano l'identita dei dati dai cookies dell'utente
'setta la variabile vuota

If rsUserLog.EOF Then
Response.cookies("Login")("userCode") = ""
'Se non c'è nessun record allora
Else

' Setta i valori del database con le variabili
str_users_name = rsUserLog("name")
str_users_password = rsUserLog("pass")
str_users_nome = rsUserLog("nome")
str_users_cognome = rsUserLog("cognome")
str_users_email = rsUserLog("email")
str_users_citta = rsUserLog("citta")
str_users_provincia = rsUserLog("provincia")
str_users_cap = rsUserLog("cap")
str_users_authority = rsUserLog("authority")
str_users_date = rsUserLog("dataregistrazione")
str_users_code = rsUserLog("code")
str_users_stato = rsUserLog("stato")
str_users_pagina_web = rsUserLog("pagina_web")
str_users_utentesospeso = rsUserLog("utentesospeso")
End If

'Chiudo
rsUserLog.Close
set rsUserLog = Nothing

'Se l'user code è vuoto allora l'utente è guest
Else
Response.cookies("Login")("userCode") = ""
End If

'--------------------------------------------------------------------------------------------

'Creo un nuovo record set
set rsPageAttributes = Server.CreateObject("ADODB.RecordSet")

'Query sql
pageSql = "SELECT * FROM tbl_admin"

'Apro il recordset e eseguo sql
rsPageAttributes.open pageSql,cString

adminEmail = rsPageAttributes("adminEmail")
pageTitle = rsPageAttributes("TitoloSito")
homePage = rsPageAttributes("homePage")
mailServer = rsPageAttributes("mailHost")
tipoMail = rsPageAttributes("tipoMail")
conf_email = rsPageAttributes("conf_email")

'Chiusura
rsPageAttributes.Close
set rsPageAttributes = Nothing

'--------------------------------------------------------------------------------------------
Else
Dim isCommonCreated
isCommonCreated = True
End If

'--------------------------------------------------------------------------------------------
Function GetState(intState)
Select Case intState
Case 0
GetState = "adStateClosed"
Case 1
GetState = "adStateOpen"
End Select
'Sintassi: GetState(adoCon.state)
End Function
'--------------------------------------------------------------------------------------------
%>

[Santino83_02]

embè cosa centra con rs.Open sql, conn ,3,3 ?non mi pare di vedere nessuna riga del genere nella pagina che hai postato

[dedryk]

e' proprio questo che non riesco a capire..perche' non va'? dove sbaglio?

[Santino83_02]

Originariamente inviato da dedryk
e' proprio questo che non riesco a capire..perche' non va'? dove sbaglio?

come si dice spesso sul forum: la palla di vetro ce l'ho dal meccanico!!

dove sbagli? boh, in che contesto l'hai messa quella riga che da errore? certo che se l'hai buttata li in fondo a quello che hai postato prima, non funziona perchè

1) rs non è istanziato
2) non parliamo di sql
3) figuriamoci conn

che codice c'è intorno a quella riga?