/
Forside
/
Teknologi
/
Udvikling
/
ASP
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
ASP
#
Navn
Point
1
smorch
9259
2
Harlekin
1866
3
molokyle
1040
4
Steffanst..
758
5
gandalf
657
6
smilly
564
7
gibson
560
8
cumano
530
9
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
Alle emner
Teknologi
Udvikling
ASP
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177557
Tips :
31968
Nyheder :
719565
Indlæg :
6408877
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.