<% DIM mySQL, str_Art, str_Date, str_Vikt, str_Klocka, str_sok1, str_sok2, str_sok3, str_urval, Date_Start, Date_Stop, mySQL2,strUrval2 DIM counter str_Art = Request.Form("Art") str_Date = Request.Form("ar") & Request.Form("manad") & Request.Form("dag") str_Vikt = Request.Form("Vikt") str_Klocka = Request.Form("timme") & Request.Form("minut") str_urval = "art= '" & str_Art & "' AND vikt= '" & str_Vikt & "' AND datum= '" & str_Date & "' AND klocka= '" & str_Klocka & "'" mySQL = "SELECT art,vikt,langd,omkr,datum,klocka,metod,bete,plats,ort,lag,namn,namntel,vagtyp,vittne,vittnetel,ovrigt,email,remoteaddr,anmalningstid,status FROM fiskanmalningar where " & str_urval & " ORDER BY anmalningstid;" DIM objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open mySQL, objConn %>

 Sök efter anmäld fisk

---

För att bara anmälaren ska kunna hitta anmäld fisk så måste alla nedanstående val göras exakt.
Fyll i korrekta uppgifter, så får du en lista på de anmälningar det stämmer med.
Om du dubbelanmält en fisk så får du alltså två svar. <% if NOT objRS.EOF then %> <% end if %>

Art:	Abborre Björkna Braxen Färna Gädda Gös Id Karp Lake Lax Mört Ruda Röding Sarv Sik Sutare Ål Öring
Vikt:
Fångstdatum:	--- 2008 2009 - --- Jan Feb Mar Apr Maj Jun Jul Aug Sep Okt Nov Dec - -- 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
Klockan:	-- 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 : -- 00 05 10 15 20 25 30 35 40 45 50 55

<% if str_Art <> "" then %> Söker efter anmälan på <%=str_Art %>, vikt <%=str_Vikt %>gram, tagen <%=Request.Form("dag") %>/<%=Request.Form("manad") %>-<%=Request.Form("ar") %> <% end if %>

---

<% if objRS.EOF then %> <% if str_Art <> "" then %>

Inget anmälning hittad med de sökvärdena.... <% end if %> <% else %> <% DO WHILE NOT objRS.EOF %> <% %> <% objRS.MoveNext Loop %>

Art	<% Response.Write objRS("art") %>
Vikt	<% Response.Write objRS("vikt") %>
Datum	<% Response.Write objRS("datum") %>
Metod	<% Response.Write objRS("metod") %>
Bete	<% Response.Write objRS("bete") %>
Plats	<% Response.Write objRS("plats") %>
Ort	<% Response.Write objRS("ort") %>
Namn	<% Response.Write objRS("namn") %>
Lag	<% Response.Write objRS("lag") %>
Anmälnings id	<% Response.Write objRS("anmalningstid") %>
Status	<% If objRS("status") = "" then Response.Write "Ej i listan än" else Response.Write objRS("status") end if %>

---

<% ' Log database search Dim strFile strFile = Server.MapPath("db_log.htm") Dim objFSO 'FileSystemObject Variable Dim objFile 'File Object Variable ' Create an instance of the FileSystemObject Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the TextFile (FileName, ForAppending, AllowCreation) Set objFile = objFSO.OpenTextFile(strFile, 8, True) objFile.Write Request.ServerVariables("REMOTE_HOST") objFile.Write " # " objFile.Write Now() objFile.Write " # " & mySQL & "
" objFile.Close Set objFile = Nothing Set objFSO = Nothing %> <% str_Art = "" str_Year = "" str_Namn = "" str_Plats = "" str_sok1 = "" str_sok2 = "" str_sok3 = "" end if %> <% ' Don't forget to close your connection after you display your data. objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>