Flet ind i Reponse.Write

Det skal være lige efter diskuter.

Er der slet ikke nogen der kan hjælpe? Eller skrive en anden måde jeg tæller nyhedid på?

<%
sub fletmig()
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsnyhed where nyhedid=" & ID)
AntalKommentarer=rs1(0).Value
Response.Write "(<font color='#FF9C00'>" & AntalKommentarer & "</font>)"
end if
end sub
%>

Nu kan du kalde den hvornår du vil.

kode
fletmig
viderekode

Kan jeg få dig til at sætte det ind i ovenstående kode, for jeg kan ikke få det til at virke. Antallet skal være lige efter Diskuter</a> (HER).

<%
sub fletmig()
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsnyhed where nyhedid=" & ID)
AntalKommentarer=rs1(0).Value
Response.Write "(<font color='#FF9C00'>" & AntalKommentarer & "</font>)"
end if
end sub

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM arkiv  ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/data.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    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 "<center><div id='boxnews'><table border='0' width='435' cellspacing='0' cellpadding='0'>"
    Response.Write "<tr><td width='398' colspan='2' class='headline'><font color='#FF9C00'>»</font>" & rs("overskrift") & "</td>"
    Response.Write "</tr><tr><td width='337' class='text'>"
    Response.Write "<table width='100%' height='100%' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td class='font'>" & rs("tekst") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "<td width='100' valign='top' class='tom'>"
    Response.Write "<table border='0' width='100%' cellspacing='0' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td width='100' height='100' class='pic' align='center' valign='bottom'>"
    Response.Write "<img border='0' src='../pics/" & rs("pic") & "' width='65' height='80'><br><img src='gfx/nyhedbar.gif'></td>"
    Response.Write "</tr>"
    Response.Write "<tr>"
    Response.Write "<td width='100%' class='info' valign='middle'>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='newscom.asp?id=" & rs("Id") & "'>Diskuter</a>" & fletmig & "<br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("kilde") & "' target='_new'>Kilde</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("link") & "' target='_new'>Læs mere</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>Af:</font>" & rs("navn") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table><br>"
    Response.Write "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</div>"
    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=newsarkiv.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

Den kommer med fejlen:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'fletmig'

<%
sub fletmig()
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsnyhed where nyhedid=" & ID)
AntalKommentarer=rs1(0).Value
Response.Write ("<font color='#FF9C00'>" & AntalKommentarer & "</font>")
end if
end sub

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM arkiv  ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/data.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    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 "<center><div id='boxnews'><table border='0' width='435' cellspacing='0' cellpadding='0'>"
    Response.Write "<tr><td width='398' colspan='2' class='headline'><font color='#FF9C00'>»</font>" & rs("overskrift") & "</td>"
    Response.Write "</tr><tr><td width='337' class='text'>"
    Response.Write "<table width='100%' height='100%' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td class='font'>" & rs("tekst") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "<td width='100' valign='top' class='tom'>"
    Response.Write "<table border='0' width='100%' cellspacing='0' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td width='100' height='100' class='pic' align='center' valign='bottom'>"
    Response.Write "<img border='0' src='../pics/" & rs("pic") & "' width='65' height='80'><br><img src='gfx/nyhedbar.gif'></td>"
    Response.Write "</tr>"
    Response.Write "<tr>"
    Response.Write "<td width='100%' class='info' valign='middle'>"
    Response.Write ("&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='newscom.asp?id=" & rs("Id") & "'>Diskuter</a>")
fletmig
response.write ("<br>")
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("kilde") & "' target='_new'>Kilde</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("link") & "' target='_new'>Læs mere</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>Af:</font>" & rs("navn") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table><br>"
    Response.Write "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</div>"
    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=newsarkiv.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

Nu er fejlen:

Microsoft VBScript runtime error '800a01a8'

Object required: 'objConn'

Ja den kan jeg ikke hjælpe dig med.
Nu virker flettningen, det der er problemet nu er den kode du vill flette ind.
Prøv eventuelt det her istedet:
Da det kan være at det er fordi vi har lavet det i en sub.
<%

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM arkiv  ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/data.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    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 "<center><div id='boxnews'><table border='0' width='435' cellspacing='0' cellpadding='0'>"
    Response.Write "<tr><td width='398' colspan='2' class='headline'><font color='#FF9C00'>»</font>" & rs("overskrift") & "</td>"
    Response.Write "</tr><tr><td width='337' class='text'>"
    Response.Write "<table width='100%' height='100%' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td class='font'>" & rs("tekst") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "<td width='100' valign='top' class='tom'>"
    Response.Write "<table border='0' width='100%' cellspacing='0' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td width='100' height='100' class='pic' align='center' valign='bottom'>"
    Response.Write "<img border='0' src='../pics/" & rs("pic") & "' width='65' height='80'><br><img src='gfx/nyhedbar.gif'></td>"
    Response.Write "</tr>"
    Response.Write "<tr>"
    Response.Write "<td width='100%' class='info' valign='middle'>"
    Response.Write ("&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='newscom.asp?id=" & rs("Id") & "'>Diskuter</a>")
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsnyhed where nyhedid=" & ID)
AntalKommentarer=rs1(0).Value
Response.Write ("<font color='#FF9C00'>" & AntalKommentarer & "</font>")
end if
response.write ("<br>")
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("kilde") & "' target='_new'>Kilde</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("link") & "' target='_new'>Læs mere</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>Af:</font>" & rs("navn") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table><br>"
    Response.Write "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</div>"
    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=newsarkiv.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

Den har jeg prøvet i sin tid, men så giver det fejlen:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

Ja men jeg tror dit problem er ikke med fglettningen men med den del af koden hvor der står: Set rs1=objConn.Execute

Men da jeg ikke ved hvad du vil med den linie kan jeg kun gætte.
Men prøv eventuelt med denne kode:

<%

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM arkiv  ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/data.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    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 "<center><div id='boxnews'><table border='0' width='435' cellspacing='0' cellpadding='0'>"
    Response.Write "<tr><td width='398' colspan='2' class='headline'><font color='#FF9C00'>»</font>" & rs("overskrift") & "</td>"
    Response.Write "</tr><tr><td width='337' class='text'>"
    Response.Write "<table width='100%' height='100%' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td class='font'>" & rs("tekst") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "<td width='100' valign='top' class='tom'>"
    Response.Write "<table border='0' width='100%' cellspacing='0' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td width='100' height='100' class='pic' align='center' valign='bottom'>"
    Response.Write "<img border='0' src='../pics/" & rs("pic") & "' width='65' height='80'><br><img src='gfx/nyhedbar.gif'></td>"
    Response.Write "</tr>"
    Response.Write "<tr>"
    Response.Write "<td width='100%' class='info' valign='middle'>"
    Response.Write ("&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='newscom.asp?id=" & rs("Id") & "'>Diskuter</a>")
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=Server.CreateObject("ADODB.RecordSet")
strSQL1 = SELECT COUNT(*) FROM commentsnyhed where nyhedid=" & ID
rs1.Open strSQL1, strDSN, 1
If Not rs.EOF Then
AntalKommentarer=rs1(0).Value
Response.Write ("<font color='#FF9C00'>" & AntalKommentarer & "</font>")
end if
end if
response.write ("<br>")
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("kilde") & "' target='_new'>Kilde</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("link") & "' target='_new'>Læs mere</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>Af:</font>" & rs("navn") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table><br>"
    Response.Write "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</div>"
    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=newsarkiv.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

Hovsa der manglede noget der....

Sådan her skal det være...


<%

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

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM arkiv  ORDER BY id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/data.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    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 "<center><div id='boxnews'><table border='0' width='435' cellspacing='0' cellpadding='0'>"
    Response.Write "<tr><td width='398' colspan='2' class='headline'><font color='#FF9C00'>»</font>" & rs("overskrift") & "</td>"
    Response.Write "</tr><tr><td width='337' class='text'>"
    Response.Write "<table width='100%' height='100%' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td class='font'>" & rs("tekst") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "<td width='100' valign='top' class='tom'>"
    Response.Write "<table border='0' width='100%' cellspacing='0' cellpadding='2'>"
    Response.Write "<tr>"
    Response.Write "<td width='100' height='100' class='pic' align='center' valign='bottom'>"
    Response.Write "<img border='0' src='../pics/" & rs("pic") & "' width='65' height='80'><br><img src='gfx/nyhedbar.gif'></td>"
    Response.Write "</tr>"
    Response.Write "<tr>"
    Response.Write "<td width='100%' class='info' valign='middle'>"
    Response.Write ("&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='newscom.asp?id=" & rs("Id") & "'>Diskuter</a>")
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=Server.CreateObject("ADODB.RecordSet")
strSQL1 = "SELECT COUNT(*) FROM commentsnyhed where nyhedid=" & ID
rs1.Open strSQL1, strDSN, 1
If Not rs.EOF Then
AntalKommentarer=rs1(0).Value
Response.Write ("<font color='#FF9C00'>" & AntalKommentarer & "</font>")
end if
end if
response.write ("<br>")
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("kilde") & "' target='_new'>Kilde</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>»</font> <a href='" & rs("link") & "' target='_new'>Læs mere</a><br>"
    Response.Write "&nbsp;&nbsp;<font color='#FF9C00'>Af:</font>" & rs("navn") & "</td>"
    Response.Write "</tr>"
    Response.Write "</table><br>"
    Response.Write "</td>"
    Response.Write "</tr>"
    Response.Write "</table>"
    Response.Write "</div>"
    Response.Write "<br>"





    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
rs1.Close
Set rs = Nothing
Set rs1 = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=newsarkiv.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=newsarkiv.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>

Nu siger den:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

ok, på vilken linie sker det?

linie 57.

ok, da jeg ikke ved om du har andre ting i din kode, kan du så ikk elige sige vilken linie det er i den text jeg har kopieret til dig...

Det er i denne her kode den er gal med linie 57. Prøvede at fjerne alt andet kode og lod kun dette være tilbage.

lukket