/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Variable fra Access Database
Fra : Preben Andersen


Dato : 04-08-05 11:32

Jeg har følgende .asp script som henter "firstname" og "score"
ind fra Access Database i feltet "list" i flash.

Problemet er at alle poster undtagen den første starter med
"list=".

Kan man undgå det på en snedige måde?

asp-filen er således ud:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("soccergame.mdb")
Conn.Open DSN


strSQL = "Select * from scores Order By Score Desc;"
Set rs = Conn.Execute(strSQL)

Do

Response.Write "list=" & Server.URLEncode(rs("firstname")) &
Server.URLEncode(rs("score")) & "<br>"

rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Thygesen (22-08-2005)
Kommentar
Fra : Thygesen


Dato : 22-08-05 13:21

> Jeg har følgende .asp script som henter "firstname" og "score"
> ind fra Access Database i feltet "list" i flash.
>
> Problemet er at alle poster undtagen den første starter med
> "list=".
>
> Kan man undgå det på en snedige måde?
>
> asp-filen er således ud:
>
> <%
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath("soccergame.mdb")
> Conn.Open DSN
>
>
> strSQL = "Select * from scores Order By Score Desc;"
> Set rs = Conn.Execute(strSQL)
>
> Do
>
> Response.Write "list=" & Server.URLEncode(rs("firstname")) &
> Server.URLEncode(rs("score")) & "<br>"
>
> rs.MoveNext
>
> Loop While Not rs.EOF
>
> Conn.Close
> Set Conn = Nothing
> %>
>

Du kan vel bare lave følgende:

score = RS("score")
if left(score,len("list=")) = "list=" then score = mid(score,6)

Med venlig hilsen Christoffer Thygesen

_____________________________________
My Desktop Online Konference - http://cht.dk/mydesktop/ Din egen online
kalender, kontaktpersoner, noter og data. Lav dine egne hjemmesider online
og meget andet.



Søg
Reklame
Statistik
Spørgsmål : 177548
Tips : 31968
Nyheder : 719565
Indlæg : 6408799
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste