<%@LANGUAGE="VBSCRIPT"%>
<%
'makesurepage is loaded within the site and memeber level is 2 or above
if Session("Member_Level") < 2 then
Response.Redirect "http://www.megascotland.co.uk"
end if
'Dynamically set the docid session variable
Session("DocID") = Request.QueryString("docid")
'make sure a cached copy is not used
pStr = "private, no-cache, must-revalidate"
Response.ExpiresAbsolute = #2000-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", pStr
'initialise objects and variables
dim excachers, conn, strsql, rsuser, strMDBPath
set conn=server.createobject("ADODB.Connection")
set rsuser=server.createobject("ADODB.Recordset")
rsuser.CursorType = 2 'Set the cursor type we are using so we can navigate through the recordset
rsuser.LockType = 3 'Set the lock type so that the record is locked by ADO when it is updated
conn.open GetRegConnStr
strsql = "SELECT * FROM addtoregistered"
rsuser.open strsql, conn
excachers=""
rsuser.MoveLast
Do While not rsuser.bof
excachers=excachers + rsuser("Team") + vbcrlf
rsuser.MovePrevious
Loop
rsuser.close
conn.close
'clean up memory
set rsuser=nothing
set conn=nothing
%>
Database Update Page