Database forbindelse...

ja...det er pga. database typen :)

Hmm... oki.

Jeg har en lidt anden version, som rent faktisk virker efter hensigten. Koden ser således ud:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM tagwall order by created desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tagwall/tagwall.mdb")
rs.Open strSQL, strDSN, 1


If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 3
    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 "<font color='#FF0000'>" & rs("navn") & rs("tag") & "<br></font>"
        Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='10'>"
        Response.Write      "<tr bgcolor='#666666'>"
        Response.Write        "<td><b>" & rs("navn") & "</b></td>"
        Response.Write        "<td width='200'>"
        Response.Write          "<div align='right'>" & rs("created") & "</div>"
        Response.Write        "</td>"
        Response.Write      "</tr>"
        Response.Write    "</table>"
        Response.Write    "<table width='100%' border='0' cellspacing='0' cellpadding='10' style='border:1px solid #666666'>"
        Response.Write      "<tr>"
        Response.Write        "<td>" & rs("tag") & "</td>"
       
'        Response.Write          & addLinks(tag, "_blank") &

        Response.Write      "</tr>"
        Response.Write    "</table>"
        Response.Write    "<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=tagwall.asp?page=" & intNum & ">" & intNum & "</a> "
Next

%>

Nu er mit spørgsmål så, om man ikke kan omskrive "Response.write" på en eller anden måde, så det ikke behøver stå der på hver linie... Der er noget med Set Rec = et-eller-andet og i selve html-koden kan man så nøjes med at skrive "<%=tag%> eller noget i den stil...
Men hvad er syntaksen. Jeg synes jeg har prøvet alt, men det vil ikke, som jeg vil... :o(

Prøv at fjerne Set fra RS.ActiveConnecti0on:

RS.ActiveConnection  = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tagwall/tagwall.mdb")

Du kan lukke din ASP-kode og åbne den igen.

Eks.


<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM tagwall order by created desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tagwall/tagwall.mdb")
rs.Open strSQL, strDSN, 1


If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 3
    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 "<font color='#FF0000'>" & rs("navn") & rs("tag") & "<br></font>"
%>

Her skriver du dine HTML-koder

hvis du skal bruge noget fra db'en skriver du f.eks<%= rs("created") %>

<%       
    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=tagwall.asp?page=" & intNum & ">" & intNum & "</a> "
Next

%>


www.fotx.net/gryn

Eller er det fordi ActiveConnection vil havde et object og ikke en tekst streng:

set conn = server.createObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tagwall/tagwall.mdb")

Set rs.ActiveConnection = conn

Gryn, det ser næsten ud til at virke... Bortset fra, at jeg lidt tidligere i dokumentet har en funktion, som jeg hidtil har kaldt således:
<td><%Response.write addLinks(tag, "_blank")%></td>

Jeg kan ikke umiddelbart gennemskue, hvad den skal hedde så... Har prøvet med <%=addLinks(tag, "_blank")%> men det virker ikke. Jeg får ikke nogen fejlmeddelse, men siden ser bare ikke rigtig ud.

Det skulle ellers gerne virke, men ellers er der vel ikke noget i vejen for, at du stadig kalder den med <td><%Response.write addLinks(tag, "_blank")%></td>

Jo, for den ser ikke rigtig ud, uanset hvordan jeg skriver det. Det er ligesom om, det helt bliver ignoreret (cellen er tom).
Og desuden... hvad skal alle mine Replace-fætre hedde?
I mit tidligere script startede min kode således:
Set Rs = Server.CreateObject("ADODB.Connection")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("tagwall/tagwall.mdb")

sql = "SELECT * FROM tagwall order by created desc"
Set Rec = Rs.Execute(sql)

DO WHILE NOT Rec.EOF
created = Rec("created")
navn = Rec("navn")
id = Rec("id")
tag = Rec("tag")
tag = Replace(tag, "<", "&lt;")
tag = Replace(tag, ">", "&gt;")
tag = Replace(tag, vbCrLf, "<br>")

Hvad så nu? Den melder fejl pga. "Rec"-tingen.... :o(
Suk... tilgiv en stakkels begynder for min uvidenhed.

ret rec til rs

f.eks
navn = rs("navn")

Hey-hey!! Nu virker det skisme! Jeg ændrede også funktionskaldet tilbage til <%Response.write addLinks(tag, "_blank")%>.

Tusind tak for hjælpen!!!

:oD

Gryn får pointene. Jeg håber det er i orden, Eagleeye... Ellers er der ikke rigtig noget at gøre ved det, for nu er det for sent. ;o)

Takker for pontene. . . Det var måske lige i overkanten