<%@ LANGUAGE=vbscript %>
<%response.buffer=true%>
NETGAMES :: Cover Recensioni Games
<%
Set connection = Server.CreateObject("ADODB.Connection")
Set connetti = Server.CreateObject("ADODB.Connection")
Set disc = Server.CreateObject("ADODB.RecordSet")
Set rec = Server.CreateObject("ADODB.RecordSet")
Set news = Server.CreateObject("ADODB.RecordSet")
set pol = Server.CreateObject("ADODB.RecordSet")
' connection.open " DSN=db1"
connetti.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("poolvar.mdb")
sel = "select numeroitem,titolo from setdbgame where idd = 1"
pol.open sel,connetti,3
numero = pol("numeroitem")
vtitolo = pol("titolo")
pol.close
sel = "select * from datagame "
pol.open sel,connetti,3
vero = Cbool(1)
falso = Cbool(0)
vmatr = numero - 1
redim arr(vmatr)
dim cont
cont = 0
for i = 1 to numero
'stringa="txnum" & i
arr(cont) = pol("testoitem")
pol.movenext
cont = cont + 1
next
pol.close
connetti.close
connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("news97.mdb")
dim sel
''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''
sql ="select * from game WHERE posizione = 1 or posizione = 2 or posizione = 3 order by posizione asc "
srec ="select * from game order by datarec DESC"
snews ="select * from archivio where categoria = 'videogames' order by data DESC"
disc.open sql,connection,3
%>
Nel
mercato dei videogiochi da alcuni mesi è in corso un
lento ma inesorabile mutamento, già al tempo dell'importante
E3 di Los Angeles si era notato un cambiamento d'orientamento
da parte delle case produttrici, che nell'occasione
della fiera californiana avevano presentato, diversamente
dal solito, un notevole numero di titoli destinati al
settore console mentre solo una quantità ristretta era
stata progettata per la categoria computer...
