<% \' Henter værdien fra soeg.htm strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then \' Hvis der ikke er skrevet i feltet Response.Clear Response.Redirect(\"search.htm\") Else \' Hvis der er skrevet i feltet strKeyword = Replace(strKeyword,\"\'\",\"\'\'\") End If
\' Opbygger en dynamisk SQL streng strSQL = \"SELECT ID, Navn, Indkaldelse, E-mail, Telefonnummer FROM Kunder WHERE\" strSQL = strSQL & \" (Navn LIKE \'%\" & strKeyword & \"%\')\" strSQL = strSQL & \" OR (Indkaldelse LIKE \'%\" & strKeyword & \"%\')\" strSQL = strSQL & \" OR (E-mail LIKE \'%\" & strKeyword & \"%\')\" strSQL = strSQL & \" OR (Telefonnummer LIKE \'%\" & strKeyword & \"%\')\"
\' Skaber DSNLess forbindelse til DBen strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"search.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 \"<table border=1>\" Response.Write \"<tr><th>Navn</th><th>Indkaldelse</th><th>E-mail</th><th>Telefonnummer</th></tr>\" Do While Not rs.EOF Response.Write \"<tr><td>\" & rs(\"Navn\") & \"</td>\" Response.Write \"<td>\" & rs(\"Indkaldelse\") & \"</td>\" Response.Write \"<td>\" & rs(\"E-mail\") & \"</td>\" Response.Write \"<td>\" & rs(\"Telefonnummer\") & \"</td></tr>\" rs.MoveNext Loop Response.Write \"</table>\" Else \' Hvis der ikke er fundet poster på søgningen Response.Write \"<p>Der er ikke fundet noget på denne søgning, prøv igen med Fornavn.</p>\" End If
\' Rydder op efter os myConn.Close Set myConn = Nothing %>
Jo, af en eller anden grund skal de! Tro mig, jeg har brugt en hel uge på at finde ud af det!!! \"GG\" Jeg ringede lige til min udbyder support, og det var hvad de sagde... ØV!
så er din udbyder da dum at høre på, og sikkert en som sidder hjemme og ikke kan finde ud af det :) hvis det er sådan jamen så kan du jo ikke gøre noget!!!!
Nå jeg får det hele flyttet til en Windows server... Nogen mener det skulle hjælpe!! Men hvad ved jeg... Jeg prøver!
Men du skal vel have lidt points for din hjælp...
jthyge :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
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.