Originariamente inviato da clara
salve, anche io ho lo stesso problema, ma non funziona,
cosa ho sbagliato?


questo è il codice:


<%
' RICHIEDE L'ID
ID = Request("ID")

' SE NON E' STATO PASSATO UN VALORE VALIDO
' COME ID, IMPOSTA QUESTO AD UNO
If not ISNumeric(ID) or Len(ID) = 0 Then
ID = 1
End IF

' SE L'ID E' UGUALE A ZERO
' LO IMPOSTA UGUALE A UNO
IF ID = 0 Then
ID = 1
End IF

' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB

Set RecSet = Server.CreateObject("ADODB.Recordset")

' PRELEVA LA NEWS DAL DB, IN BASE ALL'ID PASSATO

SQL = "SELECT * FROM NEWS WHERE ID = " & ID &""
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic


' CONTROLLA SE LA NEWS E' REALMENTE PRESENTE
If RecSet.Eof = False Then


' VISUALIZZA LA NEWS, PRELEVANDO DAL DB I VARI CONTENUTI (TITOLO, DATA, AUTORE, ECC...):


%>



<font face="Verdana" size="4">&gt; <%=RecSet("titolo")%> </font><font face="Verdana" size="2">di
<%=RecSet("autore")%> - <%=RecSet("data")%></font></p>


<font face="Verdana" size="2">
<%
testoNews = recset("contenuto")
testoNews = replace(testoNews,vbCrLf,"
")
response.write testoNews
%>

</font></p>


</p>
<%
End IF

RecSet.Close
Conn.Close
Set Conn = Nothing
Set RecSet = Nothing
%>
Che errore ti da?