Hvordan sætter hyperlink på min søgning ?
Hej jeg har en søgning i asp den virker perfekt men hvordan får jeg den til at vise en link til søgningen.Den ser sådan ud :
' 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("index.asp")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT dato,indskud,bolig,leje,by1,landsdel,profil, FILENAME FROM Users WHERE"
strSQL = strSQL & " (dato LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (landsdel LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (by1 LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (leje LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (bolig LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (indskud LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("boligbasen.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 cellspacing=0 align=center width=80% bgcolor=#E6E4F1 bordercolordark=#000000 bordercolorlight=#000000>"
Response.Write "<tr><th>Indsat D.</th><th>By</th><th>Landsdel</th><th>Husleje</th><th>bolig</th><th>Indskud</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>"& rs("dato") & "</td>"
Response.Write "<td>" & rs("by1") & "</td>"
Response.Write "<td>" & rs("landsdel") & "</td>"
Response.Write "<td>" & rs("leje") & "</td>"
Response.Write "<td>" & rs("bolig") & "</td>"
Response.Write "<td>" & rs("indskud") & "</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</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
så spørger jeg hvor skal jeg sætte ahref henne ?
a href='show_profil.asp?user=<%=rsUser("username")%>
