sub identificazione_1 ()
dim valore as string=replace(parola_da_cercare.text,"'","''")
'verifico che ci sia nel db'''''''''''''''''
dim objcmd_ver34dsm2 as new oledbcommand (" select * from mastro_login where pass_ini='"& valore &"' ", objconn)
dim read34dsm2 as oledbdatareader
objconn.open
read34dsm2=objcmd_ver34dsm2.executereader
dim conto as integer=0
dim nome_tabella as string
dim nome_reception as string
while read34dsm2.read
conto=conto+1
If Not read34dsm2("tabe_ini") Is System.DBNull.Value Then
nome_tabella = read34dsm2("tabe_ini")
end if
If Not read34dsm2("uno") Is System.DBNull.Value Then
nome_reception = read34dsm2("uno")
end if
end while
read34dsm2.close
objcmd_ver34dsm2.connection.close()
if (conto = 0) then
messax.text="pass errata RIPROVARE"
else
'la reception di riferimento
response.Cookies("reception_indirizzata").value=no me_reception
response.Cookies("reception_indirizzata").expires= DateAdd("h", 16, Now())'cosi scade dopo un ora
'la tabella di riferimento
response.Cookies("tabella_indirizzata").value=nome _tabella
response.Cookies("tabella_indirizzata").expires=Da teAdd("h", 16, Now())'cosi scade dopo un ora
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''
messax.text=""
response.redirect("../default_home.aspx")
'
'fine area login''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
end if
end sub
</script><title>MASTRO SOF</title><br>
<br>
<table align="center" width="85%" height="85%" bordercolor="#0000CC" border="1" cellpadding="0" cellspacing="0"><tr><td valign="middle" align="center"><br>
<br>
<img src="Logo_mastro_software.png"><br><br><br>
<form runat="server">
<font face="Verdana, Arial, Helvetica, sans-serif" color="#000099">LOGIN </font><br>
<br>
<asp:textbox ID="parola_da_cercare" runat="server" TextMode="Password" /><br><br>
<asp:button runat="server" OnClick="identificazione" Text="ENTER" BackColor="#0066FF" ForeColor="#FFFFFF" /><br>
<br>
<asp:label runat="server" ID="messax" ForeColor="#FF0000" Font-Name="verdana"/>