Okay - nu skal det være. ASP skal læres. I enden af understående kode,
efter scriptet, er en tabel (html). Det jeg gerne vil, er at hver
post der returneres fra min database (med response.write) skal stå
inden for rammen i tabellen. Ligenu flander tabellen bare til sidst.
Hvordan gør jeg det?
I koden er også en stump der returnerer hver enkelt side (da der kun
skal vises 25 poster ad gangen). Den lister fint antallet af sider,
men linket til dem virker ikke. Hvad gør jeg forkert?
Udover databasen er AL kode herunder (default.asp).
'--kode start
<%@ Language=VBScript %>
<% Response.Buffer=true %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Snedkers test">
</HEAD>
<BODY>
<%
'
http://www.aspfree.com/authors/bipin/adorecordsetpaging.asp
dim rs,i,con,strTemp
set rs=server.CreateObject("adodb.recordset")
rs.CursorLocation=3 'clientside
rs.CursorType=3 'staticrecordset
rs.PageSize=25
set con=Server.CreateObject("ADODB.Connection")
con.ConnectionString="Provider=sqloledb;Data Source=K1;Initial
Catalog=dbConsult;User Id=sa;Password=3432;"
con.Open
rs.Open "select * from kunde Order By Firma", con
Response.Write "<table><tr>"
for i=1 to rs.PageCount
Response.Write "<td><ahref=paging.asp?pg=" & i & ">" & i &
"</a></td>"
next
Response.Write "</tr></table><br>"
if Request.QueryString("pg")="" then
rs.AbsolutePage=1
For i=1 to 25
Response.Write rs.Fields("firma") & "<br>"
rs.MoveNext
Next
else
rs.AbsolutePage=cint(Request.QueryString("pg"))
For i=1 to 25
Response.Write rs.Fields("Firma") & "<br>"
rs.MoveNext
Next
end if
%>
<table border="1" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111" width="100%"
id="AutoNumber1">
<tr>
<td width="100%"> </td>
</tr>
</table>
</BODY>
</HTML>
'--kode slut
/Snedker
---
Klip det citerede væk, du ikke besvarer
Besvar venligst under det citerede