<%@ LANGUAGE=vbscript %> <%response.buffer=true%> NETGAMES ::: NEWS <% numdoc=request("doc") ipub=request("pub") Set connection = Server.CreateObject("ADODB.Connection") Set disc= Server.CreateObject("ADODB.RecordSet") Set ten= Server.CreateObject("ADODB.RecordSet") ' connection.open " DSN=db1" connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("news97.mdb") vero = Cbool(1) falso = Cbool(0) if (ipub = "si") then sql ="select * from data WHERE ID =" & numdoc else sql ="select * from archivio WHERE ID =" & numdoc end if disc.open sql,connection,3 response.write(doc) %>
<% Set bun = Server.CreateObject("ADODB.RecordSet") ' pos 1 ... 4 sel ="select * from banner where pos = 1" bun.open sel,connection,3 if (bun("isimmagine") = vero) then %> ">" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0"> <% else %> " height="<%=bun("altezza")%>"> "> " quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>"> <% end if bun.close %>

<% Set bun = Server.CreateObject("ADODB.RecordSet") ' pos 1 ... 4 sel ="select * from banner where pos = 2" bun.open sel,connection,3 if (bun("isimmagine") = vero) then %> ">" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0"> <% else %> " height="<%=bun("altezza")%>"> "> " quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>"> <% end if bun.close %>

 

 

 

 
<% if (disc("categoria")= "musica") then %> <%end if %> <% if (disc("categoria")= "newtech") then %> <%end if %> <% if (disc("categoria")= "sport") then %> <%end if %> <% if (disc("categoria")= "film") then %> <%end if %> <% if (disc("categoria")= "videogames") then %> <%end if %> <% if (disc("categoria")= "ngworld") then %> <%end if %> <% if (disc("categoria")= "internet") then %> <%end if %> <% if (disc("categoria")= "classifiche") then %> <%end if %>

<% response.write(disc("titolonews")) %>

<%response.write(disc("testonews"))%> " border="0" width="140" height="140">

<% sql = "select * from archivio where categoria ='" & disc("categoria") &_ "'" & "order by data DESC" ten.open sql,connection,3 counter = 0 do until ten.EOF OR (counter > 9) num= "IMMAGINI/pall0" & counter & ".gif" %><%links="pag_int_news.asp?doc=" & ten("ID")%> <%response.write(ten("titolonews"))%>
<% ten.movenext counter = counter + 1 loop ten.close %>


 

DATA

<%= disc("data")%>

 
<% connection.close %>