Kuka tietää ja ajattelee fiksusti

Kuka tietää ja ajattelee fiks kirjoitti:

Nyt täytyy todeta se tosia asia, että te kaikki jotka vasta nyt olette oppineet käyttämään tietokonetta tai älynneet sen tosi asian, että virtuaalimaaiilma on myös teitä varten.... helvetin tyhmät ihnmiset...siis tämä tarkoittaa níitä, jotka luuletvat itsestään ihan liikaa mitä todellisuudessaan ovatkaan....luulevat olevan tieojenkäsittelyn ammattilaisia...

ps..itse tiejenkäsittelyn ammatilainen, joka taitaa mm.................

%

   Response.Expires=0


   login=request.cookies("check")("login")
id=request.cookies("check")("id")

if login="" or id="" then
Response.Redirect("default.asp") 'estetään login-sivun ohipääseminen
end if


dsn = "´Jukka"
dbuser = "Ilmeri"
dbpass = "minataas"

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
Conn.Open dsn, dbuser, dbpass

Function cIntDate2NormalDate(cIntDate)
'This function converts number formatted (yyyymmdd) date to format dd.mm.yyyy
End If
Dim cHlpStr
'Last two digits is day
cHlpStr = Right(cIntDate,2) & "."
'Month is presented in 5th. and 6th. character
cHlpStr = cHlpStr & Mid(cIntDate, 5,2) & "."
'First 4 digits are for year
cHlpStr = cHlpStr & Left(cIntDate ,4)
cIntDate2normalDate = cHlpStr
End Function


      kayttajaid=Request("kayttajaid")
         if kayttajaid="" then
            kayttajaid=0
         end if

      sql="select * from RX_kayttaja"
      rs.open sql, conn

%>




















Käyttäjät







Valitse käyttäjä listasta









Valitse käyttäjä listasta










0 then


   sql="select * from RX_kayttaja where KA_avain=" & kayttajaid
   rs.open sql, conn

   KA_avain=trim(rs("KA_avain"))
   KA_taso=trim(rs("KA_taso"))
   KA_tunnus=trim(rs("KA_tunnus"))
   KA_pw=trim(rs("KA_pw"))
   KA_pwvaihdettu=cIntDate2normalDate(trim(rs("KA_pwvaihdettu")))
   KA_pwvoimassa=trim(rs("KA_pwvoimassa"))
   KA_pwvanhenee=cIntDate2normalDate(trim(rs("KA_pwvanhenee")))
   KA_defverop=trim(rs("KA_defverop"))
   KA_defvorgkdi=trim(rs("KA_defvorgkdi"))
   KA_defkorgkdi=trim(rs("KA_defkorgkdi"))
   KA_defiravain=trim(rs("KA_defiravain"))
   KA_defavainseli=trim(rs("KA_defavainseli"))
   KA_iravain1=trim(rs("KA_iravain1"))
   KA_avainseli1=trim(rs("KA_avainseli1"))
   KA_iravain2=trim(rs("KA_iravain2"))
   KA_avainseli2=trim(rs("KA_avainseli2"))
   KA_iravain3=trim(rs("KA_iravain3"))
   KA_avainseli3=trim(rs("KA_avainseli3"))
   KA_defsopluokka=trim(rs("KA_defsopluokka"))
   KA_sopluokka1=trim(rs("KA_sopluokka1"))
   KA_sopluokka2=trim(rs("KA_sopluokka2"))
   KA_sopluokka3=trim(rs("KA_sopluokka3"))

end if
%>


Tunnus:

Salasana:



Salasana voimassa (pv):

Salasana vaihdettu:




Salasana vanhenee:

Käyttäjätaso:

Pääkäyttäjä
Kesäharjoittelija
Mikrotukihenkilö
Sopimusylläpito
Hankinnat
Irtaimiston lisäys
Osastokäyttäjä



Vastuuorganisaatio:

Käyttäjäorganisaatio:



Oletusverop:



Oletusomaisuuslaji:

Selite:



Lisäomaisuuslaji-1:

Selite:



Lisäomaisuuslaji-2:

Selite:



Lisäomaisuuslaji-3:

Selite:



Oletussopimusluokka:

Lisäsopimusluokka-1:



Lisäsopimusluokka-2:

Lisäsopimusluokka-3:

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä