/ 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
ang. søgefunktion
Fra : Datamatiker


Dato : 28-03-01 14:10

Jeg har her en søge funktion der virker, men problemet er at brugeren skal
have en besked tilbage hvis søgekriteriet ikke bliver opfyldt. Denne besked
skal skrives til variablen CurrentSeek. Er der nogen der kan hjælpe??

MVH Datamatikere stud.

ASP :
Sub Seek
Dim Sql, Rs, strSeek, NotFound
btnState = ""
NotFound = True
SeekState = True
strSeek = Cstr(Request.Form("txtSoeg"))
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.CursorLocation = 3' adUseClient
Rs.CursorType = 3' adOpenStatic
Rs.CacheSize = 1' intPost
Rs.PageSize = 1
Set Rs.ActiveConnection = Conn
Sql = "Select * From Reservedel"
Rs.Open Sql
If (Not Rs.BOF And Not Rs.EOF) Then
Do While Not Rs.EOF
If (CStr(Rs("ResNavn")) = strSeek) Then
SearchResultNr = CInt(Rs("ResNr"))
Page = Rs.AbsolutePage
NotFound = False
Exit Do
End If
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing
If (NotFound = False) Then
Call ShowDefault
Else
Call CloseDataBase
Response.Clear
Response.Redirect "Operation på reservedel.asp"
End If
End Sub




 
 
Jonathan Stein (28-03-2001)
Kommentar
Fra : Jonathan Stein


Dato : 28-03-01 16:16

Datamatiker wrote:

> Jeg har her en søge funktion der virker, men problemet er at brugeren skal
> have en besked tilbage hvis søgekriteriet ikke bliver opfyldt. Denne besked
> skal skrives til variablen CurrentSeek. Er der nogen der kan hjælpe??
>
> [...]
> If (NotFound = False) Then
> Call ShowDefault
> Else

CurrentSeek = "Sorry - det kunne vi ikke finde"

> Call CloseDataBase
> Response.Clear
> Response.Redirect "Operation på reservedel.asp"

Mellemrum og danske bogstaver i filnavne er en skidt ting.
"OperationPaaReservedel.asp" giver ikke problemer.




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