% 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 %>
| 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 %> |