<% 'Cache control -force reload Response.CacheControl=False Response.Expires=-1 'Open connection to the database set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "ajg_toursinisrael" 'Create recordset for counter info set RS=Server.CreateObject("ADODB.RecordSet") set RS1=Server.CreateObject("ADODB.RecordSet") 'Read initial counter value RS.Open "SELECT COUNT(*) as MyCount FROM page_count",MyConn RecordNumber=RS("MyCount") RS1.Open "SELECT * FROM page_count",MyConn RS1.Move(1) 'Write new counter value pagecounter=RS1("countervalue") newpagecounter=pagecounter + 1 SQLstmt = "UPDATE page_count SET " SQLstmt = SQLstmt & "countervalue= '" & newpagecounter & "' " SQLstmt = SQLstmt & " WHERE pageID= " & 2 & "; " Set RS8 = MyConn.Execute(SQLstmt) 'Create recordset for reading specials info set RS2=Server.CreateObject("ADODB.RecordSet") set RS3=Server.CreateObject("ADODB.RecordSet") 'Read specials record from database RS2.Open "SELECT COUNT(*) as MyCount FROM specials",MyConn RecordNumber=RS2("MyCount") RS3.Open "SELECT * FROM specials",MyConn RS3.MoveFirst 'Output error If err.number>0 then response.write "VBScript Errors Occured:" & "

" response.write "Error Number=" & err.number & "

" response.write "Error Descr.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" end if IF MyConn.errors.count> 0 then response.write "Database Errors Occured" & "

" response.write SQLstmt & "

" for counter= 0 to MyConn.errors.count response.write "Error #" & MyConn.errors(counter).number & "

" response.write "Error desc. -> " & MyConn.errors(counter).description & "

" next else 'response.write "Record is updated!" 'response.write "
" & SQLstmt end if %> Israel tour guide - Home
Travelink Group Ltd presents a website Toursinisrael.com Charter, scheduled business group single youth flights to IsraelHoliday, tour and travel special offers and deals for trips to IsraelCar hire in Israel, Tel Aviv, Jerusalem and more Fly & drive offers available Package and tailor made holiday tours in IsraelKibbutz fly & drive holidays, ein gediChristian pilgrimages, bible tours and guided tours of the holylandYouth activity holidays, bible tours, school groups and exchangesJewish holidayas and simchas - Jewish special events


Israel tour guide > Home

Choose a destination from the following list to learn more about Israel...

 

 

 

 

   Holiday, tours, travel and flights special offers and deals for trips to Israel
   Deluxe, Premier, Standard and Budget Hotels in Eilat on the Red Sea
   Israel tour guide - Sites and Places to see, destinations in Israel and the Holyland
  

 

 

Caesarea Philipi
Eilat on the Red Sea
Galilee
Hebron
Jerusalem
Megiddo
Nazareth
Safed
Tel Aviv
The Dead Sea
Tiberius

 

 

 

        Please use our new web site at:

        www.travelinkuk.com

        Click Here

<%MyConn.Close Set RS=nothing Set RS1=nothing Set RS2=nothing Set RS3=nothing %>