modifica codice per inserimento news

[deleted_184]

ciao

con questo codice io prelevo da un DB una news "Titolo" come faccio a ricavarne un'altra? ovviamente oltre ad inserire un altro record nel file access

la pag è questa

vi spiego

ho questa pag


<%
Response.Expires = 0
Dim rs, cn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\pragma\database\news.mdb"
sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"


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
%>

da qui ricavo delle news che poi leggo in flash
ora in questo modo però riesco a visualizzare solo le news che prendo da
Titolo
io vorrei aggiungere un altra voce (si xkè Link nn lo vedo)


grazie in anticipo a tutti

[supergeniux]

:master:

[deleted_184]

Originariamente inviato da supergeniux
:master:

cosa nn è chiaro?

[supergeniux]

cosa vuoi fare...

[deleted_184]

Originariamente inviato da supergeniux
cosa vuoi fare...

voglio vedere a video un altro campo oltre a quello che c'è ora cioè titolo

[nep036]

Qualcuno saprebbe come ciclare il risultato della query in modo tale da ottenere come output

&titolo0=...&link0=....&titolo1=....&link1=.... e cosi via?

Io ed eyes non riusciamo a farlo con asp...

Dai ragazzuoli, datece na manooooooo!

[Roby_72]

Cosa ti stampa a video questa...

Response.Write("titolo" & x & "=" & rs("Titolo") & "&link" & x & "=" & rs("Link"))

senza passarla a Flash ma stampandola direttamente nel browser...

Roby

[nep036]

Originariamente inviato da Roby_72
Cosa ti stampa a video questa...

Response.Write("titolo" & x & "=" & rs("Titolo") & "&link" & x & "=" & rs("Link"))

senza passarla a Flash ma stampandola direttamente nel browser...

Roby

Cosi come è scritto il ciclo inizia da titolo1, senza & davanti.

Il ciclo dovrebbe iniziare da 0 e tutte le var stampate a schermo devono avere & davanti, tutto qui...

Grazie

[Roby_72]

x = 0 

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

Roby

[nep036]

Originariamente inviato da Roby_72

x = 0 

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

Roby

Ti ringraziamo moltissimo


Ciao