/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
tak for svarende, et andet problem
Fra : mike


Dato : 13-03-01 21:41

hvorfor ud skriver alle nummer først.
scriptet findes næsten nederest


<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
<style type="text/css">
<!--
..font { font-family: "Times New Roman", Times, serif; font-size: 10px;
font-style: normal; line-height: normal; font-weight: normal; font-variant:
normal; color: 452105}
-->
</style>

</head><body bgcolor="#f2d5b3">

<%
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then

Response.Clear
Response.Redirect("fejl-soeg.htm")
Else

strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT * FROM salg WHERE"
strSQL = strSQL & " (overskrift LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (beskrivelse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (katagori LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (pris LIKE '%" & strKeyword & "%')"

Dim MyString, LeftString




strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("databse.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN


Set rs = myConn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<center><p>Søgeresultat</p></center>"
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%



Do While Not rs.EOF
Response.Write "<tr><td><b>" & rs("overskrift") & "</td></b>"
response.write "<td>" & "<img src='" & rs("billede") & "'>" & "</td>"


Response.Write "</tr>" & "<tr>"
Response.Write "<td>" & rs("katagori") & "</td></tr>"
Response.Write "<tr><td>" & rs("beskrivelse") & "</td></tr>"
Response.Write "<tr><td>" & rs("pris") & "</td></tr>"
MyString = rs("tlf")
LeftString = Left(MyString, 4)
response.write leftstring & "XXXXXX"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<b>"
Response.Write "<p>Der er ikke fundet noget på denne søgning</p></b>"

End If


myConn.Close
Set myConn = Nothing
%>



 
 
Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408877
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste