sökning?

[HARS]

jag har problem med en lite sökmaskin jag jobbar med och eftersom infomasters asp newsgroup inte verkar vara igång gör jag ett försök här, här kommer källkoden:

 

<% gruppnamn=request.querystring("grupp")

kandethavaritenexaktsokning=request.querystring("exaktsokning")

SQLtemp="select * from inspelningar where musikernr"

If kandethavaritenexaktsokning="on" then

SQLtemp=SQLtemp & " ='"

Else

SQLtemp=SQLtemp & " LIKE '"

End IF

SQLtemp=SQLtemp & gruppnamn & "'"

'response.write SQLtemp

call fragatilltabell(SQLtemp)

%>

<% sub fragatilltabell(inputquery)

set hejsanhoppsan=server.createobject("adodb.connection")

blahaj="DBQ=" & server.mappath("databases/dmsy.mdb")

hejsanhoppsan.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & blahaj

set gojs=hejsanhoppsan.execute(inputquery)

%>

<%Do Until Inspelningar.EOF%>

<U>Artist:</U> <%=gojs(3)%><BR>

<u>Titel:</u> <%=gojs(2)%><BR>

<u>Skivetikett:</u> <%=gojs(5)%><BR>

<u>Musikkategori:</u> <%=gojs(4)%><BR>

<u>Utgivningsår:</u> <%=gojs(6)%><BR>

<u>Format:</u> <%=gojs(7)%><BR>

<u>Antal Spår:</u> <%=gojs(8)%><BR>

<u>Kommentar:</u> <%=gojs(9)%><BR>

<img src="images/hr.gif"><BR>

<%gojs.movenext

loop%>

<%

gojs.close

set gojs=nothing

hejsanhoppsan.close

set hejsanhoppsan=nothing

end sub%>

 

 

och här felmeddelandet:

 

 

 

Körningsfel i Microsoft VBScript error '800a01a8'

 

Objekt krävs.: 'Inspelningar'

 

/ego2/gruppsokrespond.asp, line 79

 

 

och jag förstår ingenting... snälla hjälp!

[HARS]

ok, har trixat lite till nu, vissa problem tilrättade, andra nya har dykt upp... det främsta är väl att INGET HÄNDER! här är koden:

 

tjenare, har ändrat kioden till det här nu...

 

<% gruppnamn=request.querystring("grupp")

kandethavaritenexaktsokning=request.querystring("exaktsokning")

SQLtemp="select * from inspelningar where musikernr"

If kandethavaritenexaktsokning="on" then

SQLtemp=SQLtemp & " = ' "

Else

SQLtemp=SQLtemp & " LIKE ' "

End IF

SQLtemp=SQLtemp & gruppnamn & " ' "

'response.write SQLtemp

call fragatilltabell(SQLtemp)

%>

<% sub fragatilltabell(inputquery)

set hejsanhoppsan=server.createobject("adodb.connection")

blahaj="DBQ=" & server.mappath("databases/dmsy.mdb")

hejsanhoppsan.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & blahaj

set gojs=hejsanhoppsan.Execute(inputquery)%>

<%Do while not gojs.EOF%>

<U>Artist:</U> <%=gojs(3)%><BR>

<u>Titel:</u> <%=gojs(2)%><BR>

<u>Skivetikett:</u> <%=gojs(5)%><BR>

<u>Musikkategori:</u> <%=gojs(4)%><BR>

<u>Utgivningsår:</u> <%=gojs(6)%><BR>

<u>Format:</u> <%=gojs(7)%><BR>

<u>Antal Spår:</u> <%=gojs(8)%><BR>

<u>Kommentar:</u> <%=gojs(9)%><BR>

<img src="images/hr.gif"><BR>

<%gojs.movenext

loop%>

<%

gojs.close

set gojs=nothing

hejsanhoppsan.close

set hejsanhoppsan=nothing

end sub%>

 

skriver jag ut response.write sqltemp, så får jag raden

select * from inspelningar where musikernr = ' Samling '

å den är väl korrekt? problemet nu är att inget händer efter det... inga träffar skrivs ut... då borde det väl vara fel på sub fragatilltabell? men vad?

hjälp... tack!

//Måns