<%@language=vbscript%>
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<%dim objconn, strconn
ingress=session("inser")
nascondiglio=session("nasc")
set objconn= server.createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/turismo/pino.mdb")
objconn.open strconn
indiri=request("indirizzo")
posi=request("posizione")
desc=request("descrizione")
ser=request("servizio")
ca=request("cassetta")
parc=request("parcheggio")
ascen=request("ascensori")
acc=request("accesso")
lavanderi=request("serviziolav")
a=request("aria")
sa=request("sauna")
asciu=request("asciuga")
b=request("bagno")
bta=request("bar")
ti=request("tv")
luog=request("luogo")
mai=request("mail")
tel=request("telefono")
fon=request("telefon")
stars=request("star")
nam=request("nome")
regiona=request("regione")
cater=request("categoria")
indir=lcase(indiri)
des=lcase(desc)
mak=lcase(nam)
set obj =server.createobject("adodb.recordset")
obj.open "tblex", objconn, adlockoptimistic, adcmdtable
do until obj.eof
if (strcomp(obj("logi"),ingress,vbtextcompare)=0) and (strcomp(obj("passwor"),nascondiglio,vbtextcompare )=0) then
obj("indiriz")=indir
obj("posiz")=posi
obj("descr")=des
obj("serv")=ser
obj("cas")=ca
obj("parch")=parc
obj("ascens")=ascen
obj("acces")=acc
obj("lavanderia")=lavanderi
obj("ar")=a
obj("sau")=sa
obj("asciug")=asciu
obj("ba")=b
obj("bt")=bta
obj("t")=ti
obj("luo")=luog
obj("post")=mai
obj("telegr")=tel
obj("phone")=fon
obj("stel")=stars
obj("man")=mak
obj.update
objclose
set obj= nothing
objconn.close
set objconn=nothing
response.Redirect "stanze.htm"
else
obj.movenext
end if
loop
%>
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>