problema con codice

[gianfrancolosanno]

Ciao a tutti,
non sono molto bravo in asp perciò chiedo il vostro prezioso aiuto... ho il seguente coduce... mi sapreste dire cosa non va


<%
Response.Expires = 0
Dim rs, cn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")


Set rs = Server.CreateObject("ADODB.Connection")
rs.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("/mdb-database/news.mdb")


sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"
cn.Open "DSN=news;"

Set rs.ActiveConnection = cn
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Source = "tbNews"
rs.Open sql, cn

x = 0

Do until(x=5)
x = x + 1
Response.Write("titolo" & x & "=" & rs("Titolo") & "&link" & x & "=" & rs("Link"))
rs.MoveNext
If x<5 then Response.Write("&")
Loop

rs.Close
Set rs=Nothing
%>


ciao e grazie

[99eros9]

che tipo di errore ricevi?

[gianfrancolosanno]

purtroppo mi da solo:

Impossibile visualizzare la pagina

[Shagrat]

 
<% 
Response.Expires = 0 
Dim rs, cn, sql 
Set rs = Server.CreateObject("ADODB.Recordset")   
Set cn = Server.CreateObject("ADODB.Connection") 


Set rs = Server.CreateObject("ADODB.Connection")   
cn .Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("/mdb-database/news.mdb") 


sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC" 
cn.Open "DSN=news;" 'questa riga non ci va 
Set rs.ActiveConnection = cn 
rs.CursorType = adOpenStatic 
rs.LockType = adLockOptimistic 
rs.Open sql, cn 

x = 0 

Do until(x=5) 
x = x + 1 
Response.Write("titolo" & x & "=" & rs("Titolo") & "&link" & x & "=" & rs("Link")) 
rs.MoveNext 
If x<5 then Response.Write("&") 
Loop 

rs.Close 
Set rs=Nothing 
cn.close
set cn=nothing
%>

ti ho evidenziat gli errori, poi per evitare che ti venga "impossibile visualizzare la pagina fai così:

inestra di explorer->strumenti->opzioni internet->avanzate->togli la spunta da "errori http brevi"

[gianfrancolosanno]

funziona tutto bene ora gazie mille ciao

[Shagrat]