<% // Dim objFSO, oInStream, sLine, sSeg,zInStream,zLine,aInstream,aLine,aSeg,zSeg site=Request.QueryString("Test") 'response.write site 'Define the constants used by the FSO Const Forreading = 1 'Create an instance of the FSO Set objFSO = CreateObject("Scripting.fileSystemObject") Set oInStream = objFSO.OpenTextfile( Server.MapPath( "MegaScreensaversProducts3b.csv" ), Forreading, False ) Response.Write "
" cnt=1 Response.Write CT & "Canvas on Demand LLC" Do Until oInStream.AtEndOfStream sLine = oInStream.readLine sSeg = Split( sLine, "~" ) 'response.write sSeg(0) If site = "Other" Then zz = sSeg(3) 'response.write zz If sSeg(3) <> "Easter" AND sSeg(3) <> "Halloween" AND sSeg(2) <> "Nature" AND sSeg(3) <> "Christmas" AND sSeg(3) <> "Sports" Then ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Response.Write "" Response.Write "" Rcnt=right(cnt,1) cnt=cnt+1 //response.write "" response.write "" else response.write "" Response.Write "" Rcnt=right(cnt,1) cnt=cnt+1 //response.write "" response.write "" else response.write "" Response.Write "" Rcnt=right(cnt,1) cnt=cnt+1 //response.write "" response.write "" else response.write "" Response.Write "" Rcnt=right(cnt,1) cnt=cnt+1 if Rcnt = 0 Or Rcnt=2 or Rcnt=4 or Rcnt=6 or Rcnt=8 or Rcnt=10 or Rcnt=12 or Rcnt=14 or Rcnt=16 or Rcnt=18 or Rcnt=20 then '''if Rcnt = 0 Or Rcnt=3 or Rcnt=6 or Rcnt=9 or Rcnt=12 or Rcnt=15 or Rcnt=18 or Rcnt=21 or Rcnt=24 or Rcnt=27 or Rcnt=30 then response.write "" response.write "" else response.write "
" Response.Write "
" Response.Write " " & sSeg(1) & "
" & sSeg(9) Response.Write "
" & sSeg(4) Response.Write sSeg(4) & "
" Response.Write "
Click Here for trial version" Response.Write "
Buy Now

" Response.Write "

" if Rcnt = 0 Or Rcnt=2 or Rcnt=4 or Rcnt=6 or Rcnt=8 or Rcnt=10 or Rcnt=12 or Rcnt=14 or Rcnt=16 or Rcnt=18 or Rcnt=20 then '''if Rcnt = 0 Or Rcnt=3 or Rcnt=6 or Rcnt=9 or Rcnt=12 or Rcnt=15 or Rcnt=18 or Rcnt=21 or Rcnt=24 or Rcnt=27 or Rcnt=30 then response.write "
" end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' end if end if If site = "Nature" Then If sSeg(2) = "Nature" Then ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Response.Write " " Response.Write "
" Response.Write " " & sSeg(1) & "
" & sSeg(9) Response.Write "
" & sSeg(4) Response.Write sSeg(4) & "
" Response.Write "
Click Here for trial version" Response.Write "
Buy Now

" Response.Write "

" if Rcnt = 0 Or Rcnt=2 or Rcnt=4 or Rcnt=6 or Rcnt=8 or Rcnt=10 or Rcnt=12 or Rcnt=14 or Rcnt=16 or Rcnt=18 or Rcnt=20 then '''if Rcnt = 0 Or Rcnt=3 or Rcnt=6 or Rcnt=9 or Rcnt=12 or Rcnt=15 or Rcnt=18 or Rcnt=21 or Rcnt=24 or Rcnt=27 or Rcnt=30 then response.write "
" end if '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' end if '''''response.write "TEST" If sSeg(3) = Site then ''''If sSeg(3) = Site then If cnt <127 Then Response.Write " " Response.Write "
" Response.Write " " & sSeg(1) & "
" & sSeg(9) Response.Write "
" & sSeg(4) Response.Write sSeg(4) & "
" Response.Write "
Click Here for trial version" Response.Write "
Buy Now

" Response.Write "

" if Rcnt = 0 Or Rcnt=2 or Rcnt=4 or Rcnt=6 or Rcnt=8 or Rcnt=10 or Rcnt=12 or Rcnt=14 or Rcnt=16 or Rcnt=18 or Rcnt=20 then '''if Rcnt = 0 Or Rcnt=3 or Rcnt=6 or Rcnt=9 or Rcnt=12 or Rcnt=15 or Rcnt=18 or Rcnt=21 or Rcnt=24 or Rcnt=27 or Rcnt=30 then response.write "
" end if ''nature else end if ''''site1 else end if ''''cnt else 'response.write "TEST2" If sSeg(3) = Site then If cnt <127 Then Response.Write " " Response.Write "
" Response.Write " " & sSeg(1) & "
" & sSeg(9) Response.Write "
" & sSeg(4) Response.Write sSeg(4) & "
" Response.Write "
Click Here for trial version" Response.Write "
Buy Now

" Response.Write "

" end if else end if else end if end if Loop oInStream.Close Set oInStream = Nothing Set objFSO = Nothing %> <