værdi i URL

Du kan ikke få den til at gøre det automatisk. Du skal selv lige forklare din side/database hvad en * betyder.

Hvis du normalt har noget der ligner
Set rs="select * from tabellen where genre='" & request("gen") & "'"
så skal du tilføje en kontrol på hvad request("gen") indeholder:
Genre=replace(Request("gen"),"'","''")
if Genre="*" then
  Set rs="select * from tabellen"
else
  Set rs="select * from tabellen where genre='" & Genre & "'"
end if

Hm, får fejl i denne kode :

var1 = Request.Querystring("gen")

Genre=replace(Request("var1"),"'","''")
if Genre="*" then
  Set rs="select * from anmeldelse order by name"
else
  Set rs="select * from anmeldelse where genre='" & Genre & "'"
end if

dbname=Server.MapPath("db.mdb")

set cn = server.createobject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbname
cn.connectionstring = constr
cn.open

strSQL = "Select * from anmeldelse where genre = '" & var1 & "'"

Set rs = Cn.Execute(strSQL)

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: '[string: "select * from anmeld"]'
/multi/oversigt.asp, line 21

Det er mig der vrøvler helt vildt.
Man skal selvfølgelig have database connection'en med.


var1 = Request.Querystring("gen")
Genre=replace(var1,"'","''")

dbname=Server.MapPath("db.mdb")

set cn = server.createobject("ADODB.Connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbname
cn.connectionstring = constr
cn.open

if Genre="*" then
  strSQL = "Select * from anmeldelse"
else
  strSQL = "Select * from anmeldelse where genre = '" & var1 & "'"
end if
Set rs = Cn.Execute(strSQL)

Jeg ville have skrevet de enkelte set rs som:
Set rs=Conn.Execute("select * from anmeldelse where genre='" & Genre & "'")

fungerede perfekt :)
Tak for det ^_^

Smider du lige et svar ? :)

Yep.