Engelsk server laver om på mine datoer

Prøv dette link: http://www.eksperten.dk/spm/492410

Fik du noget ud af det?

Ikk andet end at jeg kunne replace...

Ok, lægger du dem ned i DB, som jeg har vist, og trækker dem ud, som jeg har vist, vil du få det vist rigtigt, hvadenten serveren kører efter det danske eller det engelske datosystem. Skal vi gennemgå det?

ja, vi kan sagtens gennemgå det...
Ind:
NowTime = Now
TheTime = hour(NowTime) & chr(58) & minute(NowTime) & chr(58) & second(NowTime)
TheDate = day(NowTime) & chr(45) & month(NowTime) & chr(45) &  year(NowTime)

strSQL = "Update tbl_Admins set "
strSQL = strSQL & "last_ip='" & UserIP & "', "
strSQL = strSQL & "Last_Login_Date='" & TheDate & "', "
strSQL = strSQL & "Last_Login_Time='" & TheTime & "' "
strSQL = strSQL & " Where Id = " & Session("MyId")

Conn.Execute(strSQL)

og ud:
  Set Conn = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-bin/users.mdb")
  Conn.Open DSN

strSQLOwner = "Select * from tbl_Owners where User = '" & request.form("strUser") & "' AND Password = '" & request.form("strPass") & "'"
Set rsOwner = Conn.Execute(strSQLOwner)
session("Last_Login_Date")="" & rsAdmin("Last_Login_Date") & ""
session("Last_Login_Time")="" & rsAdmin("Last_Login_Time") & ""

og så bruger jeg <%=session("Last_Login_Time")%> og <%=session("Last_Login_Date")%> til at printe det med..

Kunne du hjælpe?

Ja, undskyld, jeg har været i byen hele dagen. Jeg får kigget på det snarest :o)

Ok :D

Kan vi finde ud af det her i morgen? Det piner mig virkelig...

Hej cronck! Jeg har været meget ude, sorry.

Vi prøver at kigge på det i morgen. Indtil da, prøv lige at kigge på linket, for det hele står der.

Vi snakkes :o)

Har du kigget på det?

ja, men jeg ser ikke rigtigt hvordan det skal løse mit problem... Måske jeg er lidt stupid.. ;D

Jeg arbejder med det, vender straks tilbage.

Jeg regner med, at du har styr på din databaseforbindelse? :o)

Yep... Den virker fint... :D

Ok, jeg skal lige prøve at sætte mig ind i hvordan du har lavet det :o)

Du kan da få hele filen.... Har du msn?

Nej, ikke pt. Så vil jeg hellere have dokumentet her :o)

Ok.. Så ser det bare lidt extra rodet ud.. :D
Login_handler.asp ----
<!-- #include file = "ban_check.asp" -->
<%
Session.LCID = 1030

dim TheTime, NowTime
NowTime = Now
TheTime = hour(NowTime) & chr(58) & minute(NowTime) & chr(58) & second(NowTime)
TheDate = day(NowTime) & chr(45) & month(NowTime) & chr(45) &  year(NowTime)
response.buffer = True

if request.querystring("logon")="check" then

  UserIP = Request.ServerVariables ("REMOTE_ADDR")

  Set Conn = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-bin/users7843421.mdb")
  Conn.Open DSN

  strSQLOwner = "Select * from tbl_Owners where User = '" & request.form("strUser") & "' AND Password = '" & request.form("strPass") & "'"
  Set rsOwner = Conn.Execute(strSQLOwner)

  if rsOwner.EOF OR rsOwner.BOF then
    session("Owner")="False"

    strSQLAdmin = "Select * from tbl_Admins where User = '" & request.form("strUser") & "' AND Password = '" & request.form("strPass") & "'"
    Set rsAdmin = Conn.Execute(strSQLAdmin)

    if rsAdmin.EOF OR rsAdmin.BOF then
      session("Admin")="False"

      strSQL = "Insert into tbl_Fakelogins ("

      strSQL = strSQL & "[User], "
      strSQL = strSQL & "[Password], "
      strSQL = strSQL & "[Date], "
      strSQL = strSQL & "[Time], "
      strSQL = strSQL & "[Ip]) "

      strSQL = strSQL & "values('"
      strSQL = strSQL & Request.Form("strUser") & "','"
      strSQL = strSQL & Request.Form("strPass") & "','"
      strSQL = strSQL & TheDate & "','"
      strSQL = strSQL & TheTime & "','"
      strSQL = strSQL & UserIP & "')"

      Conn.Execute(strSQL)

    else
      session("Admin")="True"
      session("Owner")="False"
      session("MyName")="" & request.form("strUser") & ""
      session("MyId")="" & rsAdmin("id") & ""
      session("Last_Login_Date")="" & rsAdmin("Last_Login_Date") & ""
      session("Last_Login_Time")="" & rsAdmin("Last_Login_Time") & ""
      session("Last_Ip")= "" & rsAdmin("Last_Ip") & ""

      strSQL = "Update tbl_Admins set "
      strSQL = strSQL & "last_ip='" & UserIP & "', "
      strSQL = strSQL & "Last_Login_Date='" & TheDate & "', "
      strSQL = strSQL & "Last_Login_Time='" & TheTime & "' "
      strSQL = strSQL & " Where Id = " & Session("MyId")

      Conn.Execute(strSQL)
    end if
  else
    session("Owner")="True"
    session("Admin")="True"
    session("MyName")="" & request.form("strUser") & ""
    session("MyId")="" & rsOwner("id") & ""
    session("Last_Login_Date")="" & rsOwner("Last_Login_Date") & ""
    session("Last_Login_Time")="" & rsOwner("Last_Login_Time") & ""
    session("Last_Ip")= "" & rsOwner("Last_Ip") & ""
   
    strSQL = "Update tbl_Owners set "
    strSQL = strSQL & "last_ip='" & UserIP & "', "
    strSQL = strSQL & "Last_Login_Date='" & TheDate & "', "
    strSQL = strSQL & "Last_Login_Time='" & TheTime & "' "
    strSQL = strSQL & " Where Id = " & Session("MyId")

    Conn.Execute(strSQL)
   
  end if

end if

if session("Admin")="False" AND session("Owner")="False" then
response.redirect "login.asp?error=Username or Password incorrect!"
else
response.redirect "default.asp"
end if

%>

Du må gerne "optimere" den hvis du synes at det gør det nemmere... :D

Du skal nok osse lige have Welcome.asp hvor den skriver tiden forkert...
<!-- #include file = "top.asp" -->
<div align="center">
  <center><% if session("Last_Login_Time")<>"" then %>
  <table>
  <tr>
    <td colspan="2" align="center"><p><font size="2">
    Welcome <b><%=session("MyName")%></b></font></p>
    </td>
  </tr>
  <tr>
    <td colspan="2" height="3">
    </td>
  </tr>
  <tr>
    <td><p><font size="2">
    You last logged in:</font></p>
    </td>
    <td><p><font size="2">
    <%=session("Last_Login_Time")%>&nbsp;<%=session("Last_Login_Date")%>
    </font></p>
    </td>
  </tr>
  <tr>
    <td><p><font size="2">
    From:</font></p>
    </td>
    <td><p><font size="2"><%=session("Last_Ip")%></font></p>
    </td>
  </tr>
  </table><%else%>Welcome new user!<br>Please click <a href="update_admin.asp">here</a> to change your password<%end if%>
  </center>
</div>
<!-- #include file = "bottom.asp" -->

Ok, arbejder på det :o)

Jeg er sq ked af det, men det har knebet med at få søvn nok de sidste dage. Jeg kan dårligt holde øjnene åbne længere, så jeg fortsætter i morgen. Håber andre vil træde til, hvis de har tid.

Nej nej... Det er ok, er osse selv på vej i seng... :)

er begyndt at miste tålmodigheden... ;)

Hm! Gammelt spm... Svar? så får du point... :-)

Fandt du ud af det? :o)

Jeg kan dårligt huske hvor vidt vi var omkring, men prøv dette:

<%

    Session.LCID = 1030
    Response.Buffer = True
    Response.Expires = -1000

    Function AddZ(ByVal vNumber)

    AddZ = CStr(vNumber)

    If len(AddZ) < 2 Then _
        AddZ = "0" & AddZ

    End Function

    Dim TheDate
    TheDate = Day(Date) & "/" & Month(Date) & "/" & Year(Date) & " " & Time()

    Conn.Execute "UPDATE navn_paa_tabel SET lastseen='" & TheDate & "' WHERE username='" & SQLEncode(Session("username")) & "'"

%>

<html>

<head>
<title></title>
</head>

<body>

<%=Server.HTMLEncode(TheDate)%>

</body>

</html>

Tjaa... Kan ikke huske det, men jeg fik det til at virke for lang tid siden... :D

Takker :o)