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>
Rispondi quotando
