ho un form dove inserisco l'user(cpw_codcli)e mi invia alla pagina modifica password:
<%@LANGUAGE="VBSCRIPT"%>
<%dim objconn
Set objconn = Server.CreateObject("ADODB.Connection")
dhname = "Provider=MSDASQL.1;Password=hp3015;Persist Security Info=True;User ID=dhadmin;Data Source=eBdhi"
objconn.Open dhname
%>
<%dim objrs, bolfound, stridarma
stridarma = request.Form("cpw_codcli")
if stridarma ="" then
objconn.close
set objconn = nothing
response.Redirect("attenzione.asp")
end if
set objrs = server.CreateObject("adodb.recordset")
objrs.open "hii_clipass" , objconn, , , adcmdtable
bolfound = false
do while not (objrs.eof or bolfound)
if (strcomp(objrs("cpw_codcli"), stridarma,vbtextcompare) = 0) then
bolfound = true
else
objrs.movenext
end if
loop
if not bolfound then
objrs.close
set objrs = nothing
objconn.close
set objconn = nothing
response.Redirect("attenzione.asp")
end if
%>
ma mi da errore anche se non immetto niente mi potete aiutare
Rispondi quotando
