Hej,
Får ett konstigt fel när jag försöker ta fram nyheterna som handlar om en artist.
Exakt samma kod förrutom paginen fungerar på mina andra filer, men här får jag meddelandet:

Microsoft VBScript runtime error '800a01ca'

Variable uses an Automation type not supported in VBScript

/beta1000/browse.asp, line 910

Line 910 innehåller:
<code>
Set Nyhet = Connect.Execute("Select id from news where artist1 = " & ArtistID & "")
</code>

Så här ser min kompletta kod ut:
<code>

<% If Request.QueryString("kat") = "music" Then

If Request.QueryString("show") = "16" Then
perSida1 = 16
ElseIf Request.QueryString("show") = "24" Then
perSida1 = 24
ElseIf Request.QueryString("show") = "34" Then
perSida1 = 34
ElseIf Request.QueryString("show") = "all" Then
perSida1 = 200
Else
perSida1 = 16
End If


Dim onPage1
If Request.QueryString("onPage1") = "" then
onPage1 = 1
Else
onPage1 = Request.QueryString("onPage1")
End If

Letter = Request.Querystring("letter")
Letter = Replace(Letter, "'", "''")

Dim Recset1
Set Recset1= Server.CreateObject("ADODB.Recordset")
Recset1.CursorLocation = 3 'H?r kan du byta ut 3 mot adUseClient om du inkluderar filen adobvs.inc
Recset1.CacheSize = perSida1

SQLSats = "Select id,artist,land,picture From artister where kat = '" & Letter &"' order by artist"
Recset1.Open SQLSats, Connect


If Recset1.EOF Then
Response.Write "No Artist Found!<br>"
Else

Recset1.MoveFirst
Recset1.Pagesize = perSida1

Dim TotalPages1
TotalPages1 = Recset1.Pagecount
Recset1.AbsolutePage = onPage1
Dim count1

count1 = 0

Do While Not Recset1.EOF And count1 < Recset1.Pagesize

ArtistID = Recset1("id")

Set Nyhet = Connect.Execute("Select id from news where artist1 = " & Artist & "")
If Nyhet.EOF Then
Response.Write "Ingen nyhet till denna artist"
Else
Response.Write "Nyhet till denna artist"
End If

Response.Write Recset1("artist") %> <br>

' Här under kommer Paging scriptet som fungerar kanon.
' Hela denna kod fungerar perfekt, förrutom när jag lägger till detta, då får jag fel på SQL Satsen.

Set Nyhet = Connect.Execute("Select id from news where artist1 = " & ArtistID & "")
If Nyhet.EOF Then
Response.Write "Ingen nyhet till denna artist"
Else
Response.Write "Nyhet till denna artist"
End If

</code>

Tacksam för hjälp.
Mvh Hassan