<% \' Henter værdien fra soeg.htm strKeyword = Trim(Request.Form(\"Keyword\"))
strTabel = Trim(Request.Form(\"Tabel\"))
Hvis der er skrevet i feltet strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
strSQL = \"SELECT scenarier.Titel, benchmarking.Titel FROM scenarier, benchmarking WHERE (scenarier.Titel LIKE \'%\" & strKeyword & \"%\') OR (benchmarking.Titel LIKE \'%\" & strKeyword & \"%\')\"
\' Skaber DSNLess forbindelse til DBen strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"fagbibliotek.mdb\") Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open strDSN
\' Skaber et recordset udfra SQL strengen Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then \' Hvis der er fundet poster på søgningen Response.Write \"<p>Søgeresultat</p>\"
Response.Write \"<div align=left><table border=0 width=590 cellpadding=5 cellspacing=5>\" Response.Write \"<tr><td><b>Titel</b></td><td><b>Navn</b></td><td><b>Beskrivelse</b></td></tr></b>\" Do While Not rs.EOF Response.Write \"<tr><td valign=top>\" & rs(\"Titel\") & \"</td>\"
Nej jeg får ingen fejl, men den henter bare ikke noget fra den den første tabel. Tilgengæld så skriver den flere gange det den finder i den anden tabel
strSQL = \"SELECT Titel FROM scenarier WHERE Titel LIKE \'%\" & strKeyword & \"%\') UNION SELECT Titel FROM benchmarking WHERE Titel LIKE \'%\" & strKeyword & \"%\')\"
i stedet for din nuværende: strSQL = \"SELECT scenarier.Titel, benchmarking.Titel FROM scenarier, benchmarking WHERE (scenarier.Titel LIKE \'%\" & strKeyword & \"%\') OR (benchmarking.Titel LIKE \'%\" & strKeyword & \"%\')\"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.