Avatar billede suneh Nybegynder
16. september 2003 - 18:22 Der er 3 kommentarer

placering af data og billeder hentet fra database

jeg skal have data og billede, der er hentet fra database, placeret på siden.
Hvordan kan det lade sig gøre f.eks når der bruges et script som nedenstående:

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM personer"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/goal.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 1
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0



Response.Write rs("navn") & " <br> " & rs("email")& " <br>  <img src='" & rs("billede") & "'>"
    intRecCount = intRecCount - 1
    rs.MoveNext

        Loop
End If
rs.Close
Avatar billede henrikgn Nybegynder
16. september 2003 - 21:45 #1
Hvis du skal have samtlige navne, emails og billeder fra tabellen, kan du gøre sådan her:

<%

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

strSQL = "SELECT * FROM personer"
set rs = conn.execute(strSQL)

while not rs.eof
response.Write rs("navn") & "<br>" & rs("email")& "<br><img src='" & rs("billede") & "'>"
rs.movenext
wend

conn.close
set conn = nothing

%>
Avatar billede ellebaek Nybegynder
16. september 2003 - 22:51 #2
det script du omtaler udskriver kun 1 record pr. side mener jeg. Er det meningen, hvis ja, så kan du gøre hvad som helst der hvor du vil indsætte dine ting fra databasen.

Hvis du gør sådan her:
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM personer"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/goal.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 1
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0

%>
'Her kan du benytte almindelige html-koder...
<%=rs("navn")%>
<%=rs("email")%>
<img src="<%=rs("billede")%>">

'Hertil kan du benytte de koder
<%
    intRecCount = intRecCount - 1
    rs.MoveNext

        Loop
End If
rs.Close 

%>

Der hvor der står: <%=rs("email")%> henter den feltet email fra databasen...
Håber det er forståeligt...
Avatar billede henrikgn Nybegynder
14. juli 2005 - 16:41 #3
Skal denne snart lukkes?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester