Ciao ragazzi... ho un problema con l'esecuzione del codice asp.. in pratica carico il codice dal database.. e lo stampo nella pagina con response.write contenuto ... esso pero stampa il codice ma non lo esegue... di seguito il codice in questione.. mi date una mano??


<%
dim conn
dim contenuto,titolo,descrizione_pagina,keyword_pagina ,link_pagina

set conn = server.createobject("ADODB.connection")

dim str
str="provider=microsoft.jet.oledb.4.0;data source=" + server.mappath ("db/dati.mdb")

conn.open str

dim sql,query

set sql = server.createobject("adodb.recordset")


dim pag

pag=request.QueryString("pag")

if pag <> "" then

query="select * from pagine where id=" & pag

sql.open query,conn

if not sql.eof then
'ho trovato la pagina e la visualizzo



titolo=sql("titolo")
contenuto=sql("contenuto")
descrizione_pagina=sql("descrizione")
keyword_pagina=sql("keyword")
sql.close
'fine if not sql.eof
else
sql.close
query="select * from pagine where id=3"
sql.open query,conn

titolo=sql("titolo")
contenuto=sql("contenuto")
descrizione_pagina=sql("descrizione")
keyword_pagina=sql("keyword")

sql.close
end if
else
'id pagina index = 5
'sql.close

query= "select * from pagine where id=5"
sql.open query,conn

titolo=sql("titolo")
contenuto=sql("contenuto")
descrizione_pagina=sql("descrizione")
keyword_pagina=sql("keyword")

sql.close

'fine if pag<>""
end if
'sql.close
'Errore ^ in questa riga... controllare per bene se elimino la riga il tutto funziona ma non trova le pagine successive...
%>
<html>

<head>
<title><% response.write titolo %></title>
<meta name="description" content="<% response.write descrizione_pagina %>">
<meta name="keywords" content="<% response.write keyword_pagina %>">
<meta name="robots" content="all">
<meta name="revisit-after" content="15 days">


</head>


<body>


<table align='center' border='1'>


<tr >
<td colspan='3'>[img]img_t/header.jpg[/img]</td>
</tr>


<tr>
<td colspan='2'>
<%
Response.Buffer = True
Response.Expires = 0

Dim gg, mm
Dim oo, mn
Dim data, ora
Dim arr_mese(11)

arr_mese(0) = "gennaio"
arr_mese(1) = "febbraio"
arr_mese(2) = "marzo"
arr_mese(3) = "aprile"
arr_mese(4) = "maggio"
arr_mese(5) = "giugno"
arr_mese(6) = "luglio"
arr_mese(7) = "agosto"
arr_mese(8) = "settembre"
arr_mese(9) = "ottobre"
arr_mese(10) = "novembre"
arr_mese(11) = "dicembre"

gg = Day(Date())
mm = arr_mese(Month(Date()) - 1)

data = gg & " " & mm
%>
Oggi <% response.write data %> <form name='login' action='index.asp?pag=9' method='post'>
User:<input type='text' name='txtuser' size='8'>Password:<input type='password' name='txtpass' size='8'><input type='submit' value='Accedi'> Non sei registrato? Registrati
</form>

</td>
<td align='right'>

</td>
</tr>


<tr>
<td>

<table>
<tr VALIGN='TOP'><td>Home</td></tr>
<%
'sql.close

query="select * from menu where pubblico=1 order by id"

sql.open query,conn

if not sql.eof then
do while not sql.eof

dim idpag
idpag=sql("pagina")
titolo=sql("titolo")

dim riga
riga="<tr VALIGN=TOP><td>" & titolo & "</td></tr>"

response.write riga


sql.movenext 'va avanti

loop


end if
sql.close
%>
</table>

<table>
<tr>
<td align='center'>


<MARQUEE onmouseover=this.stop() style="WIDTH: 100px; HEIGHT: 140px" onmouseout=this.start() scrollAmount='3' direction='up' width='100' height='140'>
<%
'da qua leggi le notizie dal db.. le notizie ovvimante non sara formattata.. e quindi il titolo andra in grassetto con la possibilita di essere cliccato per leggere il resto della notizia
'ed la breve descrizione andra sotto il titolo normalmente

'come prima cosa apro il collegamento con il db e controllo se nel db ci sono notizie...
query="select * from notizie where attivo=1 order by id DESC"

sql.open query,conn
if not sql.eof then
'notizie trovate
dim n_notizia

do while (n_notizia=4) or (not sql.eof)
dim notiziatitolo,notiziadescrizione,notiziaid

notiziatitolo=sql("titolo")
notiziadescrizione=sql("descrizione")
notiziaid=sql("id")
dim notiziariga


notiziariga= "" & notiziatitolo & "
"
notiziariga= notiziariga & notiziadescrizione & "
"

response.write notiziariga

n_notizia=n_notizia+1
sql.movenext
loop

dim notiziaultimariga
notiziaultimariga="
<center>Leggi altro...</center>
"
response.write notiziaultimariga


sql.close
end if

%>

</marquee>

</td>
</tr>
</table>
</td>





<td VALIGN='TOP'>

<% response.write contenuto %>

</td>




<td>

<table>
<tr>
<td align='center'>
<MARQUEE onmouseover=this.stop() style="WIDTH: 100px; HEIGHT: 140px" onmouseout=this.start() scrollAmount='3' direction='up' width='100' height='140'>
<%
'da qua leggi le notizie dal db.. le notizie ovvimante non sara formattata.. e quindi il titolo andra in grassetto con la possibilita di essere cliccato per leggere il resto della notizia
'ed la breve descrizione andra sotto il titolo normalmente

'come prima cosa apro il collegamento con il db e controllo se nel db ci sono notizie...
query="select * from sponsor where attivo=1 order by id DESC"

sql.open query,conn
if not sql.eof then
'notizie trovate
dim n_sponsor

do while (n_sponsor=2) or (not sql.eof)
dim sponsorcontenuto

sponsorcontenuto=sql("contentuto")

response.write sponsorcontenuto & "
"

n_sponsor=n_sponsor+1
sql.movenext
loop

dim sponsorultimariga
sponsorultimariga="
<center>Aggiungi il tuo...</center>
"
response.write sponsorultimariga


sql.close
end if

%>

</marquee>
</td>

</tr>

</table>
</td>
</tr>




<tr>
<td colspan='3' align='center'>

Prova --- Prova -- Prova --- inserire un'ulteriore sponsor (sempre se si vuole)
</td>
</tr>

</table>
</body>
</html>