<%@ LANGUAGE=vbscript %>
NETGAMES :: Cover Recensioni Games
<%
vero = cbool(1)
falso = cbool(0)
function calcula(num)
' 100% / 10 = 10 porzioni di scelta
' numero immagini 10
numero = num \ 10
if (numero < 10) then
temp = "../immautopool/game/pool/cd" & "0" & numero & ".gif"
else
temp = "../immautopool/game/pool/cd" & numero & ".gif"
end if
calcula = temp
response.write(temp)
end function
function calculaimm(num)
if (num < 10) then
temp = "../immautopool/game/gra/" & "0" & num & ".jpg"
else
temp = "../immautopool/game/gra/" & num & ".jpg"
end if
'calcula = temp
response.write(temp)
end function
function resto(numero,rest)
partint = int(numero)
partdec = numero - partint
parz = partdec + rest
if (rest >= 1 ) then
response.write("1")
end if
end function
Set connection = Server.CreateObject("ADODB.Connection")
Set agg = Server.CreateObject("ADODB.RecordSet")
Set ag = Server.CreateObject("ADODB.RecordSet")
connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("poolvar.mdb")
'mettere controllo cookies
dim vero
dim falso
private arr()
vero = cbool(1)
falso = cbool(0)
seleziona = "select numeroitem,titolo from setdbgame where idd = 1 "
agg.open seleziona,connection,3
varnum = agg("numeroitem")
vmatr = varnum - 1
vtitolo = agg("titolo")
redim arr(vmatr)
sel = "select * from datagame"
ag.open sel,connection,3
count=0
for i = 1 to varnum
arr(count)= ag("itempool")
ag.movenext
'response.write(arr(count))
'response.write(" ")
count = count + 1
next
somma = 0
for i = 0 to vmatr
somma = arr(i)+ somma
next
'response.write("somma =")
'response.write(somma)
ag.movefirst
%>
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("news97.mdb")
Set bun = Server.CreateObject("ADODB.RecordSet")
' pos 1 ... 4
sel ="select * from banner where pos = 1"
bun.open sel,con,3
if (bun("isimmagine") = vero) then
%> ">" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0">
<%
else
%> <%
end if
bun.close
%>
