%myFile=Server.MapPath("/mdb-database/cont.txt") Set FileObject=CreateObject ("Scripting.FileSystemObject") Set InStream=FileObject.OpenTextFile(myFile,1,true) dim cont if session("utente")="" then cont=InStream.ReadLine()+1 session("utente")=1 else cont = InStream.ReadLine() end if INStream.close Set FileObject=CreateObject ("Scripting.FileSystemObject") Set OutStream=FileObject.CreateTextFile(myFile,true) OutStream.WriteLine(cont)%>
  |
"Hire car with driver" |
![]() |
| "Daily renting" | ||
| "Holiday length renting" | ||
| "Wine Tours" | ||
| "Shopping Tours" |