<% sedelnummer = request("sedelnummer") if sedelnummer = "" then text = "WHERE ort = '" & request("ort") & "'" else text = "WHERE sedelnummer = '" & sedelnummer & "'" end if objConn.open koppling&"sedel.mdb"&koppling2 SQL = "SELECT * FROM sedlar " & text objRS.Open SQL, objConn if objRS.EOF = True and sedelnummer <> "" then response.write ("Det finns ingen sedel med det numret i registret.") if objRS.EOF = True and sedelnummer = "" then response.write ("Det finns inga inrapporterade sedlar från " & request("ort") & ".") if objRS.EOF = False then response.write ("

Sedelnummer: " & objRS("sedelnummer")) response.write ("
Valör: " & objRS("valor") & " kronor") f = 0 while not objRS.EOF f = f + 1 if f>1 and sedelnummer = "" then response.write ("

Sedelnummer: " & objRS("sedelnummer")) response.write ("
Valör: " & objRS("valor") & " kronor") end if response.write ("

Ungefärlig tidpunkt: " & objRS("tidpunkt")) response.write ("
Sedeln kom från ") if objRS("fran") = "" then response.write ("...") if objRS("fran") <> "" then response.write (objRS("fran")) response.write (" och hamnade hos " & objRS("till") & ".") response.write ("
Detta utspelade sig i ") if sedelnummer = "" then response.write ("") response.write (objRS("ort")) if sedelnummer = "" then response.write ("") response.write (" och rapporterades av
" & objRS("namn") & " " & objRS("inrapporteringstid") & ".") if objRS("ovrigt") <> "" then response.write ("
Vidare rapporteras följande från detta ägarbyte:
") response.write (objRS("ovrigt")) end if objRS.MoveNext wend objRS.Close objConn.Close end if response.write ("

Tillbaka till huvudsidan.") %>