Aiutatemi vi prego... io sono nuovo del forum. Sono un autodidatta in merito alla programmazione e ho dei problemi con l'errore in oggetto. Giuro mi sta facendo impazzire perchè non so come risolverlo... magari è una cavolata ma non riesco a trovare il bandolo della matassa dopo tanti tentativi ho deciso di scrivere sul forum per vedere se c'è qualcuno che può aiutarmi....
Allora in sintesi ho creato una pagina in asp in cui vi è la parte iniziale e finale che rispettivamente aprono e chiudono il collegamento con il database e all'interno della pagina vi sono due sezioni in cui apro due diverse tabelle dello stesso.
Di seguito riporto il codice in modo che possiate capire eventualmente l'errore:
'INIZIO PARTE INIZIALE
<%
'PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/news.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
%>
'FINE PARTE INIZIALE
'INIZIO PRIMA SEZIONE IN CUI RICHIEDO DI RESTITUIRE I LINK DEL MENU
<%
'FA LA RICHIESTA AL DATABASE
SQL = "SELECT * FROM Gestione_link ORDER BY ID"
RecSet.Open SQL, Conn, adOpenKeyset
'CONTROLLA SE SONO PRESENTI LINK NEL DB
If RecSet.Eof = False Then
Do until RecSet.Eof
%>
<tr>
<td>" class="link_menu"><%=RecSet("pagina")%></td>
</tr>
<%
RecSet.Movenext
Loop
End IF
%>
'FINE PRIMA SEZIONE
'INIZIO SECONDA SEZIONE IN CUI MI VIENE RESTITUITO L'ERRORE ALLA RIGA 125
<%
'PRELEVA LE ULTIME 10 NEWS DAL DATABASE SE SONO PRESENTI
SQL = "SELECT TOP 10 * FROM gestione_news ORDER BY ID DESC"
'DI SEGUITO RIPORTO LA RIGA 125 PER LA QUALE MI VIENE RESTITUITO L'ERRORE IN OGGETTO
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
'CONTROLLA SE SONO PRESENTI NEWS NEL DB
If RecSet.Eof = False Then
%>
<table width="228" border="0" cellpadding="0" cellspacing="0">
<%
'VISUALIZZA LE PRIME 10 NEWS
Do until RecSet.Eof
%>
<tr height="5">
<td colspan="3"></td>
</tr>
<tr>
<td width="5"></td>
<td width="100%"><font face="verdana" size="2">-<%=RecSet("data")%>"><%=RecSet("titolo")%></font></td>
<td width="5"></td>
</tr>
<%
RecSet.Movenext
Loop
End IF
%>
'FINE SECONDA SEZIONE
'INIZIO PARTE FINALE
<%
RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing
%>
'FINE PARTE FINALE
Vi prego aiutatemi perchè ci sto impazzendo!!!!a buon rendere...ciao a tutti Andrea
Rispondi quotando
