Victoria Regina Tarot: <%= cardname %>

<%@ Language = VBscript %> <% 'Grab variables from the querystring. if len(request.querystring("viewcard")) > 0 then viewcard = Request.Querystring("viewcard") else viewcard = "0t" end if 'Construct and run SQL statment to get card information SQLCARD="SELECT Caption, Header, ImageHeight, ImageWidth, CardName, ImageID, CardID, Background FROM CardInfo " SQLCARD=SQLCARD & "WHERE ImageID='" & viewcard & "'" set conncard = server.createobject("ADODB.Connection") conncard.open "TheFool" 'conncard.open "Provider=Microsoft.Jet.OLEDB.3.51;Password="";Persist Security Info=True;Data Source=C:\SeldonWebsites\Fool\vr\cards.mdb" set cardinformation=conncard.execute(SQLCARD) cardcaption=cardinformation(0) cardheader=cardinformation(1) cardheight=cardinformation(2) cardwidth=cardinformation(3) cardname=cardinformation(4) cardbg=cardinformation(7) currentcard = cardinformation("CardID") set nextres = conncard.execute("Select CardID, ImageID from CardInfo where CardID > " & currentcard & " Order by CardID asc") if nextres.eof = false then NextCard = nextres("ImageID") else NextCard = "0t" end if set nextres2 = conncard.execute("Select CardID, ImageID from CardInfo where CardID < " & currentcard & " order by CardID desc") if nextres2.eof = false then PrevCard = nextres2("ImageID") else PrevCard = "14p" end if conncard.close %> Victoria Regina Tarot: <%= cardname %>

<%= cardname %>

<% sourcefile = "E:\WebSites\Fool\sources\" & viewcard & ".txt" Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(sourcefile))=true Then Set f=fs.OpenTextFile(sourcefile, 1) Response.Write(f.ReadAll) f.Close Set f=Nothing End If Set fs=Nothing %>