swatch internettime

Kig på http://www.netcoders.dk

I øverste højre hjørne kører der et script der viser både normal tid og swatch internettime.

/Thor

Har du mulighed for at bruge ASP one?

Hvis JA:

<script LANGUAGE="VBScript" RUNAT="Server">
FUNCTION InternetTime(TheTime)
    dim ITime
    ITime = CInt((Hour(TheTime)+Minute(TheTime)/60+Second(TheTime)/3600)/24*1000)
    ITime = ITime & "00" & ITime

    InternetTime = "@" & Right(ITime,3)
END FUNCTION
</script>



Internettime: <%=InternetTime(Time)%>


Scriptet kan vel også konverteres til javascript...

/David

jeg kan godt lave at javascript til dig andreas men hehe det koster penge... du tjener  jo efterhånden også en del derovre i USA

jumper>>>>  da jeg er i usa    passer scriptet på deres hjemmeside da deres er optimeret til en dansk tid  såå jeg kan ikke bruge den da jeg er ca 6 timer og 20 min  bagefter!"!!!!

krogstrup>>>>    ja men måske samme problem som  med jumper!!!!

esben>>>>  NEJ



Andreas

Man kan hvis finde et på
http://www.swatch.com

/MF

jeg tror det her er lige hvad du søger:

<%@ Language=VBScript %>
<%
Dim Text
Text = Request("text")

If Not Text = "" Then
    Dim Fs, Fil, Path
    Path = Server.MapPath("tekstfil.txt")
   
    Set Fs = Server.CreateObject("Scripting.FileSystemObject")
    Set Fil = Fs.OpenTextFile(Path, 8, True)
    Fil.WriteLine Text
   
    Fil.Close
    Set Fil = Nothing
    Set Fs = Nothing
End If
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<P>&nbsp;</P>
Du skrev "<%= Text %>"
</BODY>
</HTML>


det script kører bare rigtig godt så ved i det!

what the fuck!

hey det var sgu ikke mig der sendte det, det var en af mine venner som lige var forbi og sad ved min puter da jeg var i køkkenet. det script har slet ikke noget med inet time at gøre, det vil man også kunne se hvis man kan lidt ASP

krogstrup vil du ikke svare  på det spm jeg stilte dig  kan jeg bruge det hvis jeg er i usa?

guess not