Type mismatch: 'clng'

[justin_73]

Ciao a tutti sono nuovo in asp e da giorni non riesco a risolvere questo problema.

Ho un form di registrazione con una procedura di salvataggio che vi posto qui sotto:
'**********************SALVA CONTATTI*******************************
Sub SalvaContatto(id_contatto)

'dim id_contatto, nominativo, id_citta_contatto, id_indirizzo_contatto, id_messaggio_contatto, DataContatto


Set cn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")

SQL = "SELECT * FROM t_contatti"

cn.CursorLocation = adUseClient
cn.Mode = adModeReadWrite
cn.open Connessione
rs.open SQL, cn, adOpenDynamic, adLockOptimistic


rs.addnew


rs("id_cognonome_contatto") = (request.form("txtOperatore3"))
rs("id_citta_contatto") = (request.form("txtOperatore4"))
rs("id_indirizzo_contatto") = ucase(trim(request.form("txtOperatore5")))
rs("id_messaggio_contatto") = trim(request.form("txtcontatto"))


rs.update




rs.close
cn.close

set rs = nothing
set cn = nothing

End Sub




'******************************CHIUDO SALVA CONTATTI****************************************
Quando salvo il form mi restituisce questo errore:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'clng'

/amm/salvataggi.asp, line 327

Non riesco piu' a venirne a capo,vi chiedo gentilmente se riuscite a dfarmi u na mano.

Grazie mille

[optime]

dov'è CLNG? dov'è la linea 327? illuminaci, grassie

[justin_73]

scusate questo e' il codice che mi genera l'errore:

'**********************SALVA CONTATTI*******************************
Sub SalvaContatto(id_contatto)

'dim id_contatto, nominativo, id_citta_contatto, id_indirizzo_contatto, id_messaggio_contatto, DataContatto


Set cn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")

SQL = "SELECT * FROM t_contatti"

cn.CursorLocation = adUseClient
cn.Mode = adModeReadWrite
cn.open Connessione
rs.open SQL, cn, adOpenDynamic, adLockOptimistic


rs.addnew


rs("id_cognonome_contatto") = clng(request.form("txtOperatore3"))
rs("id_citta_contatto") = clng(request.form("txtOperatore4"))
rs("id_indirizzo_contatto") = ucase(trim(request.form("txtOperatore5")))
rs("id_messaggio_contatto") = trim(request.form("txtcontatto"))


rs.update




rs.close
cn.close

set rs = nothing
set cn = nothing

End Sub




'******************************CHIUDO SALVA CONTATTI****************************************

[optime]

probabilmente dai request.form ti arriva un valore null, o vuoto, o comunque NON numerico. controlla (bastano dei semplici response.write)

[justin_73]

Scusami sono fresco in ASP si vede, ma se i request.write intendi cambiarli come vedi sotto:



rs("id_cognonome_contatto") = clng(response.write("txtOperatore3"))
rs("id_citta_contatto") = clng(response.write("txtOperatore4"))
rs("id_indirizzo_contatto") = ucase(trim(response.write("txtOperatore5")))
rs("id_messaggio_contatto") = trim(response.write("txtcontatto"))

mi ritorna questo errore adesso:

txtOperatore3

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/amm/salvataggi.asp, line 327

[justin_73]

scusate se puo' servire posto anche il codice della pagina del modulo, che invia i dati alla pagina salvataggi.asp col codice che ho postato all'inizio e che mi genera l'errore:


<%
dim id_autorizzazione, id_applicazione
dim colore

dim cn, rs, SQL
dim id_contatto, nominativo, id_citta_contatto, id_indirizzo_contatto, id_messaggio_contatto, DataContatto
dim Soggetto, Messaggio, body, Indirizzo

' controllo che l'utente sia loggato
call verificautente


id_contatto = 0
if request("id_contatto") <> "" then
id_contatto = clng(request("id_contatto"))
end if

intestazione 0, "GESTIONE CONTATTI"

'l'hidden FlagInvia viene settato a zero

'se l'hidden FlagSalva è a 1 salvo l'utente e sparo l'utente nella pagina di elenco

select case request.form("FlagSalva")
case "1" 'salvataggio
SalvaContatto id_contatto


end select

set cn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")

SQL = "SELECT id_nome_contatto + ' ' + id_cognome_contatto as nominativo, id_citta_contatto, id_indirizzo_contatto, DataContatto, id_messaggio_contatto, id_contatto FROM t_contatti"

cn.Mode = adModeRead
cn.open Connessione
rs.open SQL, cn, adOpenForwardOnly, adLockReadOnly


if rs.eof then
'nuovo record
Datacontatto = now()
id_contatto = 1


else
'il record esiste e leggo i dati che utilizzo per valorizzare i vari controlli nella pagina
id_contatto = rs("id_contatto")

rs.close
end if
%>
<form name="frmcontatto" method="post" >
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="dettaglio" bgcolor="<% =RIGA_PARI %>">Data contatto </td>
<td class="dettaglio" bgcolor="<% =RIGA_DISPARI %>"><%=DataContatto%></td>
</tr>
<tr>
<td class="dettaglio" bgcolor="<% =RIGA_PARI %>">Nome </td>
<td class="dettaglio" bgcolor="<% =RIGA_DISPARI %>"><input type="text" name="txtOperatore2" size="50" maxlength="100" value="<%=id_nome_contatto %>" /></td>
</tr>
<tr>
<td class="dettaglio" bgcolor="<% =RIGA_PARI %>">Cognome</td>
<td class="dettaglio" bgcolor="<% =RIGA_DISPARI %>"><input type="text" name="txtOperatore3" size="50" maxlength="100" value="<%=id_cognonome_contatto %>" /></td>
</tr>
<tr>
<td class="dettaglio" bgcolor="<% =RIGA_PARI %>">Citt&agrave;</td>
<td class="dettaglio" bgcolor="<% =RIGA_DISPARI %>">
<input type="text" name="txtOperatore4" size="50" maxlength="100" value="<%=id_citta_contatto %>" /></td>
</tr>
<tr>
<td class="dettaglio" bgcolor="<% =RIGA_PARI %>">Indirizzo</td>
<td class="dettaglio" bgcolor="<% =RIGA_DISPARI %>"><input type="text" name="txtOperatore5" size="50" maxlength="100" value="<%=id_indirizzo_contatto %>" /></td>
<tr>
<td class="dettaglio" bgcolor="<% =RIGA_PARI %>">Messaggio contatto </td>
<td class="dettaglio" bgcolor="<% =RIGA_DISPARI %>">
<textarea name="txtcontatto" class="oggetti" cols="50" rows="5"><% =id_messaggio_contatto %></textarea> </td>
</tr>
</table>


<table border="0" width="100%">
<tr>
<td align="center">
<%
If id_contatto = 0 Then
%>
<input type="button" name="cmdSalva" value="Salva contatto" onclick="javascript:salva()" />
<%
Else
%>
<input type="button" name="cmdSalva" value="Salva contatto" onClick="javascript:salva_redirect()">
<%
End If
%>

<input type="reset" name="cmdAnnulla" value="Annulla">

<input type="button" name="cmdEsci" value="Torna all'elenco" onClick="javascript:esci()"> </td>
</tr>
</table>
<input type="hidden" name="txtOperatore2" value="<%=id_nome_contatto %>">
<input type="hidden" name="txtOperatore3" value="<%=id_cognonome_contatto %>">
<input type="hidden" name="txtOperatore4" value="<%=id_citta_contatto %>">
<input type="hidden" name="txtOperatore5" value="<%=id_indirizzo_contatto %>">
<input type="hidden" name="txtcontatto" value="<%=id_messaggio_contatto %>">
<input type="hidden" name="FlagSalva" />
<input type="hidden" name="FlagInvia">

</form>

<form name="frmEsci" method="post" action="contatti.asp">
</form>
<script language="javascript">

function salva()
{
var mioflag = false
if (document.frmcontatto.id_contatto.value == 0)

var invia = <%=id_contatto%>;
//se il documento è nuovo, setto a 1 il flag per l'invio della mail
if (invia==0)
{
document.frmcontatto.FlagInvia.value = "1";
}
mioflag = confirm("Si desidera salvare la pagina?");
if (mioflag == false) return;
document.frmcontatto.FlagSalva.value = "1";
document.frmcontatto.submit();
}

function esci()
{
document.frmEsci.submit();
}

function eliminaRiga(id)
{
var mioflag = false
mioflag = confirm("Si desidera eliminare la riga?");
if (mioflag == false) return;
document.frmcontatto.FlagSalva.value = "5";
document.frmcontatto.id_contatto.value = id;
document.frmcontatto.submit();
}
function salva_redirect()
{

var mioflag = false
mioflag = confirm("Si desidera salvare il contatto?");
if (mioflag == false) return;
document.frmcontatto.FlagSalva.value = "1";
document.frmcontatto.submit();
}

</script>