<%@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 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 GetStockConnStr
strsql = "SELECT * FROM stock where rowid=1"
rsuser.open strsql, conn
if not rsuser.eof Then
reged=rsuser("Stock")
REOOS=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=2"
rsuser.open strsql, conn
if not rsuser.eof Then
limed=rsuser("Stock")
LEOOS=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=3"
rsuser.open strsql, conn
if not rsuser.eof Then
reged2=rsuser("Stock")
REOOS2=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=4"
rsuser.open strsql, conn
if not rsuser.eof Then
limed2=rsuser("Stock")
LEOOS2=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=5"
rsuser.open strsql, conn
if not rsuser.eof Then
reged3=rsuser("Stock")
REOOS3=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=6"
rsuser.open strsql, conn
if not rsuser.eof Then
limed3=rsuser("Stock")
LEOOS3=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=7"
rsuser.open strsql, conn
if not rsuser.eof Then
reged4=rsuser("Stock")
REOOS4=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=8"
rsuser.open strsql, conn
if not rsuser.eof Then
limed4=rsuser("Stock")
LEOOS4=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=9"
rsuser.open strsql, conn
if not rsuser.eof Then
reged5=rsuser("Stock")
REOOS5=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=10"
rsuser.open strsql, conn
if not rsuser.eof Then
limed5=rsuser("Stock")
LEOOS5=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=11"
rsuser.open strsql, conn
if not rsuser.eof Then
reged6=rsuser("Stock")
REOOS6=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=12"
rsuser.open strsql, conn
if not rsuser.eof Then
limed6=rsuser("Stock")
LEOOS6=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=13"
rsuser.open strsql, conn
if not rsuser.eof Then
reged7=rsuser("Stock")
REOOS7=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=14"
rsuser.open strsql, conn
if not rsuser.eof Then
limed7=rsuser("Stock")
LEOOS7=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=15"
rsuser.open strsql, conn
if not rsuser.eof Then
reged8=rsuser("Stock")
REOOS8=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stock where rowid=16"
rsuser.open strsql, conn
if not rsuser.eof Then
limed8=rsuser("Stock")
LEOOS8=rsuser("OOS")
else
' response.write "sss"
end if
rsuser.close
strsql = "SELECT * FROM stocknotes where id=1"
rsuser.open strsql, conn
if not rsuser.eof Then
snotes=rsuser("mynotes")
else
' response.write "sss"
end if
rsuser.close
conn.close
'clean up memory
set rsuser=nothing
set conn=nothing
%>
Geocoin Stock Page