---

Hej Alle
Nedstående SQL virker fint på min lokale maskine med IIS 5.0 men når jeg
oploader, Scannet.dk er udbyderen, virker det ikke. Jeg har snakket med
Scannet som ikke umiddelbart kunne svare på spørgsmålet, men mente at jeg
måske skulle bruge dot notationen for mere præcise stier til tabeller og
felter. Dette har jeg prøvet uden noget resultat. Jeg får ikke nogle
fejlmeddelse, men det er som om den bare ikke får fat i tabellerne. Jeg har
før lavet søgescript på Scannet.dk uden UNION der virkede fint. Håber der er
nogle der kan hjælpe.... Det skal lige siges at Scannet kører med IIS 4.0

SQL = "SELECT overskrift, filnavn, beskrivelse,links "&" FROM flash_1 "&
"WHERE filnavn LIKE '%" & Replace(strSearch, "'", "''") & "%' "&" OR
overskrift LIKE '%" & Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse
LIKE '%" & Replace(strSearch, "'", "''") & "%' "&" UNION SELECT overskrift,
filnavn,beskrivelse,links "& "FROM Tabel1 " & "WHERE filnavn LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR overskrift LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" ORDER BY overskrift"


Jeg sender lige hele søge scriptet:
<%
strSearch = Request.Form("soeg")
If Request.Form("soeg") <> "" then
Set DB = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & Server.Mappath("db2.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti



SQL = "SELECT overskrift, filnavn, beskrivelse,links "&" FROM flash_1 "&
"WHERE filnavn LIKE '%" & Replace(strSearch, "'", "''") & "%' "&" OR
overskrift LIKE '%" & Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse
LIKE '%" & Replace(strSearch, "'", "''") & "%' "&" union SELECT overskrift,
filnavn,beskrivelse,links "& "FROM Tabel1 " & "WHERE filnavn LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR overskrift LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" union SELECT overskrift,
filnavn,beskrivelse,links "& "FROM Tabel2 " & "WHERE filnavn LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR overskrift LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" union SELECT overskrift,
filnavn,beskrivelse,links "& "FROM Tabel3 " & "WHERE filnavn LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR overskrift LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" union SELECT overskrift,
filnavn,beskrivelse,links "& "FROM Tabel4 " & "WHERE filnavn LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR overskrift LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" union SELECT overskrift,
filnavn,beskrivelse,links "& "FROM Tabel5 " & "WHERE filnavn LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR overskrift LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" union SELECT overskrift,
filnavn,beskrivelse,links "& "FROM Tabel6 " & "WHERE filnavn LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR overskrift LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" union SELECT overskrift,
filnavn,beskrivelse,links "& "FROM Tabel7 " & "WHERE filnavn LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR overskrift LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" OR beskrivelse LIKE '%" &
Replace(strSearch, "'", "''") & "%' "&" ORDER BY overskrift"

Set rs = db.Execute (SQL)
If not rs.eof then
Response.Write "<table border=0 cellspacing=0 >"
Response.Write "<tr>"
Response.Write "<b>" & "" & "</b><p>"


Do until rs.eof

Response.Write "<tr><td colspan=3 class='split' bgcolor='#333399'
width=300><b>" & "&nbsp;" & rs("overskrift") & "</td></b>" & "<tr>"


Response.Write "<tr><td><b>filnavn:</b>"
response.write "&nbsp;&nbsp;<A HREF="& rs("links") & " >" & rs("filnavn") &
"</td></tr>"


Response.Write "<tr><td><b>beskrivelse:</td></tr>"
Response.Write "<tr><td width='300'>" & rs("beskrivelse") & "</td></tr>"


Response.Write "<tr><td height='20'></td></tr>"
rs.movenext
Loop
Response.Write "</table>"
Else
Response.Write "<b>Der var intet der matchede din søgekriterier!</b>"
End if
End if


%>

Med venlig hilsen Lars