cosa sbaglio?

il 26 giugno 2001 alle 06:35

21 messaggi dal 20 giugno 2001

Ciao... parlo di un db MA COSA SBAGLIO?
Potette aiutarmi?

L'utente si registra e quando viene riconosciuto viene rindirizzato alla pagina dati_profi.asp.

Ci va legge e realizza parte della grafica poi da questo errore...

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/dati_profi.asp, line 86

....e questo e parte dello script....line 86 è dove rs("AZIENDA


<form method="POST" action="modifica_dati_azienda.asp">
<div align="left">
<input type="hidden" name="idazienda" value="<%=rs("IDAZIENDA")%>">
<input type="hidden" name="userid" value="<%=userid%>">

<% Dim descrizione
descrizione=rs("DESCRIZIONE")
descrizione=Replace(descrizione,"1aps1","'",1)
%>

<%
Dim indirizzo
indirizzo=rs("INDIRIZZO")
indirizzo=Replace(indirizzo,"1aps1","'",1)
%>

<font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<input type="text" name="indirizzo" size="21" value="<%=indirizzo%>">
<font face="Arial, Helvetica, sans-serif">CAP:</font>
<input type="text" name="cap" size="3" value="<%=rs("CAP")%>">
</font></td>
</tr>
<tr>
<td height="20" align="right"><font face="Arial, Helvetica, sans-serif" size="-1">LOCALITA':</font></td>
<td height="20"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<input type="text" name="localita" size="21" value="<%=rs("LOCALITA")%>">
<font face="Arial, Helvetica, sans-serif">PV:</font>
<input type="text" name="prov" size="3" value="<%=rs("PROV")%>">
</font></td>
</tr>
???????

Rispondi Quoting

albis

il 26 giugno 2001 alle 15:34

1.605 messaggi dal 06 settembre 2002

così non riesco a capire.
non sò per esempio come è stato riempito il recordset.
dovresti mandare il codice della pagina almeno fino a riga 86

FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA

Rispondi Quoting

claudioiaio

il 26 giugno 2001 alle 15:40

39 messaggi dal 04 giugno 2001

Per quanto ne so io rs("campo") non si può usare.

Prova ad usare rs.fields("campo")

Ciao

Claudio

Rispondi Quoting

HelpDesk

il 26 giugno 2001 alle 15:42

153 messaggi dal 20 aprile 2001

Quella dovrebbe essere la prima chiamata alle proprietà di rs.
Forse l'hai inizializzato male. Controlla nelle righe precedenti come hai creato l'oggetto recordset, magari manca qualcosa.

rs("nomecampo") si può usare, dato che la proprietà predefinita di un recordset è field. E la proprietà predefinita di un campo è "value".

Sono equivalenti:

rs.fields("nomecampo").value
rs.fields("nomecampo")
rs("nomecampo")

Modificato - HelpDesk - 26 Jun 2001 09:44:51

HD
____________
Posso indicarti la strada, ma poi devi seguirla da te.

Rispondi Quoting

eddi

il 26 giugno 2001 alle 15:52

21 messaggi dal 20 giugno 2001

Ecco... qui di seguito come risulta la pagina....

<%
' apertura connessione DB
' ***********************
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "lettere97"
'response.buffer=true
set rspw = Server.CreateObject("ADODB.Recordset")
SQLPW ="select * from PASSWORD where USERID='"&user_form&"'"
Set rspw=conn.execute(SQLPW)
Dim userid
userid=user_DB

' Recordset Dati
' **************
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM AZIENDE WHERE IDAZIENDA="&idazienda
%>
<html>

<head>
<title>Visualizza e inserisci dati azienda</title>
<meta content="text/html; charset=windows-1252" http-equiv="Content-Type">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v3.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d

)&&d.all) x=d.all

; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i]

;
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
//-->
</script>
<style type="text/css">

</style>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body alink="#cc0000" bgcolor="#000000" link="#FF9900" text="#ffffff" vlink="#ff9900" onload="" topmargin="0">

<div align="center" class="titolo">
<center>
</center>
</div>
<div align="center" class="titolo">
<center>
<table border="0" cellpadding="0" cellspacing="0" align="center" width="700">
<tr>
<td width="7" background="Immagini/fondino_gr.gif" bgcolor="#000000" rowspan="3" align="center"> </td>
<td width="14" bgcolor="#000000" valign="top" rowspan="3" align="center">
<p> </p>
</td>
<td class="testo" width="178" valign="top" height="85%" background="Immagini/fond_ar.gif.gif" align="center">
<p> </p>
</td>
<td width="6" bgcolor="#000000" valign="top" rowspan="3" align="center"> </td>
<td width="21" bgcolor="#FF9900" valign="top" rowspan="3" align="center"> </td>
<td bgcolor="#000000" valign="top" colspan="3" rowspan="3">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="20" height="35"> </td>
<td valign="bottom" align="left" height="35">
<p align="left" class="titolo">PROFI</p>
</td>
</tr>
</table>
<blockquote class="testo">


<form method="POST" action="modifica_dati_azienda.asp">
<div align="left">
<input type="hidden" name="idazienda" value="<%=rs("IDAZIENDA")%>">
<input type="hidden" name="userid" value="<%=userid%>">
</div>
<div align="left"></div>
<table width="86%" border="0" cellspacing="0" height="380">
<tr valign="top" align="right">
<td height="25" colspan="2">
<p align="left"><font face="Arial, Helvetica, sans-serif" size="-1">Da
questo pannello di controllo è possibile modificare i dati
relativi alla propria attività o azienda. Controllare la
correttezza delle informazioni inserite nel database e modificare
o completare i valori desiderati. </font></p>
<p align="left"><font face="Arial, Helvetica, sans-serif" size="-1">E'
possibile anche cancellare la propria azienda dal database
Fotografando.</font> </p>
<p align="left"><font face="Arial, Helvetica, sans-serif" size="-1">Per
rendere attive le modifiche cliccare sul tasto "Modifica
i Dati Aziendali".</font> </p>
<p align="left"><font face="Arial, Helvetica, sans-serif" size="-1">Per
attivare o modificare la pagina web cliccare sul tasto "Attiva/Modifica
pagina Web".</font></p>
<p> </td>
</tr>
<tr>
<td align="right" height="25"><font face="Arial, Helvetica, sans-serif" size="-1">AZIENDA:</font></td>
<td height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<input type="text" name="denominazione" size="21" value="<%=rs("DENOMINAZIONE")%>">
</font></td>
</tr>
<tr>
<td align="right" valign="top"><font face="Arial, Helvetica, sans-serif" size="-1">ATTIVITA'<br>
o DESCRIZIONE :</font></td>
<td valign="top">
<%
Dim descrizione
descrizione=rs("DESCRIZIONE")
descrizione=Replace(descrizione,"1aps1","'",1)
%>

<font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<textarea rows="4" name="descrizione" cols="23"><%=descrizione%></textarea>
</font></td>
</tr>
<tr>
<td align="right" height="20"><font face="Arial, Helvetica, sans-serif" size="-1">INDIRIZZO:</font></td>
<td height="20"> <%
Dim indirizzo
indirizzo=rs("INDIRIZZO")
indirizzo=Replace(indirizzo,"1aps1","'",1)
%><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<input type="text" name="indirizzo" size="21" value="<%=indirizzo%>">
<font face="Arial, Helvetica, sans-serif">CAP:</font>
<input type="text" name="cap" size="3" value="<%=rs("CAP")%>">
</font></td>
</tr>
<tr>.........

Rispondi Quoting

HelpDesk

il 26 giugno 2001 alle 16:02

153 messaggi dal 20 aprile 2001

Ultradev colpisce ancora!

Nella marea di codice non mi pare ci sia quello di apertura del recordset rs.

HD
____________
Posso indicarti la strada, ma poi devi seguirla da te.

Rispondi Quoting

eddi

il 26 giugno 2001 alle 16:27

21 messaggi dal 20 giugno 2001

...non sto usando Ultradev...

Il problema è sulla pagina dati_profi.asp

L'intera cosa funziona così:
- l'utente inserisce nome e pw, viene riconosciuto, se nel db la colonna MODELLO contiene il numero 2 viene rinviato alla pagina dati_profi.asp.... fino qui tutto OK

PROBLEMA quando arriva alla pagina dati_profi.asp non riesco a fargli capire di contunuare... questo qui sotto è il codice sulla prima pagina (quella da cui capisce che deve andare alla dati_profi.asp) ed è tutto ok... riconosce errore pw o utente....

<%
' recupero variabili da pagina controllo password
' ***********************************************
Dim user_form
user_form = request.form("userid")
user_form = LCase(user_form)
Dim password_form
password_form = request.form("password")
'response.buffer=true
'Response.Clear

' apertura connessione DB
' ***********************
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "lettere97"
'response.buffer=true
set rspw = Server.CreateObject("ADODB.Recordset")
SQLPW ="select * from PASSWORD where USERID='"&user_form&"'"
Set rspw=conn.execute(SQLPW)
' controllo se il nome utente esiste
' **********************************
if rspw.EOF and rspw.BOF then
' se il nome utente non è corretto
' ********************************
' chiusura connessione password
' *****************************
rspw.Close
conn.Close
response.Redirect "utente_errato.htm"

' se il nome è presente vado a controllare la password
' ****************************************************
Else
user_DB=rspw("USERID")
user_DB=Lcase(user_DB)
Password_DB=rspw("PASSWORD")
idazienda=rspw("IDAZIENDA")
Modello_DB=rspw("MODELLO")
rspw.Close

' Se la login è valida
' ********************
if user_form=user_DB and password_form=password_DB then
if Modello_DB = 2 Then
Response.Redirect "dati_profi.asp"
end if
Dim userid
userid=user_DB

' Recordset Dati
' **************
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM AZIENDE WHERE IDAZIENDA="&idazienda
rs.Open sql, conn

Else
' se la password non è corretta
' *****************************
response.Redirect "pw_errato.htm"
end if
end if
%>

Rispondi Quoting

eddi

il 26 giugno 2001 alle 16:55

21 messaggi dal 20 giugno 2001

Ma l'ERRORE deve essere qui sulla pagina dati_profi.aspma non so quall'è....

mi da errore alla riga di
<%=rs("IDAZIENDA")%>

<%
' apertura connessione DB
' ***********************
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "lettere97"
'response.buffer=true
set rspw = Server.CreateObject("ADODB.Recordset")
SQLPW ="select * from PASSWORD where USERID='"&user_form&"'"
Set rspw=conn.execute(SQLPW)
Dim userid
userid=user_DB

' Recordset Dati
' **************
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM AZIENDE WHERE IDAZIENDA="&idazienda
%>

....



<form method="POST" action="modifica_dati_azienda.asp">
<div align="left">
<input type="hidden" name="idazienda" value="<%=rs("IDAZIENDA")%>">
<input type="hidden" name="userid" value="<%=userid%>">

...

Rispondi Quoting

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.

Community

Corsi e consulenza

In primo piano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

Le novità di Entity Framework (Core) 7

I più letti di oggi

In evidenza

Misc

Utilizziamo i cookie per analisi, contenuti personalizzati e pubblicità.

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

Le novità di Entity Framework (Core) 7