Konstigt fel...

<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounterlankar.mdb")
Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
strSQL = "SELECT * FROM LinkCounter "&_
[b]"WHERE sorts ='"& Request("webb") &"'"[/b]

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText

Där det står request... Vad är det du frågar efter där?? Ett formulär eller querystring eller vad??

------------------
Talet är tankens död

Alltså jag vill skriva ut de poster som har ordet webb i kolumnen sorts i databasen, tabellen heter LinkCounter, egentligen undrar jag bara hur SQL-satsen ser ut då?

------------------
Ampy.cjb.net

<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounterlankar.mdb")
Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1

strSQL = "Select * from LinkCounter Where sorts = 'webb' "

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText

------------------
Talet är tankens död

Hej,

varför skapar du en helt ny tråd när du har en aktiv som rör samma problem?

mvh Jörgen

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

Nu när jag skriver denna kod:

<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounterlankar.mdb")
Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
strSQL = "Select * from LinkCounter Where sort = 'webb' "

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText

 

[b]Do Until DBLink.EOF[/b]

Dim color
Dim counter
counter = counter + 1
If counter Mod 2 = 0 then
color = "#FFEFCE"
Else
color = "#FFE784"
End If

%>

<TABLE style="BORDER-BOTTOM: #000000 0px solid; BORDER-TOP: #000000 0px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid" 
borderColor=#000000 borderColor=#000000 cellSpacing=0 width=475 
borderColorLight=#000000 border=0>

<TR>

<%

Response.Write "<TD width=475 height=17 bgcolor="""&color&""">"

%>
<FONT face=Verdana 
color=#000000 size=1><FONT face=Verdana color=#000000 size=1>

<%
Response.Write " &nbsp;&nbsp;<a href="""&adress &"?action=in&id="&DBLink("ID") & """>" & DBLink("Namn") & "</a>" 

%>

</FONT></TD></TR>

</table><%

DBLink.MoveNext

loop

DBLink.Close
Conn.Close

Set DBLink = Nothing
Set Conn = Nothing

%>

Så får jag detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '' 

/ampy/lankar/webbutvecklingssidor.asp, line 103

Rad 103 är skriven med fet stil.

------------------
Ampy.cjb.net

Do Until rst.EOF

------------------
Talet är tankens död