<% DIM objRS2 Set objRS2 = Server.CreateObject("ADODB.Recordset") myphpBB2 = "SELECT user_email FROM phpbb_users where username = '" & Request.Form("Username") & "' AND user_password = D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99D9726NXB99'" & md5(Request.Form("Password")) & "';" objRS2.Open myphpBB2, objConn2 DO WHILE NOT objRS2.EOF strEmail = objRS2("user_email") objRS2.MoveNext Loop objRS2.Close Set objRS2 = Nothing objConn2.Close Set objConn2 = Nothing ''''''''''''''''''''''''''''''''''''' DIM mySQL, str_Art, str_Date, str_Vikt, str_Klocka, str_sok1, str_sok2, str_sok3, str_urval, Date_Start, Date_Stop, mySQL2,strUrval2 IF strEmail = "" then str_urval = "email= 'void'" else str_urval = "email= '" & strEmail & "'" end if 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 DESC;" 'mySQL = "SELECT t1.art,t1.vikt,t1.langd,t1.omkr,t1.datum,t1.klocka,t1.metod,t1.bete,t1.plats,t1.ort,t1.lag,t1.namn,t1.namntel,t1.vagtyp,t1.vittne,t1.vittnetel,t1.ovrigt,t1.email,t1.remoteaddr,t1.anmalningstid,t2.Nr 'FROM fiskanmalningar AS t1 LEFT JOIN fisk AS t2 ON t1.Nr=t2.Nr where t1." & str_urval & " ORDER BY t1.anmalningstid DESC;" 't1.art=t2.Art AND t1.vikt=t2.Vikt AND t1.datum=t2.Datum 'mySQL = "SELECT t1.Art, t1.Vikt, t1.Metod, t1.Bete, t1.Plats, t1.Kommun, t1.Namn, t1.Datum, t1.Poang, t2.Foto 'FROM fisk AS t1 LEFT JOIN foto AS t2 ON t1.Nr=t2.Nr where " & str_urval & " ORDER BY " & str_sok1 & ", " & str_sok2 & ", " & str_sok3 & ";" DIM objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open mySQL, objConn mySQL3 = "SELECT art, Count(art), Avg(vikt) FROM fiskanmalningar where " & str_urval & " GROUP BY art;" DIM objRS3 Set objRS3 = Server.CreateObject("ADODB.Recordset") objRS3.Open mySQL3, objConn %>

 Ta fram de fiskar som anmälts med din emailadress

---

Ange det användarnamn och lösen du har i forumet.
De fiskar som anmälts med den emailadress som registrerats i forumet visas sedan.

Användarnamn:
Lösenord:

<% if strEmail <> "" then %> Söker efter anmälningar för emailadress '<%=strEmail %>' <% end if %>

---

<% if objRS.EOF then %> <% if strEmail = "" and Request.Form("Username")<> "" then %>

Ingen email hittad till den användaren och lösenordet.... <% end if %> <% if strEmail <> "" then %>

Inga anmälningar hittade... <% end if %> <% else %> <% DO WHILE NOT objRS.EOF %> <% strOrgDate = objRS("Datum") If Mid(strOrgDate,7,1) = "0" then strSwedDate = Mid(strOrgDate,8,1) & "/" else strSwedDate = Mid(strOrgDate,7,2) & "/" end if If Mid(strOrgDate,5,1) = "0" then strSwedDate = strSwedDate & Mid(strOrgDate,6,1) & "-" else strSwedDate = strSwedDate & Mid(strOrgDate,5,2) & "-" end if strSwedDate = strSwedDate & Mid(strOrgDate,1,4) %> <% objRS.MoveNext Loop %>

Art	Vikt	Metod	Bete	Plats	Ort	Namn	Datum	Anmälnings-id	Status
<% Response.Write objRS("art") %>	<% Response.Write objRS("vikt") %>	<% Response.Write objRS("metod") %>	<% Response.Write objRS("bete") %>	<% Response.Write objRS("plats") %>	<% Response.Write objRS("ort") %>	<% Response.Write objRS("namn") %>	<% Response.Write strSwedDate %>	<% Response.Write objRS("anmalningstid") %>	<% Response.Write objRS("status") %>

---

<% DO WHILE NOT objRS3.EOF Response.Write objRS3("Count(Art)") & " " Response.Write objRS3("Art") & " med medelvikten " Response.Write objRS3("Avg(Vikt)") & " gr.
" objRS3.MoveNext Loop %> <% ' 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 %>