<% dim tStart, tFinish tStart = milliDif() %> <% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;" Conn.Open DSN strSQL = "Select MAX(BrugerID) AS ANTAL FROM spobruger" Set rs = Conn.Execute(strSQL) intPAS = rs("ANTAL") ' Vi tjekker om brugeren har valgt at ændre status for en bruger på spo. "addID" er bruger id'et på den bruger der skal have ændret status. Hvis der ikke er et "addID" går vi vidre. If request("addID")<> "" then ' Vi ser om adminen har valgt at afgodkende brugeren til 16c If request("god") = "16c" Then strNR = Request("addID") strTOM = "" strSQL3 = "UPDATE spobruger SET " ' Når brugeren er afgodkendt sætter vi "clan" = tom strSQL3 = strSQL3 & "clan = '"&strTOM&"' " strSQL3 = strSQL3 & " WHERE brugerID = "&request("addID")&" " Conn.Execute(strSQL3) 'response.write strSQL3 End If ' Vi ser om adminen har valgt at godkende brugeren til 16c If request("god") = "NOT" Then strSQL4 = "UPDATE spobruger SET " ' Når brugeren er godkendt sætter vi "clan" = 16c strSQL4 = strSQL4 & "clan = '16c' " strSQL4 = strSQL4 & " WHERE brugerID = "&request("addID")&" " 'response.write(strSQL4) Conn.Execute(strSQL4) End If End If ' Vi tjekker om brugeren har valgt at ændre status for en bruger på spo. "addID" er bruger id'et på den bruger der skal have ændret status. Hvis der ikke er et "addID" går vi vidre. If request("addID")<> "" then ' Vi ser om adminen har valgt at afgodkende brugeren til SPO If request("god") = "JA" Then strNR = Request("addID") strTOM = "" strSQL3 = "UPDATE spobruger SET " ' Når brugeren er afgodkendt sætter vi "userid" = tom strSQL3 = strSQL3 & "userid = '"&strTOM&"' " strSQL3 = strSQL3 & " WHERE brugerID = "&request("addID")&" " Conn.Execute(strSQL3) 'response.write strSQL3 End If ' Vi ser om adminen har valgt at godkende brugeren til SPO If request("god") = "NEJ" Then strSQL4 = "UPDATE spobruger SET " ' Når brugeren er godkendt sætter vi "userid" = "brugerid" strSQL4 = strSQL4 & "userid = '"& request("addID") &"' " strSQL4 = strSQL4 & " WHERE brugerID = "&request("addID")&" " 'response.write(strSQL4) Conn.Execute(strSQL4) End If End If for var = 1 to intPAS step 1 ' SQL forespørgsel strSQL = "Select * from spobruger WHERE brugerID = "&var&" " ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL) ' Gennemløb Recordset (rs) med en løkke Do intBRUGERID = rs("brugerID") strFIRSTNAME = rs("Firstname") strLASTNAME = rs("lastname") strDAYOFBIRTH = rs("dayofbirth") strMONTHOFBIRTH = rs("monthofbirth") strYEAROFBIRTH = rs("yearofbirth") strADDRESS = rs("address") strPOSTALNUMB = rs("postalnumb") strCITY = rs("city") strPHONE = rs("phone") strMOBILE = rs("mobile") strEMAIL = rs("email") strUSERNAME =rs("username") strUSERID = rs("userid") strPASS = rs("password") STRUSERID = rs("userid") strCLAN = rs("clan") ' Gå til næste Record i rs rs.MoveNext if intBRUGERID = 1 then strPASS = "*****" END IF if intBRUGERID = 2 then strPASS = "*****" END IF if intBRUGERID = 5 then strPASS = "*****" END IF ' Fortsæt indtil rs er gennemløbet (EOF = End Of File) Loop While Not rs.EOF ' Luk databaseforbindelse If strUSERID <> "" Then strGODKENDT = "JA" Else strGODKENDT = "NEJ" END If If strCLAN <> "" Then strCLAN = "16c" Else strCLAN = "NOT" END If strNAR = strNAR & ""&intBRUGERID&""&strFIRSTNAME&""&strLASTNAME&""&strUSERNAME&""&strDAYOFBIRTH&". "&strMONTHOFBIRTH&" "&strYEAROFBIRTH&""&strADDRESS&"
"&strPOSTALNUMB&", "&strCITY&""&strPHONE&""&strMOBILE&" "&strEMAIL&"" & strPASS & ""&strCLAN&" "&strGODKENDT&" " next Conn.Close Set Conn = Nothing %> admin menu
<% response.write(strNAR) %>
Nr.FornavnEfternavnBrugernavnFødselsdagAdresseTelefonMobilEmailPassclangodkendt
 Det tog <% tFinish = milliDif() response.write "" & (tFinish - tStart) & "" %> millisekunder at lave denne side