opdel så det står 5 og 5
Jeg har en database hvor man kan søge på efterskoler, men jeg kan ikke få den til at skrive hvor mange den har fundet og jeg vil også gerne havde at den viser dem 5 og 5 osv osv. Jeg vil også gerne høre om jeg kan optimere det så det kommer til at gå hurtiger. Jeg sender file med så i kan sige hvor det forskellinge skal side. Håber der er nogle der kan hjælpe.Hilsen Anders
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>
<%
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect("search.htm")
Else
strKeyword = Replace(strKeyword,"'","''")
End If
strSQL = "SELECT ID, Navn, Adresse, postnr, by, tlf, mail FROM Kunder WHERE"
strSQL = strSQL & " (Navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Adresse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (postnr LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (by LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (tlf LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (mail LIKE '%" & strKeyword & "%')"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("search_2000.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<p>Søgeresultat:</p>"
Response.Write "<table border=0>"
Do While Not rs.EOF
Response.Write "<tr><td bgcolor='333333'>" & rs("Navn") & "</td></Tr><Tr>"
Response.Write "<td>" & rs("Adresse") & "</td></Tr><Tr>"
Response.Write "<td>" & rs("postnr") & " " & rs("by") & "</td></Tr><Tr>"
Response.Write "<td>" & "TLF: " & rs("tlf") & "</td></Tr><Tr>"
If Len(mail) = emty Then
Response.Write "<td>" & "Inge e-mail" & "</td></tr>"
Else
Response.Write "<td>" & rs("mail") & "</td></tr>"
rs.MoveNext
End If
Loop
Response.Write "</table>"
Else
Response.Write "<p>Der kunne ikke findes nogle efterskole</p>"
End If
myConn.Close
Set myConn = Nothing
%>
</body></html>
