25. oktober 2001 - 13:47Der 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%>
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
<% 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>\"
<% 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>\"
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.