De nye sider, der oprettes vha scriptet, hver gang der oprettes
en ny post i access-basen, indeholder navn, og email-adresse på
en person. Dertil kan jeg godt tænke mig, at der bliver vist et
billede.
Hvordan får jeg lagt et billede ved?
Scriptet ser således ud
<div id="side3">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
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>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=opret.asp?page=" & intNum & ">" &
intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=opret.asp?page=" & intPage - 1 &
"><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=opret.asp?page=" & intPage + 1 &
">>></a> "
Else
Response.Write ">>"
End If
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials