---

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

---

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.