hvordan skifter jeg tiden
hvordan skifter jeg tiden så den ikke læger er i engleks tid men dansk i stedet....min asp koder er her
function login(navn)
if navn = "" then
login = "<font class=8>Du skal skrive et navn</font>"
else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("chatten.mdb") & ""
Set rs = Server.CreateObject("ADODB.Recordset")
LoginSQL = "Select * from online where navn = '" & Request.form("navn") & "'"
rs.Open LoginSQL, Conn, 1, 3
if Rs.bof or eof then
rs.Addnew
rs("navn") = Request.form("navn")
rs("time") = Time()
rs.update
Session("navn") = Request.form("navn")
Set ChatConn = Server.CreateObject("ADODB.Connection")
ChatConn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("chatten.mdb") & ""
Set chatrs = Server.CreateObject("ADODB.Recordset")
chatSQL = "Select * from chat"
chatrs.Open chatSQL, ChatConn, 1, 3
chatrs.addnew
chatrs("modtager") = "Alle"
chatrs("afsender") = "Chatten"
chatrs("besked") = "" & Request.form("navn") & " er logget ind klokken " & Time() & ""
chatrs("fontcolor") = "#0000FF"
chatrs.update
chatrs.close
ChatConn.close
Set Chatconn = nothing
Response.Redirect("chat_frame.asp")
else
login = "<font class=8>Der er en bruger med det navn<br>logget på med det ønskede navn<br><br></font>"
end if
rs.close
Set rs = nothing
Conn.close
Set conn = nothing
end if
end function
