<%= cardname %>

<%@ Language = VBscript %> <% 'Grab variables from the querystring. position = Request.Querystring("position") spread = Request.Querystring("spread") cardnum = Request.Querystring("cardnum") 'Construct and run SQL statment to get card information SQLCARD="SELECT ImageHeight, ImageWidth, CardName, ImageID, CardID FROM CardInfo " SQLCARD=SQLCARD & "WHERE CardID=" & cardnum set conncard = server.createobject("ADODB.Connection") conncard.open "TheFool" set cardinformation=conncard.execute(SQLCARD) cardheight=cardinformation(0) cardwidth=cardinformation(1) cardname=cardinformation(2) viewcard = cardinformation(3) currentcard = cardinformation(4) conncard.close %> <%= cardname %>

<%= cardname %>

<% readfile = "c:\inetpub\wwwroot\Fool\read\" & spread & "\" & position & ".txt" Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(readfile))=true Then Set f=fs.OpenTextFile(readfile, 1) Response.Write(f.ReadAll) f.Close Set f=Nothing End If Set fs=Nothing %> <% readfile = "c:\inetpub\wwwroot\Fool\read\" & viewcard & ".txt" Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(readfile))=true Then Set f=fs.OpenTextFile(readfile, 1) Response.Write(f.ReadAll) f.Close Set f=Nothing End If Set fs=Nothing %>