<% ERRORE = "" ERRORE1 = "" ERRORE2 = "" ERRORE3 = "" %> <%Set rs = Server.CreateObject("ADODB.Recordset") Sub ctrlUser(cpw_codcli,cpw_pwd) Nome=replace(cpw_codcli,"'","''") Password=replace(cpw_pwd,"'","''") if request("cpw_codcli") = "" or MID(request("cpw_codcli"),1,1) = " " then ERRORE="Inserire user" exit sub end if strSQL="SELECT * FROM hii_clipass WHERE StrComp(cpw_codcli, '" & cpw_codcli & "', 0) = 0" rs.Open strSQL,cn if rs.eof then rs.close set rs = nothing set cn = nothing ERRORE1 = "USER non è corretto." exit sub end if if request("cpw_pwd") = "" or MID(request("cpw_pwd"),1,1) = " " then ERRORE2="Inserire la Password" exit sub end if Set rs1 = Server.CreateObject("ADODB.Recordset") strSQL="SELECT * FROM hii_clipass WHERE StrComp(cpw_pwd, '" & cpw_pwd & "', 0) = 0" rs1.Open strSQL,cn if rs1.eof then rs1.close set rs1 = nothing set cn = nothing ERRORE3 = "La Password non è corretta." exit sub end if session("cpw_codcli")=Nome session("cpw_pwd")=Password If Nome = "" & Nome & "" then Session("Autenticato") = True End If Response.Redirect("AREA CLIENTI.html") rs.close set cn = nothing set rs = nothing End Sub if request.form("type") = "I" then Call ctrlUser(request.form("cpw_codcli"),request.form("cpw_pwd")) %> LABORATORI home2
La Piramide
Centro Direzionale Residence per Aziende e Professionisti
 
   
  
VIA DI GROTTE PORTELLA 6/8 FRASCATI (RM)
marchio anur
line decor
 


 

Servizio in sede di magazzinaggio, gestione merci in arrivo e partenza, amministrazione degli stock, sia per “piccoli volumi” e “parcel”, Collaborazione con vettori di primaria importanza su ruota, nave o aereo. Disbrigo di pratiche relative all’ import e l’export.