<%
'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
© 2000 Travelink Group Ltd. | Web
Site Design
<%MyConn.Close
Set RS=nothing
Set RS1=nothing
Set RS2=nothing
Set RS3=nothing
%> 
