Avatar billede mnordby Nybegynder
25. oktober 2001 - 13:47 Der er 6 kommentarer og
1 løsning

Script i tabel

Hej..

Nedenstående script henter billeder med tilhørende beskrivelser i en database. For overskuelighedens skyld vil jeg gerne have sat det ind i en tabel, men har lidt problemer med dette.

Er der nogen der kan hjælpe mig??

Tabellen skal bestå af 2 kolonner med billeder, hvor beskrivelsen er lige neden under det billede den hører til.



<% Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database2.mdb\")
strSQL = \"select * from links WHERE linkid=1\"

set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Ingen billeder i databasen.\"
else
Do Until rs.EOF %>

<img src=\"grafik/<%= rs(\"billed\") %>\">

<%= rs(\"beskriv\") %>

<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
   
Avatar billede rasmustest Nybegynder
25. oktober 2001 - 14:05 #1
<% Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database2.mdb\")
strSQL = \"select * from links WHERE linkid=1\"

set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Ingen billeder i databasen.\"
else
Do

response.write \"<img src=\"\"grafik/rs(\"\"billed\"\")\"\">\"

rs(\"beskriv\")
Loop while rs.EOF
end if
Conn.Close
Set Conn = Nothing%>

prøv det!!!!!!
Avatar billede mnordby Nybegynder
25. oktober 2001 - 14:28 #2
Virker ikke. Der er problemer med rs.
Avatar billede eagleeye Praktikant
25. oktober 2001 - 14:34 #3
<% Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database2.mdb\")
strSQL = \"select * from links WHERE linkid=1\"
set rs = Conn.execute(strSQL)

if rs.EOF then
  Response.write \"Ingen billeder i databasen.\"
else
colPrRow = 2
colInRow = 0
response.write \"<table width=\"\"200\"\" border=\"\"1\"\">\"
do while NOT RS.EOF
  if colInRow = 0 then response.write \"<tr>\"
  response.write \"<td>\" & <img src=\"grafik/<%= rs(\"billed\")%>\"> & \"<br>\" & <%=rs(\"beskriv\")%> & \"</td>\"
  colInRow = colInRow + 1
  if colInRow >= colPrRow then
    colInRow = 0
    response.write \"</tr>\"
  end if
  RS.MoveNext
loop
if colInRow > 0 then
  Response.Write \"</tr>\"
end if
response.write \"</table>\"

end if
Conn.Close
Set Conn = Nothing%>
Avatar billede mnordby Nybegynder
25. oktober 2001 - 14:59 #4
Der mangler et %> tegn.
Avatar billede eagleeye Praktikant
25. oktober 2001 - 15:07 #5
ups .. ja der var ligt et par fejl:

<% Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database2.mdb\")
strSQL = \"select * from links WHERE linkid=1\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Ingen billeder i databasen.\"
else
colPrRow = 2
colInRow = 0
response.write \"<table width=\"\"200\"\" border=\"\"1\"\">\"
do while NOT RS.EOF
  if colInRow = 0 then response.write \"<tr>\"
  response.write \"<td>\" & \"<img src=\"\"grafik/\" & rs(\"billed\") & \"\"\">\" & \"<br>\" & rs(\"beskriv\") & \"</td>\"
  colInRow = colInRow + 1
  if colInRow >= colPrRow then
    colInRow = 0
    response.write \"</tr>\"
  end if
  RS.MoveNext
loop
if colInRow > 0 then
  Response.Write \"</tr>\"
end if
response.write \"</table>\"

end if
Conn.Close
Set Conn = Nothing%>
Avatar billede eagleeye Praktikant
25. oktober 2001 - 15:08 #6
Denne
response.write \"<td>\" & \"<img src=\"\"grafik/\" & rs(\"billed\") & \"\"\">\" & \"<br>\" & rs(\"beskriv\") & \"</td>\"
kan laves til
response.write \"<td><img src=\"\"grafik/\" & rs(\"billed\") & \"\"\"><br>\" & rs(\"beskriv\") & \"</td>\"
 
Avatar billede mnordby Nybegynder
25. oktober 2001 - 15:20 #7
Tak skal du have. Det virker nu!
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