ho cambiato script..
usando quello che c'è sulla guida ASP
ho messo questo..
<%
Dim objRs, bolFound, strMail
strMail= Request("mail")
If ((Request("mail")=" ")) then
objConn.Close
Set ObjConn = nothing
%>
ti devi loggare
<%
Else
Set ObjRs =Server.CreateObject("ADODB.Recordset")
objRs.Open "TbDomande", objConn, , AdLockOptimistic, adCmdTable
bolFound = False
Do Until objRs.EOF OR bolFound
if (StrComp(objRs("Mail"), strMail, vbTextCompare)= 0) Then
'trovato
bolFound=true
else
objRs.MoveNext
end if
Loop
If Not bolFound Then
objRs.Close
Set ObjRs=nothing
objConn.Close
set objConn=nothing
%> non sei registrato
<%
end if
objRs("mail")="pippo"
objRs("Domanda1")=Request.Form("1")
objRs("Domanda2")=Request.Form("2")
objRs("Domanda3")=Request.Form("3")
objRs("Domanda4")=Request.Form("4")
objRs("Domanda5")=Request.Form("5")
objRs("Citta")=Request.Form("Sede")
objRs.Update
objRs.close
Set objRs=NOthing
end if
objConn.Close
Set objConn=nothing
%>
Modifiche ok.
ma mi restituisce come errore
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente
/quest/valida.asp, line 41
e alla linea 41 c'è
objRs("mail")="pippo"
... ma cosa puo' essere.. ??![]()
![]()
:master:

Rispondi quotando