---

Hej

jeg prøver for sjov, at lave en side med aktuelt vejr:
http://www.erikisager.dk/vejr_dk.asp

Systemer er, at dem der har en vejrstation uploader data på egen
hjemmeside, en del af disse data er i form af en gif fil. nogle af
disse filer indsætter jeg så på min side, samt et link hvor data er
hentet.

Men ikke alle er på nettet altid (bl.a. mig) derfor er nogle data
ikke helt friske. Det vil jeg gerne gøre opmærksom på. Den nederste
på linket, er min - der har jeg laver det jeg gerne vil lave på alle.

det der ligger på min side kan jeg med:
--------------
' Finder senest gemt dato fra filerne
dim tempF4100
set tempF4100=Server.CreateObject("Scripting.FileSystemObject")

' find tiden fra Ringsted
set datoTemp4100 =
tempF4100.GetFile(Server.MapPath("davis/outsidetemp.gif"))
load4100 = datoTemp4100.DateLastModified
' bruges ikke
' dato4100 = FormatDateTime(datoTemp4100, vbGeneralDate)
dato4100 = Now() - load4100


' Finder minuter siden upload
dato4100n = (minute(dato4100))
' Finder timerer siden upload
dato4100h = (hour(dato4100))
' Finder dage siden upload
dato4100d = DateDiff("d", load4100, date)

----------

finde frem til hvornår filen er uploadet, og derefter beregne tiden
siden filen er uploadet.


Men hvordan kan jeg få fat i tiden på upload på filer der ligger på
andres hjemmeside ????



--
mvh
Erik Isager

---

Is wrote:

> Hej
>
> jeg prøver for sjov, at lave en side med aktuelt vejr:
> http://www.erikisager.dk/vejr_dk.asp
>
> Systemer er, at dem der har en vejrstation uploader data på egen
> hjemmeside, en del af disse data er i form af en gif fil. nogle af
> disse filer indsætter jeg så på min side, samt et link hvor data er
> hentet.
....
> Men hvordan kan jeg få fat i tiden på upload på filer der ligger på
> andres hjemmeside ????

Det bedste bud er nok at fabrikere en HEAD request mod de givne billeder.
Her er (via telnet) et par eksempler fra din side:

telnet fra.hobro-gym.dk 80
--------------------------------------------------------------
Trying 195.192.26.131...
Connected to fra.hobro-gym.dk.
Escape character is '^]'.
HEAD /vejret/week/OutsideTempHistory.gif HTTP/1.0


HTTP/1.1 200 OK
Connection: close
Content-Length: 11810
Expires: Sat, 17 May 2008 19:58:05 GMT
Date: Sat, 17 May 2008 19:58:05 GMT
Content-Type: image/gif
ETag: "acc43f4050b8c81:153e"
Server: Microsoft-IIS/5.0
X-Powered-By: ASP.NET
Cache-Control: no-cache
Accept-Ranges: bytes
Last-Modified: Sat, 17 May 2008 19:00:19 GMT

telnet home19.inet.tele.dk 80
--------------------------------------------------------------
Trying 195.41.53.185...
Connected to home19.inet.tele.dk.
Escape character is '^]'.
HEAD /freespace/vejret/OutsideTempHistory.gif HTTP/1.0


HTTP/1.1 200 OK
Date: Sat, 17 May 2008 19:58:39 GMT
Server: Apache/1.3.26 (Unix) mod_layout/3.2
Last-Modified: Sat, 17 May 2008 19:55:22 GMT
ETag: "1eb8422-2db6-482f382a"
Accept-Ranges: bytes
Content-Length: 11702
Connection: close
Content-Type: image/gif

Det du skal have fat i er Last-Modified headeren, og regne i forhold til
Date headeren.

Det kræver dog at du laver opslag mod de pågældende sider/filer fra din ASP
kode.


--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:482f3b82$0$90270$14726298@news.sunsite.dk...
> Is wrote:
>
> > Hej
> >
> > jeg prøver for sjov, at lave en side med aktuelt vejr:
> > http://www.erikisager.dk/vejr_dk.asp
> >
> > Systemer er, at dem der har en vejrstation uploader data på egen
> > hjemmeside, en del af disse data er i form af en gif fil. nogle
af
> > disse filer indsætter jeg så på min side, samt et link hvor data
er
> > hentet.
> ...
> > Men hvordan kan jeg få fat i tiden på upload på filer der ligger
på
> > andres hjemmeside ????
>
> Det bedste bud er nok at fabrikere en HEAD request mod de givne
billeder.
> Her er (via telnet) et par eksempler fra din side:
>
> telnet fra.hobro-gym.dk 80
> --------------------------------------------------------------
> Trying 195.192.26.131...
> Connected to fra.hobro-gym.dk.
> Escape character is '^]'.
> HEAD /vejret/week/OutsideTempHistory.gif HTTP/1.0
>
>
> HTTP/1.1 200 OK
> Connection: close
> Content-Length: 11810
> Expires: Sat, 17 May 2008 19:58:05 GMT
> Date: Sat, 17 May 2008 19:58:05 GMT
> Content-Type: image/gif
> ETag: "acc43f4050b8c81:153e"
> Server: Microsoft-IIS/5.0
> X-Powered-By: ASP.NET
> Cache-Control: no-cache
> Accept-Ranges: bytes
> Last-Modified: Sat, 17 May 2008 19:00:19 GMT
>
> telnet home19.inet.tele.dk 80
> --------------------------------------------------------------
> Trying 195.41.53.185...
> Connected to home19.inet.tele.dk.
> Escape character is '^]'.
> HEAD /freespace/vejret/OutsideTempHistory.gif HTTP/1.0
>
>
> HTTP/1.1 200 OK
> Date: Sat, 17 May 2008 19:58:39 GMT
> Server: Apache/1.3.26 (Unix) mod_layout/3.2
> Last-Modified: Sat, 17 May 2008 19:55:22 GMT
> ETag: "1eb8422-2db6-482f382a"
> Accept-Ranges: bytes
> Content-Length: 11702
> Connection: close
> Content-Type: image/gif
>
> Det du skal have fat i er Last-Modified headeren, og regne i forhold
til
> Date headeren.
>
> Det kræver dog at du laver opslag mod de pågældende sider/filer fra
din ASP
> kode.

Det se jo meget godt ud, men jeg må be om lidt mere hjælp.

Først drejer det sig vel om det opslag du skriver om ! Hvordan skal
det se ud ??


--
mvh
Erik Isager

---

Is wrote:

> Det se jo meget godt ud, men jeg må be om lidt mere hjælp.

Æv, så skal man jo til at arbejde ;)

> Først drejer det sig vel om det opslag du skriver om ! Hvordan skal
> det se ud ??

Min første tanke var at brnytte XMLHTTPRequesten, med håb om, at man kunne
fyre en head af i stedet for en get.

Jeg har lavet nogle tests her:
<http://w-o-p-r.dk/tips/asp/asp.xmlhttprequest.asp>
Men umiddelbart ser det ud til:
1) XMLHTTPRequest understøtter ikke "head", det betyder at man kan blive
nødt til at hente filen ("get").
MEN
2) De headere, der bliver leveret fra den eksterne server ser ikke ud til at
være tilgængelige i ASP/XMLHTTPRequest.

Så det er formentlig en dead end.

Men på et tidspunkt så jeg noget analogt (HTTP) ved hjælp af w3sockets, der
burde kunne bruges/tilrettes.

Hvad har du af komponenter/muligheder på din server?

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:482fbf8d$0$90269$14726298@news.sunsite.dk...
> Is wrote:
>
>> Det se jo meget godt ud, men jeg må be om lidt mere hjælp.
>
> Æv, så skal man jo til at arbejde ;)
>
>> Først drejer det sig vel om det opslag du skriver om ! Hvordan skal
>> det se ud ??
>
> Min første tanke var at brnytte XMLHTTPRequesten, med håb om, at man kunne
> fyre en head af i stedet for en get.
>
> Jeg har lavet nogle tests her:
> <http://w-o-p-r.dk/tips/asp/asp.xmlhttprequest.asp>
> Men umiddelbart ser det ud til:
> 1) XMLHTTPRequest understøtter ikke "head", det betyder at man kan blive
> nødt til at hente filen ("get").
> MEN
> 2) De headere, der bliver leveret fra den eksterne server ser ikke ud til
> at
> være tilgængelige i ASP/XMLHTTPRequest.
>
> Så det er formentlig en dead end.
>
> Men på et tidspunkt så jeg noget analogt (HTTP) ved hjælp af w3sockets,
> der
> burde kunne bruges/tilrettes.
>
> Hvad har du af komponenter/muligheder på din server?
>
> --


Fra draft om XMLHTTPRequest:

"HTTP
A conforming user agent must support some version of the HTTP protocol. It
should support any HTTP method that matches the Method production and must
at least support the following methods:
GET
POST
HEAD
PUT
DELETE
OPTIONS
Other requirements regarding HTTP are made throughout the specification.
[RFC2616]"

Og der gives et eksempel :
"Or if you want to check the status of a document on the server:
function fetchStatus(address) {
var client = new XMLHttpRequest();
client.onreadystatechange = function() {
// in case of network errors this might not give reliable results
if(this.readyState == 4)
returnStatus(this.status);
}
client.open("HEAD", address);
client.send();
}"

Så umiddelbart - har ikke prøvet - burde XMLHTTPRequest understøtte header.
Det kan så være der er særlige omstændigheder, idet der er tale om at hente
information fra en anden server end den der kører den egentlige side der
vises.

Umiddelbart, skal det vel også foregå på server siden (ASP eller PHP) - det
vil i hvert fald blive en pænere løsning end at skulle have script på
clientside, til at hente data, og indsætte dem i siden.


Birger
-----
http://bbsorensen.dk
http://varmeretter.dk - hverdagsmad. Sundt, nemt, hurtigt og billigt. Daglig
opdatering.

---

"Birger" <sdc@bbsorensen.com> wrote in message
news:482ff13b$0$90275$14726298@news.sunsite.dk...
> Fra draft om XMLHTTPRequest:
>
> "HTTP
> A conforming user agent must support some version of the HTTP protocol. It

Der er tale om Microsoft's XMLHTTPRequest, som er en del af Windows - også
server, men "conforming user agent" og Microsoft er muligvis ikke ord man
skal bruge i samme sætning.

> Så umiddelbart - har ikke prøvet - burde XMLHTTPRequest understøtte
header.

Det har jeg, og den returnerer en 501 - method not supported.

> Umiddelbart, skal det vel også foregå på server siden (ASP eller PHP) -
det

Det er netop serverside ASP vi snakker om, og ikke clientside.
Jeg glemte at kopiere lidt kode over, men det kommer her:

Set objXMLH = Server.CreateObject("Msxml2.XMLHTTP")
objXMLH.open "get" , woprURLlogfile , false
objXMLH.send null

og længere nede..
<h4> Headers from [<% = woprURLlogfile %>] , status = <% =
objXMLH.status %> - <% = objXMLH.statusText %> </h4>
Date = <% = objXMLH.getResponseHeader("Date") %> <br/>
Last modified = <% objXMLH.getResponseHeader("Last-Modified")
%><br/>
Server = <% objXMLH.getResponseHeader("Server") %><br/>
All headers = <% objXMLH.getAllResponseHeaders()%>

> vil i hvert fald blive en pænere løsning end at skulle have script på
> clientside, til at hente data, og indsætte dem i siden.

Enig.

--
Med venlig hilsen/Best regards
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:482fbf8d$0$90269$14726298@news.sunsite.dk...
> Is wrote:
>
> > Det se jo meget godt ud, men jeg må be om lidt mere hjælp.
>
> Æv, så skal man jo til at arbejde ;)
>

ja, det er jo ikke godt Men måske forstår jeg det godt - det
ser ud til ikke at være en nem opgave




> > Først drejer det sig vel om det opslag du skriver om ! Hvordan
skal
> > det se ud ??
>
> Min første tanke var at brnytte XMLHTTPRequesten, med håb om, at man
kunne
> fyre en head af i stedet for en get.
>
> Jeg har lavet nogle tests her:
> <http://w-o-p-r.dk/tips/asp/asp.xmlhttprequest.asp>
> Men umiddelbart ser det ud til:
> 1) XMLHTTPRequest understøtter ikke "head", det betyder at man kan
blive
> nødt til at hente filen ("get").
> MEN
> 2) De headere, der bliver leveret fra den eksterne server ser ikke
ud til at
> være tilgængelige i ASP/XMLHTTPRequest.
>
> Så det er formentlig en dead end.
>
> Men på et tidspunkt så jeg noget analogt (HTTP) ved hjælp af
w3sockets, der
> burde kunne bruges/tilrettes.
>
> Hvad har du af komponenter/muligheder på din server?



Tja det har jeg ikke meget forstand på, men dette er min server:
http://erikisager.dk/serverinfo/info/

Er det nemmere hvis der er "upload tid" for en htm/html fil ??


en mulighed er måske også at hente det ud af en tekst fil ala denne:
http://media.stv.dk/vejret/naervejr/023/WLtextfil.htm

(det er en fil der uploades, som bruges til TV2 vejrets "dit vejr")

Det vil vil jeg dog helt ikke, med mindre der er flere fordele ved
det.




--
mvh
Erik Isager

---

Is wrote:

>
> "Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
> news:482fbf8d$0$90269$14726298@news.sunsite.dk...
>> Is wrote:
>>
>> > Det se jo meget godt ud, men jeg må be om lidt mere hjælp.
>>
>> Æv, så skal man jo til at arbejde ;)
>>
>
> ja, det er jo ikke godt Men måske forstår jeg det godt - det
> ser ud til ikke at være en nem opgave

Der er nu ikke så meget i det, bortset fra begrænsninger på webhotellet.

>> Men på et tidspunkt så jeg noget analogt (HTTP) ved hjælp af
> w3sockets, der
>> burde kunne bruges/tilrettes.
>>
>> Hvad har du af komponenter/muligheder på din server?
>
> Tja det har jeg ikke meget forstand på, men dette er min server:
> http://erikisager.dk/serverinfo/info/

Det var dokumentation fra din udbyder, a la UnoEuro's:
<http://www.unoeuro.com/support/faq/6/20/>

Men Jetts's søster - mona - siger:
<http://mona.andersenit.dk/serverinfo/info/komponenter/>

Dimac - Sockets / w3 sockets ?

Jeg prøver lige at støve det eksempel op jeg har set engang.

--
Med venlig hilsen
Stig Johansen

---

Stig Johansen wrote:

> Dimac - Sockets / w3 sockets ?
>
> Jeg prøver lige at støve det eksempel op jeg har set engang.

Got it.
<http://www.dimac.net/Products/FreeProducts/w3Sockets/Examples/Get.htm>

Prøv at se om du kan få det til at køre på din server.
Hvis det virker (= Socket.TCP er installeret)

Så skal vi bare ned og pille i:
..........
If (TearHTTPPostData <> "") Then
TearHTTPMethod = "POST"
Else
TearHTTPMethod = "GET"
End If
..........
og headerne her:
...........
Case 0 'Header
HTTPResponse = Mid(toHTTPResponse, 1, (InStr(1, toHTTPResponse,
HTTPResponseDelimiter , vbBinaryCompare) -1))
..........

Men som sagt - prøv lige om komponenten er installeret (korrekt) først.

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:48303adb$0$90267$14726298@news.sunsite.dk...
> Is wrote:
>
> >
> > "Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
> > news:482fbf8d$0$90269$14726298@news.sunsite.dk...
> >> Is wrote:
> >>
> >> > Det se jo meget godt ud, men jeg må be om lidt mere hjælp.
> >>
> >> Æv, så skal man jo til at arbejde ;)
> >>
> >
> > ja, det er jo ikke godt Men måske forstår jeg det godt -
det
> > ser ud til ikke at være en nem opgave
>
> Der er nu ikke så meget i det, bortset fra begrænsninger på
webhotellet.
>
> >> Men på et tidspunkt så jeg noget analogt (HTTP) ved hjælp af
> > w3sockets, der
> >> burde kunne bruges/tilrettes.
> >>
> >> Hvad har du af komponenter/muligheder på din server?
> >
> > Tja det har jeg ikke meget forstand på, men dette er min server:
> > http://erikisager.dk/serverinfo/info/
>
> Det var dokumentation fra din udbyder, a la UnoEuro's:
> <http://www.unoeuro.com/support/faq/6/20/>
>
> Men Jetts's søster - mona - siger:
> <http://mona.andersenit.dk/serverinfo/info/komponenter/>
>
> Dimac - Sockets / w3 sockets ?



er det :
Dimac
JMail 4.3.1 SMTPMail (JMail.SMTPMail)
Sockets TCP (Socket.TCP)


henter her:
http://erikisager.dk/serverinfo/info/komponenter/



Skal jeg indsætte det fra:
<http://www.dimac.net/Products/FreeProducts/w3Sockets/Examples/Get.htm
>


????


--
mvh
Erik Isager





>
> Jeg prøver lige at støve det eksempel op jeg har set engang.
>
> --
> Med venlig hilsen
> Stig Johansen

---

Is wrote:

> er det :
> Dimac
> JMail 4.3.1 SMTPMail (JMail.SMTPMail)
> Sockets TCP (Socket.TCP)
>
>
> henter her:
> http://erikisager.dk/serverinfo/info/komponenter/

Ja.

> Skal jeg indsætte det fra:
> http://www.dimac.net/Products/FreeProducts/w3Sockets/Examples/Get.htm

Indsætte og indsætte...
Umiddelbart ligner det Windows scripting, så det skal muligvis ASP'ficeres
først.

Så kunne du udskille subrutinerne og funktionerne i en include fil, som du
kan genbruge.

For hvert af dine eksterne links skal du så kalde en HEAD mod den pågældende
adresse, og efterfølgende lave lidt datogymnastik på felterne.


--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:48307325$0$90270$14726298@news.sunsite.dk...
> Is wrote:
>
> > er det :
> > Dimac
> > JMail 4.3.1 SMTPMail (JMail.SMTPMail)
> > Sockets TCP (Socket.TCP)
> >
> >
> > henter her:
> > http://erikisager.dk/serverinfo/info/komponenter/
>
> Ja.
>
> > Skal jeg indsætte det fra:
> >
http://www.dimac.net/Products/FreeProducts/w3Sockets/Examples/Get.htm
>
> Indsætte og indsætte...
> Umiddelbart ligner det Windows scripting, så det skal muligvis
ASP'ficeres
> først.



ku man lokke dig til at lave et eksempel ???

Jeg er virkelig på dybt vand.


--
mvh
Erik Isager

---

"Is" <detteerminnewsgruppemailadresse3@get2net.dk> wrote in message
news:48307592$0$90272$14726298@news.sunsite.dk...
>
> ku man lokke dig til at lave et eksempel ???

Nu har jeg udvidet eksemplet her:
http://w-o-p-r.dk/tips/asp/asp.xmlhttprequest.asp
med en request baseret på w3 sockets.
Kildeteksten burde du kunne henter her:
http://w-o-p-r.dk/tips/asp/asp.xmlhttprequest.asp.txt

Men bemærk - det er _virkelig_ Quick and Dirty.

Den streng, der kommer retur her:
Workstring = Socket.Buffer

Er svaret fra serveren.
Den skal du først splitte på vbCrLf, så du får en liste med headers.
Hver header er angivet som.
Navn: værdi.

Her skal du så finde indholdet af "Date:" samt "Last-Modified:", og trække
dem fra hinanden, så har du værdien for hvor gammel den er.

--
Med venlig hilsen/Best regards
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmail.com> skrev i en meddelelse
news:483095b1$0$90270$14726298@news.sunsite.dk...
> "Is" <detteerminnewsgruppemailadresse3@get2net.dk> wrote in message
> news:48307592$0$90272$14726298@news.sunsite.dk...
> >
> > ku man lokke dig til at lave et eksempel ???
>
> Nu har jeg udvidet eksemplet her:
> http://w-o-p-r.dk/tips/asp/asp.xmlhttprequest.asp
> med en request baseret på w3 sockets.
> Kildeteksten burde du kunne henter her:
> http://w-o-p-r.dk/tips/asp/asp.xmlhttprequest.asp.txt
>
> Men bemærk - det er _virkelig_ Quick and Dirty.
>
> Den streng, der kommer retur her:
> Workstring = Socket.Buffer
>
> Er svaret fra serveren.
> Den skal du først splitte på vbCrLf, så du får en liste med headers.
> Hver header er angivet som.
> Navn: værdi.
>
> Her skal du så finde indholdet af "Date:" samt "Last-Modified:", og
trække
> dem fra hinanden, så har du værdien for hvor gammel den er.
>

Ja et eller andet sker der

Hvis jeg vil undersøge upload for denne:
http://www.erikisager.dk/davis/SolarRadHistory.gif

Hvor skal jeg så indsætte det ???


Jeg har forsøgt at indsætte det du sendte her

http://www.erikisager.dk/001.asp


Nå men jeg er ved at være træt nu, så jeg vender tilbage i morgen

Tak for nu


--
mvh
Erik Isager

---

Is wrote:

> Ja et eller andet sker der
>
> Hvis jeg vil undersøge upload for denne:
> http://www.erikisager.dk/davis/SolarRadHistory.gif
>
> Hvor skal jeg så indsætte det ???

Det eksempel jeg har lavet er ikke umiddelbart til at indsætte, men et
eksempel på hvordan du kan bruge w3 sockets.

Selve funktionaliteten skal kodes ind i din ASP fil, der hvor du skal bruge
det, men jeg er ikke tankelæser, eller Clark Kent, så jeg kender ikke din
kode.

Du kunne f.eks. lave en funktion, kald den f.eks. ShowDate, og så kalde den
der hvor du har dine <img> tags.


> Jeg har forsøgt at indsætte det du sendte her
>
> http://www.erikisager.dk/001.asp

Ok, så w3sockets virker på din server, men da det er en virtuel host, skal
vi op i HTTP/1.1
Jeg har opdateret eksemplet og den tilhørende .txt fil.

--
Med venlig hilsen
Stig Johansen

---

Py ha, hvor har jeg rodet

Jeg har fjernet en hel masse, måske også for meget. Jeg er ikke
begyndt at lave beregninger på tiden endnu.

Den skriver tiden GMT - kan man lave den til dansk tid ??




kig her :
http://www.erikisager.dk/001.asp

Vil du se koden, så er den her:

http://www.erikisager.dk/001.txt

(jeg ved ikke rigtig hvad der sker, men det ser ikke så indviklet ud
nu)


Så nu har jeg også noget at lave i morgen aften



--
mvh
Erik Isager

---

Is wrote:

>
> Py ha, hvor har jeg rodet
>
> Jeg har fjernet en hel masse, måske også for meget. Jeg er ikke
> begyndt at lave beregninger på tiden endnu.

Nej, du har faktisk fjernet alt for lidt.

Alt det med XMLHTTPRequest skal bare væk, det virker ikke.

Jeg renser lidt ud i dit eksempel, og vender tilbage.

> Så nu har jeg også noget at lave i morgen aften

Du skal nok påregne lidt mere end i morgen ;)

--
Med venlig hilsen
Stig Johansen

---

Stig Johansen wrote:

> Jeg renser lidt ud i dit eksempel, og vender tilbage.

Nu har jeg fjernet det meste overflødige og skilt requesten ud i en
function:
<http://w-o-p-r.dk/tips/asp/socket.request.asp>
Koden:
<http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>

(Jeg skriver videre under det andet indlæg)

--
Med venlig hilsen
Stig Johansen

---

> <http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>
>

Du skal nok fjerne "asp" i navnet - der står ik noget


--
mvh
Erik Isager

---

Is wrote:

>> <http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>
>>
>
> Du skal nok fjerne "asp" i navnet - der står ik noget

Linket virker fint herfra, men så får du bare koden her:

<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim RequestURL
RequestURL =
"http://home19.inet.tele.dk/freespace/vejret/BarometerHistory.gif"
%>
<body>
<h4> Headers from [<% = RequestURL %>] </h4>
<hr/>
From Socket = <% = GetHeaders(RequestURL) %>
</body>
</html>
<%
Function GetHeaders(URL)
Dim Socket
Dim Workstring
Set Socket = Server.CreateObject("Socket.TCP")
Workstring = mid(URL,8) ' excl http://
Socket.Host = mid(Workstring,1,instr(Workstring,"/")-1) + ":80"
Workstring = "HEAD " + mid(Workstring,instr(Workstring,"/")) + " HTTP/1.0"
+ vbCrLf + vbCrLf
Socket.TimeOut = 10000 ' millisecs

Socket.Open()
Socket.SendText(Workstring)
Socket.WaitForDisconnect()
GetHeaders = Socket.Buffer
Socket.Close()
Set Socket = Nothing
end Function
%>



--
Med venlig hilsen
Stig Johansen

---

On Tue, 20 May 2008 17:48:37 +0200, "Is"
<detteerminnewsgruppemailadresse3@get2net.dk> wrote:

>> <http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>
>>
>
>Du skal nok fjerne "asp" i navnet - der står ik noget

Brug "Vis kilde".



Mvh. Jørn

--
Jørn Andersen,
Brønshøj

---

Jørn Andersen wrote:

> On Tue, 20 May 2008 17:48:37 +0200, "Is"
> <detteerminnewsgruppemailadresse3@get2net.dk> wrote:
>
>>> <http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>
>>>
>>Du skal nok fjerne "asp" i navnet - der står ik noget
>
> Brug "Vis kilde".

socket.request.asp.txt ér en kopi af socket.request.asp netop tilføjet .txt,
så Erik kan se selve ASP kildekoden, og ikke HTML'et fra vis kilde.

--
Med venlig hilsen
Stig Johansen

---

On Thu, 22 May 2008 07:48:17 +0200, Stig Johansen <wopr.dk@gmaill.com>
wrote:

>Jørn Andersen wrote:
>
>> On Tue, 20 May 2008 17:48:37 +0200, "Is"
>> <detteerminnewsgruppemailadresse3@get2net.dk> wrote:
>>
>>>> <http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>
>>>>
>>>Du skal nok fjerne "asp" i navnet - der står ik noget
>>
>> Brug "Vis kilde".
>
>socket.request.asp.txt ér en kopi af socket.request.asp netop tilføjet .txt,
>så Erik kan se selve ASP kildekoden, og ikke HTML'et fra vis kilde.

I know - men i min IE6 får man alligevel vist noget "fortolket". Med vis
kilde får jeg den rigtige.


Mvh. Jørn

--
Jørn Andersen,
Brønshøj

---

Jørn Andersen wrote:

> I know - men i min IE6 får man alligevel vist noget "fortolket". Med vis
> kilde får jeg den rigtige.

WTF!
Det gør jeg også i min IE6 - det vidste jeg ikke 'den' gjorde.

Endnu en 'feature' i IE, uagtet det er text/plain - takker for oplysningen.

--
Med venlig hilsen
Stig Johansen

---

Is wrote:

> Den skriver tiden GMT - kan man lave den til dansk tid ??

Ja, GMT er 1 time bagud i forhold til Dansk tid.
Jeg er dog i tvivl om GMT følger sommertid, ellers er det 2 timer når det er
sommertid.

Men det kommer lidt an på hvad det er du vil.
Hvis du vil ende med noget a lá
"Uploadet for 12 minutter siden"
Er det ligegyldigt, så er det bare forskellen mellem serverens Date og
Last-Modified.

> http://www.erikisager.dk/001.txt
>
> (jeg ved ikke rigtig hvad der sker, men det ser ikke så indviklet ud
> nu)

Der sker det, at vi sender en forespørgsel til den pågældende server, og får
svar tilbage i ASP koden, nogenlunde som hvis det var en browser.

> Så nu har jeg også noget at lave i morgen aften

Den streng, der kommer fra serveren er alt eller intet.
Så det er en rigtig god ide hvis du kigger på array og split funktionen, så
du kan udskille netop de værdier du ønsker vist.

Hint - split først på vbCrLf, og derefter på ":"

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:4832006e$0$90267$14726298@news.sunsite.dk...

> Den streng, der kommer fra serveren er alt eller intet.
> Så det er en rigtig god ide hvis du kigger på array og split
funktionen, så
> du kan udskille netop de værdier du ønsker vist.



Det lyde som om jeg skal bruge det der kommer fra:
From Socket = <% = Workstring %>

Hvorfor det ???


Kan jeg ikke bruge det det allerede er skildt ud i:
Date = <% = objXMLH.getResponseHeader("Date") %>


--
mvh
Erik Isager

---

"Is" <detteerminnewsgruppemailadresse3@get2net.dk> skrev i en
meddelelse news:48332778$0$90273$14726298@news.sunsite.dk...
> Kan jeg ikke bruge det det allerede er skildt ud i:
> Date = <% = objXMLH.getResponseHeader("Date") %>



Nå, det har jeg selv fundet svaret på nu - det er tiden på server når
jeg spørger !! ikke hvornår det er uploadet


--
mvh
Erik Isager

---

Is wrote:

> Nå, det har jeg selv fundet svaret på nu - det er tiden på server når
> jeg spørger !! ikke hvornår det er uploadet

Præcis.
Det det der står efter "Last-Modified:", der er interessant i dit tilfælde.

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:483346f0$0$90271$14726298@news.sunsite.dk...
> Is wrote:
>
> > Nå, det har jeg selv fundet svaret på nu - det er tiden på server
når
> > jeg spørger !! ikke hvornår det er uploadet
>
> Præcis.
> Det det der står efter "Last-Modified:", der er interessant i dit
tilfælde.


Ja , og jeg kan vel også bruge tiden på server til beregningen - så
er det de to tider der skal trækkes fra hinanden??

Jeg har da fået splitte det op nu - så må jeg samle nogle af dem igen,
for at lave en "fuld tid" til beregning.
men det bliver ikke i aften

http://www.erikisager.dk/001.asp


--
mvh
Erik Isager

---

Is wrote:

> Ja , og jeg kan vel også bruge tiden på server til beregningen - så
> er det de to tider der skal trækkes fra hinanden??

Lige nøjagtig, så er du fri for at tænke på GMT, samt at urene på din og den
anden server måske ikke er helt ens.

> Jeg har da fået splitte det op nu - så må jeg samle nogle af dem igen,
> for at lave en "fuld tid" til beregning.
> men det bliver ikke i aften
>
> http://www.erikisager.dk/001.asp

Det ser squ da godt ud
Du kan lige få et hint, så du ikke behøver at bekynre dig om det.
Formatet af eks.
Tue, 20 May 2008 22:20:06 GMT
er en fast defineret internet standard, og ikke serverspecifik.
Dvs månedsnavne vil altid stå samme sted, bestå af 3 karakterer, samt være
de engelske navne.

Så hvis vi siger, at du trækker månedsnavnet ud i en variabel, MonthName, så
kan du bruge
Month = (instr("JanFebMarAprMayJunJulAugSepOctNovDec",MonthName)-1)/3+1
Så får du 1 - 12 i variablen Month.
Resten er bare at bruge tallene fra strengene.

--
Med venlig hilsen
Stig Johansen

---

Stig Johansen wrote:

> Is wrote:
>> http://www.erikisager.dk/001.asp
>
> Det ser squ da godt ud

Hov, ser lige at det står noget forskudt.
Det ser ud som om du starter med at splitte op på " " eller ":".
Det skal du ikke.
Selv om det ligner en lang streng i browseren, så er de enkelte headere
adskilt af CRLF, som i ASP er en vbCrLf.
Så den her:
HTTP/1.1 200 OK Date: Tue, 20 May 2008 22:20:06 GMT Server: Apache/1.3.26
(Unix) mod_layout/3.2 Last-Modified: Tue, 20 May 2008 22:18:31 GMT ETag:
"169f79-2976-48334e37" Accept-Ranges: bytes Content-Length: 10614
Connection: close Content-Type: image/gif

Er i virkeligheden
HTTP/1.1 200 OK
Date: Tue, 20 May 2008 22:20:06 GMT
Server: Apache/1.3.26 (Unix) mod_layout/3.2
Last-Modified: Tue, 20 May 2008 22:18:31 GMT
ETag: "169f79-2976-48334e37"
Accept-Ranges: bytes
Content-Length: 10614
Connection: close
Content-Type: image/gif

Så hvis du starter med at lave en split på vbCrLf, så får du et array med de
enkelte 'linier'.

Her kan du så loope igennem arrayet og lave noge ala:
if left(ditarray(counter),5) = "Date:" then
datostreng = mid(ditarray(counter),7)
if left(ditarray(counter),14) = "Last-Modified:" then
modifiedstreng = mid(ditarray(counter),16)

Du bliver nødt til at loope gennem arrayet, for rækkefølgen er ligegyldig i
HTTP sammenhæng, så du kan ikke stole på, at Date er den første osv.

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:48335557$0$90263$14726298@news.sunsite.dk...
> Stig Johansen wrote:
>
> > Is wrote:
> >> http://www.erikisager.dk/001.asp
> >
> > Det ser squ da godt ud
>
> Hov, ser lige at det står noget forskudt.
> Det ser ud som om du starter med at splitte op på " " eller ":".
> Det skal du ikke.
> Selv om det ligner en lang streng i browseren, så er de enkelte
headere
> adskilt af CRLF, som i ASP er en vbCrLf.
> Så den her:
> HTTP/1.1 200 OK Date: Tue, 20 May 2008 22:20:06 GMT Server:
Apache/1.3.26
> (Unix) mod_layout/3.2 Last-Modified: Tue, 20 May 2008 22:18:31 GMT
ETag:
> "169f79-2976-48334e37" Accept-Ranges: bytes Content-Length: 10614
> Connection: close Content-Type: image/gif


pu ha, nu blev det også sent iaften - det er ik så godt når man skal
op igen kl 5

Nå pyt.

Jeg kan ikke få den "split" du skriver til at virke - men det er
lykkedes mig at anvende min egen.

Der er en masse overflødigt, som jeg må pille fra senere, men har du
set hvad der står med stort næsten nederst???
http://www.erikisager.dk/001.asp

Samme fil ligger også som txt fil:
http://www.erikisager.dk/001.txt


--
mvh
Erik Isager

---

"Is" <detteerminnewsgruppemailadresse3@get2net.dk> wrote in message
news:48349b0d$0$90274$14726298@news.sunsite.dk...
>
> Der er en masse overflødigt, som jeg må pille fra senere, men har du
> set hvad der står med stort næsten nederst???
> http://www.erikisager.dk/001.asp

Nu begynder det at ligne noget.

> Samme fil ligger også som txt fil:
> http://www.erikisager.dk/001.txt

Men den der med at bruge absolutte tal i dit wordarray går altså ikke.
Som jeg skrev til dig, så kan du ikke regne med rækkefølgen af headere, da
de kan variere fra server til server.
Prøv at sammenligne de to sæt headere jeg sendte i mit første svar.

Her er noget kode, der splitter på linier, og finder de to datostrenge du
har brug for til dine videre beregninger.

<%
Function GetHeaders(URL)
Dim Socket
Dim Workstring
Dim WordArray
Dim Counter
Dim servTidTemp
Dim loadTidTemp

Set Socket = Server.CreateObject("Socket.TCP")
Workstring = mid(URL,8) ' excl http://
Socket.Host = mid(Workstring,1,instr(Workstring,"/")-1) + ":80"
Workstring = "HEAD " + mid(Workstring,instr(Workstring,"/")) + " HTTP/1.0"
+ vbCrLf + vbCrLf
Socket.TimeOut = 10000 ' millisecs

Socket.Open()
Socket.SendText(Workstring)
Socket.WaitForDisconnect()
WordArray = Split(Socket.Buffer,vbCrLf)
Socket.Close()
Set Socket = Nothing
servTidTemp = ""
loadTidTemp = ""
For Counter = 1 to uBound(WordArray)
Response.write CStr(counter) + " = " + WordArray(counter) + "<br/>"
if left(WordArray(counter),5) = "Date:" then
servTidTemp = mid(WordArray(counter),7)
end if
if left(WordArray(counter),14) = "Last-Modified:" then
loadTidTemp = mid(WordArray(counter),16)
end if
Next
Response.Write "Datoen fra serveren er : <u>" + servTidTemp + "</u><br/>"
Response.Write "Modified Datoen fra serveren er : <u>" + loadTidTemp +
"</u><br/>"
GetHeaders = "<br/>Done"
end Function
%>



--
Med venlig hilsen/Best regards
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmail.com> skrev i en meddelelse
news:4834a788$0$90266$14726298@news.sunsite.dk...
> "Is" <detteerminnewsgruppemailadresse3@get2net.dk> wrote in message
> news:48349b0d$0$90274$14726298@news.sunsite.dk...
> >
> > Der er en masse overflødigt, som jeg må pille fra senere, men har
du
> > set hvad der står med stort næsten nederst???
> > http://www.erikisager.dk/001.asp
>
> Nu begynder det at ligne noget.
>
> > Samme fil ligger også som txt fil:
> > http://www.erikisager.dk/001.txt
>
> Men den der med at bruge absolutte tal i dit wordarray går altså
ikke.
> Som jeg skrev til dig, så kan du ikke regne med rækkefølgen af
headere, da
> de kan variere fra server til server.



Det kan jeg jo så tjekker og tilrette når jeg indsætter nye på siden.



Den kode du skriver nedenunder - kan jeg ikke få til at virke


Kan du ikke lave en, hvor du indsætte en fil den tjekker, og når den
virker så send den, eller uploade den både som asp & txt fil.

(slutter her)

--
mvh
Erik Isager





> Prøv at sammenligne de to sæt headere jeg sendte i mit første svar.
>
> Her er noget kode, der splitter på linier, og finder de to
datostrenge du
> har brug for til dine videre beregninger.
>
> <%
> Function GetHeaders(URL)
> Dim Socket
> Dim Workstring
> Dim WordArray
> Dim Counter
> Dim servTidTemp
> Dim loadTidTemp
>
> Set Socket = Server.CreateObject("Socket.TCP")
> Workstring = mid(URL,8) ' excl http://
> Socket.Host = mid(Workstring,1,instr(Workstring,"/")-1) + ":80"
> Workstring = "HEAD " + mid(Workstring,instr(Workstring,"/")) + "
HTTP/1.0"
> + vbCrLf + vbCrLf
> Socket.TimeOut = 10000 ' millisecs
>
> Socket.Open()
> Socket.SendText(Workstring)
> Socket.WaitForDisconnect()
> WordArray = Split(Socket.Buffer,vbCrLf)
> Socket.Close()
> Set Socket = Nothing
> servTidTemp = ""
> loadTidTemp = ""
> For Counter = 1 to uBound(WordArray)
> Response.write CStr(counter) + " = " + WordArray(counter) +
"<br/>"
> if left(WordArray(counter),5) = "Date:" then
> servTidTemp = mid(WordArray(counter),7)
> end if
> if left(WordArray(counter),14) = "Last-Modified:" then
> loadTidTemp = mid(WordArray(counter),16)
> end if
> Next
> Response.Write "Datoen fra serveren er : <u>" + servTidTemp +
"</u><br/>"
> Response.Write "Modified Datoen fra serveren er : <u>" +
loadTidTemp +
> "</u><br/>"
> GetHeaders = "<br/>Done"
> end Function
> %>
>
>
>
> --
> Med venlig hilsen/Best regards
> Stig Johansen
>
>
>

---

Is wrote:

> Den kode du skriver nedenunder - kan jeg ikke få til at virke

Jeg havde sådan set uploaded og testet inden jeg skrev:
ASP:
<http://w-o-p-r.dk/tips/asp/socket.request.asp>
Her har jeg så brugt den anden
(http://fra.hobro-gym.dk/vejret/week/OutsideTempHistory.gif)
Kildekoden ligger her:
<http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>
Men som Jørn skriver, kan det være du skal bruge vis kilde.

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:4835999a$0$90271

> Kildekoden ligger her:
> <http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>

Og når jeg klilkker på ovenstående link såer det eneste jeg ser:
Headers from []

----------------------------------------------------------------------
----------
From Socket =


og intet andet




> Men som Jørn skriver, kan det være du skal bruge vis kilde.


Og det gør jeg også tit - men som jeg ser det, så mener jeg at det er
resultatet af en masse koder som jeg kan se på den måde, ikke hvad der
er skrevet af kode ??

klikker jeg på :
http://www.erikisager.dk/001.asp

så er resultatet:
From Socket = HTTP/1.1 200 OK Date: Thu, 22 May 2008 17:43:10 GMT
Server: Apache/1.3.26 (Unix) mod_layout/3.2 Last-Modified: Thu, 22 May
2008 17:38:31 GMT ETag: "169f79-28d6-4835af97" Accept-Ranges: bytes
Content-Length: 10454 Connection: close Content-Type: image/gif
Headers from
[http://home19.inet.tele.dk/freespace/vejret/BarometerHistory.gif]
From Socket = 200
OK Date:
Thu,
22
May
2008
17:43:10
GMT Server:
Apache/1.3.26
(Unix)
mod_layout/3.2 Last-Modified:
Thu,
22
May
2008
17:38:31
GMT ETag:
"169f79-28d6-4835af97" Accept-Ranges:
bytes Content-Length:
10454 Connection:
close Content-Type:
image/gif



5 22 2008 17:43:10



5 22 2008 17:38:31

22-05-2008 17:38:31
22-05-2008 17:43:10


----------------------------------------------------------------------
----------

----------------------------------------------------------------------
----------

Siden blev uploadet for 279 sekunder siden



----------------------------------------------------------------------
----------

----------------------------------------------------------------------
----------
HTTP/1.1 200 OK Date: Thu, 22 May 2008 17:43:10 GMT Server:
Apache/1.3.26 (Unix) mod_layout/3.2 Last-Modified: Thu, 22 May 2008
17:38:31 GMT ETag: "169f79-28d6-4835af97" Accept-Ranges: bytes
Content-Length: 10454 Connection: close Content-Type: image/gif





Hvis jeg på samme side bruger vis kilde:



<body>


From Socket = HTTP/1.1 200 OK
Date: Thu, 22 May 2008 17:43:10 GMT
Server: Apache/1.3.26 (Unix) mod_layout/3.2
Last-Modified: Thu, 22 May 2008 17:38:31 GMT
ETag: "169f79-28d6-4835af97"
Accept-Ranges: bytes
Content-Length: 10454
Connection: close
Content-Type: image/gif




<h4> Headers from
[http://home19.inet.tele.dk/freespace/vejret/BarometerHistory.gif]
</h4>

From Socket = 200<br>OK
Date:<br>Thu,<br>22<br>May<br>2008<br>17:43:10<br>GMT
Server:<br>Apache/1.3.26<br>(Unix)<br>mod_layout/3.2
Last-Modified:<br>Thu,<br>22<br>May<br>2008<br>17:38:31<br>GMT
ETag:<br>"169f79-28d6-4835af97"
Accept-Ranges:<br>bytes
Content-Length:<br>10454
Connection:<br>close
Content-Type:<br>image/gif

<br><br>
<br><br>

5 22 2008 17:43:10
<br><br>


<br><br>

5 22 2008 17:38:31
<br><br>

22-05-2008 17:38:31 <br> 22-05-2008 17:43:10
<br><br>
<hr><hr>
<h2>
Siden blev uploadet for 279 sekunder siden
</h2>
<br><br>
<hr><hr>
HTTP/1.1 200 OK
Date: Thu, 22 May 2008 17:43:10 GMT
Server: Apache/1.3.26 (Unix) mod_layout/3.2
Last-Modified: Thu, 22 May 2008 17:38:31 GMT
ETag: "169f79-28d6-4835af97"
Accept-Ranges: bytes
Content-Length: 10454
Connection: close
Content-Type: image/gif

</h4>

</h3>




</body>
</html>






Men hvis jeg læser samme fil, uploadet som txt fil, ser den sådan ud :


<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'Note theese are for debug purposes, copy paste where it should be
used don't remove
'Response.Write sql
'Response.End
'---------------------------------------------------------------------
------------
dim objXMLH
Dim RequestURL
Dim HasSomething

RequestURL =
"http://home19.inet.tele.dk/freespace/vejret/BarometerHistory.gif"


   Set objXMLH = Server.CreateObject("Msxml2.XMLHTTP")
   objXMLH.open "get" , RequestURL , false
   objXMLH.setRequestHeader "Accept","image/gif, image/x-xbitmap,
image/jpeg, image/pjpeg, */*"
   objXMLH.setRequestHeader "Accept-Language","en-us"
objXMLH.send null


Dim Socket
Dim Workstring
   Set Socket = Server.CreateObject("Socket.TCP")
   Workstring = mid(RequestURL,8) ' excl http://
   Socket.Host = mid(Workstring,1,instr(Workstring,"/")-1) + ":80"
   Workstring = "HEAD " + mid(Workstring,instr(Workstring,"/")) + "
HTTP/1.0" + vbCrLf + vbCrLf
   Socket.TimeOut = 10000 ' millisecs

   Socket.Open()
   Socket.SendText(Workstring)
   Socket.WaitForDisconnect()
   Workstring = Socket.Buffer
   Socket.Close()
   Set Socket = Nothing



%>

<body>


From Socket = <% = Workstring %>


<h4> Headers from [<% = RequestURL %>] </h4>

From Socket = <% = GetHeaders(RequestURL) %></h4>

      </h3>

<%
Function GetHeaders(URL)
Dim Socket
Dim Workstring

Dim WordArray
Dim servTid, servTidTemp
Dim loadTid, loadTidTemp
Dim tid

Set Socket = Server.CreateObject("Socket.TCP")



Workstring = mid(URL,8) ' excl http://
Socket.Host = mid(Workstring,1,instr(Workstring,"/")-1) + ":80"
Workstring = "HEAD " + mid(Workstring,instr(Workstring,"/")) + "
HTTP/1.0" + vbCrLf + vbCrLf



Socket.TimeOut = 10000 ' millisecs

Socket.Open()
Socket.SendText(Workstring)
Socket.WaitForDisconnect()
GetHeaders = Socket.Buffer

   WordArray = Split(GetHeaders, " ")
   response.write WordArray(1) & "<br>"
   response.write WordArray(2) & "<br>"
   response.write WordArray(3) & "<br>"
   response.write WordArray(4) & "<br>"
   response.write WordArray(5) & "<br>"
   response.write WordArray(6) & "<br>"
   response.write WordArray(7) & "<br>"
   response.write WordArray(8) & "<br>"
   response.write WordArray(9) & "<br>"
   response.write WordArray(10) & "<br>"
   response.write WordArray(11) & "<br>"
   response.write WordArray(12) & "<br>"
   response.write WordArray(13) & "<br>"
   response.write WordArray(14) & "<br>"
   response.write WordArray(15) & "<br>"
   response.write WordArray(16) & "<br>"
   response.write WordArray(17) & "<br>"
   response.write WordArray(18) & "<br>"
   response.write WordArray(19) & "<br>"
   response.write WordArray(20) & "<br>"
   response.write WordArray(21) & "<br>"
   response.write WordArray(22) & "<br><br>"


WordArray(5) =
(instr("JanFebMarAprMayJunJulAugSepOctNovDec",WordArray(5))-1)/3+1



servTidTemp = WordArray(5) & " " & WordArray(4) & " " &
WordArray(6) & " " & WordArray(7)

%>
<br><br>

<%   Response.Write servTidTemp


%>
<br><br>

<%


WordArray(14) =
(instr("JanFebMarAprMayJunJulAugSepOctNovDec",WordArray(14))-1)/3+1


loadTidTemp = WordArray(14) & " " & WordArray(13) & " " &
WordArray(15) & " " & WordArray(16)

%>
<br><br>

<%   Response.Write loadTidTemp


%>
<br><br>

<%
if IsDate(loadTidTemp) then
loadTidTemp = CDate(loadTidTemp)
   end if
   Response.Write loadTidTemp & " <br> "

if IsDate(servTidTemp) then
servTidTemp = CDate(servTidTemp)
   end if
   Response.Write servTidTemp
   tid = DateDiff ("s",loadTidTemp,servTidTemp)


%>
<br><br>
<hr><hr>
<h2>
<%

   Response.write "Siden blev uploadet for " & tid & " sekunder siden"



%>
</h2>
<br><br>
<hr><hr>
<%
    Socket.Close()
Set Socket = Nothing
end Function









%>


</body>
</html>Så jeg kan ikke helt forstå det i skriver ????Jeg anvender
IE 6-- mvh Erik Isager

---

Is wrote:

>
> "Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
> news:4835999a$0$90271
>
>> Kildekoden ligger her:
>> <http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>
>
> Og når jeg klilkker på ovenstående link såer det eneste jeg ser:
> Headers from []
>
> ----------------------------------------------------------------------
> ----------
> From Socket =
....
> Så jeg kan ikke helt forstå det i skriver ????Jeg anvender
> IE 6--

Der er præcis det, der er problemet (har jeg fundet ud af nu med Jørn's
hjælp)

Alle andre browsere end IE6 viser den aktuelle tekstfil, og ikke en slags
pseudo fortolkning.

Jeg bruger sjældent IE, og vidste ikke den opførte sig på den måde.

Hvis du kalder
<http://w-o-p-r.dk/tips/asp/socket.request.asp>
Så bliver ASP koden udført på serveren, og man får resultatet tilbage.

Hvis du kalder tekstfilen:
<http://w-o-p-r.dk/tips/asp/socket.request.asp.txt>
Burde du få vist selve kildeteksten, men IE6 forsøger tilsyneladende at
fortolke det.
Hvorfor ved jeg ikke, jeg har lavet endnu en kopi uden .asp. i navnet
<http://w-o-p-r.dk/tips/asp/socket.request.txt>
Men den bliver vist på samme måde i IE6, så der er ikke pga .asp. i navnet.

Som Jørn skriver, så skal du højreklikke og vælge vis kilde, eller show
source hvis den er engelsk, for at se det, der egentlig skulle være vist.

Men her er den fulde kildetekst, som du kan afprøve mod de forskellige
giffer/servere.


Men vær opmærksom på, at der i i nyhedsgrupperne bliver lavet ekstra
linieskift på grund af begrænsninger i linielængde, så du lige rette op på
et par linier.


<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim RequestURL
RequestURL = "http://fra.hobro-gym.dk/vejret/week/OutsideTempHistory.gif"
%>
<body>
<h4> Headers from [<% = RequestURL %>] </h4>
<hr/>
From Socket = <br/><% = GetHeaders(RequestURL) %>
</body>
</html>
<%
Function GetHeaders(URL)
Dim Socket
Dim Workstring
Dim WordArray
Dim Counter
Dim servTidTemp
Dim loadTidTemp

Set Socket = Server.CreateObject("Socket.TCP")
Workstring = mid(URL,8) ' excl http://
Socket.Host = mid(Workstring,1,instr(Workstring,"/")-1) + ":80"
Workstring = "HEAD " + mid(Workstring,instr(Workstring,"/")) + " HTTP/1.0"
+ vbCrLf + vbCrLf
Socket.TimeOut = 10000 ' millisecs

Socket.Open()
Socket.SendText(Workstring)
Socket.WaitForDisconnect()
WordArray = Split(Socket.Buffer,vbCrLf)
Socket.Close()
Set Socket = Nothing
servTidTemp = ""
loadTidTemp = ""
For Counter = 1 to uBound(WordArray)
Response.write CStr(counter) + " = " + WordArray(counter) + "<br/>"
if left(WordArray(counter),5) = "Date:" then
servTidTemp = mid(WordArray(counter),7)
end if
if left(WordArray(counter),14) = "Last-Modified:" then
loadTidTemp = mid(WordArray(counter),16)
end if
Next
Response.Write "Datoen fra serveren er : <u>" + servTidTemp + "</u><br/>"
Response.Write "Modified Datoen fra serveren er : <u>" + loadTidTemp +
"</u><br/>"
GetHeaders = "<br/>Done"
end Function
%>

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:4835c852$0$90264$14726298@news.sunsite.dk...


> Hvorfor ved jeg ikke, jeg har lavet endnu en kopi uden .asp. i
navnet
> <http://w-o-p-r.dk/tips/asp/socket.request.txt>
> Men den bliver vist på samme måde i IE6, så der er ikke pga .asp. i
navnet.

den er åbenbart ikke bedre samme problem.

Men jeg kan godt se, hvis jeg bruger FireFox, så ser det ud som du har
beskrevet. Det havde jeg dog ikke tænkt på at prøve.




>
> Som Jørn skriver, så skal du højreklikke og vælge vis kilde, eller
show
> source hvis den er engelsk, for at se det, der egentlig skulle være
vist.
>
> Men her er den fulde kildetekst, som du kan afprøve mod de
forskellige
> giffer/servere.
>
>
> Men vær opmærksom på, at der i i nyhedsgrupperne bliver lavet ekstra
> linieskift på grund af begrænsninger i linielængde, så du lige rette
op på
> et par linier.
>
>
> <%@ LANGUAGE = VBScript %>
> <% Option Explicit %>
> <%
> Dim RequestURL
> RequestURL =
"http://fra.hobro-gym.dk/vejret/week/OutsideTempHistory.gif"
> %>
> <body>
> <h4> Headers from [<% = RequestURL %>] </h4>
> <hr/>
> From Socket = <br/><% = GetHeaders(RequestURL) %>
> </body>
> </html>
> <%
> Function GetHeaders(URL)
> Dim Socket
> Dim Workstring
> Dim WordArray
> Dim Counter
> Dim servTidTemp
> Dim loadTidTemp
>
> Set Socket = Server.CreateObject("Socket.TCP")
> Workstring = mid(URL,8) ' excl http://
> Socket.Host = mid(Workstring,1,instr(Workstring,"/")-1) + ":80"
> Workstring = "HEAD " + mid(Workstring,instr(Workstring,"/")) + "
HTTP/1.0"
> + vbCrLf + vbCrLf
> Socket.TimeOut = 10000 ' millisecs
>
> Socket.Open()
> Socket.SendText(Workstring)
> Socket.WaitForDisconnect()
> WordArray = Split(Socket.Buffer,vbCrLf)
> Socket.Close()
> Set Socket = Nothing
> servTidTemp = ""
> loadTidTemp = ""
> For Counter = 1 to uBound(WordArray)
> Response.write CStr(counter) + " = " + WordArray(counter) +
"<br/>"
> if left(WordArray(counter),5) = "Date:" then
> servTidTemp = mid(WordArray(counter),7)
> end if
> if left(WordArray(counter),14) = "Last-Modified:" then
> loadTidTemp = mid(WordArray(counter),16)
> end if
> Next
> Response.Write "Datoen fra serveren er : <u>" + servTidTemp +
"</u><br/>"
> Response.Write "Modified Datoen fra serveren er : <u>" +
loadTidTemp +
> "</u><br/>"
> GetHeaders = "<br/>Done"
> end Function
> %>
>
> --
> Med venlig hilsen
> Stig Johansen

----

men ovenståen de kode er det lykkedes mig at få til at virke

mon det er de linjeskift du omtalte der har drillet.

http://www.erikisager.dk/002.asp


--
mvh
Erik Isager

---

Is wrote:

> den er åbenbart ikke bedre samme problem.

Det er muligvis en eller anden serveropsætning, for din .txt fil kan jeg
godt se som tekst i IE6.

> Men jeg kan godt se, hvis jeg bruger FireFox, så ser det ud som du har
> beskrevet. Det havde jeg dog ikke tænkt på at prøve.

He - og jeg havde ikke tænkt på at kigge med IE6, men så ved man det til en
anden gang.

> men ovenståen de kode er det lykkedes mig at få til at virke
> mon det er de linjeskift du omtalte der har drillet.

Hvis du har klippet direkte over fra mine indlæg, uden at korrigere for
linieskift, så vil det garanteret fejle.

> http://www.erikisager.dk/002.asp

Hov, den ligner noget jeg har set før

Hvis du så afprøver med de forskellige giffer/links, så kan du se de
forskelle i rækkefølge af headers jeg snakkede om.

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:4835f20a$0$90262$14726298@news.sunsite.dk...


>
> Hvis du så afprøver med de forskellige giffer/links, så kan du se de
> forskelle i rækkefølge af headers jeg snakkede om.
>


Og så nåede jeg til et resultat

http://www.erikisager.dk/004.asp


--
mvh
Erik Isager

---

Is wrote:

> Og så nåede jeg til et resultat
>
> http://www.erikisager.dk/004.asp

Tillykke

Men fluekn**pperi skal der også være.
Du skriver:
"Data er 1 timer gamle"
Det hedder
"Data er 1 time gamle"

Og nej, det er _ikke_ seriøst ment, jeg har selv siddet med omsætning fra
tal til læsbar tekst, bla til checks, og fedtet med ental og flertal.

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:483813f7$0$90275$14726298@news.sunsite.dk...
> Is wrote:
>
> > Og så nåede jeg til et resultat
> >
> > http://www.erikisager.dk/004.asp
>
> Tillykke
>
> Men fluekn**pperi skal der også være.
> Du skriver:
> "Data er 1 timer gamle"
> Det hedder
> "Data er 1 time gamle"

Og hvis det er det enense du kritisere, så er jeg lidt stolt nu

Noget tyder på at vi er ved at kunne lukke denne tråd ?

Så vil jeg hemed sige tusind TAK for hjælpen.

vil du holde øje med slut resultatet, så kommer det til at ligge her:
http://www.erikisager.dk/vejr_dk.asp
men der går lige et par dage inden jeg får tid til det.
--
mvh
Erik Isager

---

Is wrote:

> Og hvis det er det enense du kritisere, så er jeg lidt stolt nu

Det har du også grund til at være

> Noget tyder på at vi er ved at kunne lukke denne tråd ?

Ja.

> vil du holde øje med slut resultatet, så kommer det til at ligge her:
> http://www.erikisager.dk/vejr_dk.asp
> men der går lige et par dage inden jeg får tid til det.

Venter spændt.

--
Med venlig hilsen
Stig Johansen

---

On Sat, 24 May 2008 15:10:40 +0200, Stig Johansen <wopr.dk@gmaill.com>
wrote:

>Men fluekn**pperi skal der også være.
>Du skriver:
>"Data er 1 timer gamle"
>Det hedder
>"Data er 1 time gamle"
>
>Og nej, det er _ikke_ seriøst ment, jeg har selv siddet med omsætning fra
>tal til læsbar tekst, bla til checks, og fedtet med ental og flertal.

<fluekn_p>
<%
Dim strFlertal
If intTimer = 1 Then
strFlertal = ""
Else
strFlertal = "r"
End If
Response.Write "Data er " & intTimer & " time" & strFlertal & " gamle"
%>
</fluekn_p>

Det kan være meget nyttigt til fx at vise søgeresultater:
"Der blev fundet 1 personer" - ser altså lidt fjolet ud


Mvh. Jørn

--
Jørn Andersen,
Brønshøj

---

"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:2imh349m4pfl2qhccv0a770iqfdf2d0e8p@4ax.com...
> On Sat, 24 May 2008 15:10:40 +0200, Stig Johansen
<wopr.dk@gmaill.com>
> wrote:
>
> >Men fluekn**pperi skal der også være.
> >Du skriver:
> >"Data er 1 timer gamle"
> >Det hedder
> >"Data er 1 time gamle"
> >
> >Og nej, det er _ikke_ seriøst ment, jeg har selv siddet med
omsætning fra
> >tal til læsbar tekst, bla til checks, og fedtet med ental og
flertal.
>
> <fluekn_p>
> <%
> Dim strFlertal
> If intTimer = 1 Then
> strFlertal = ""
> Else
> strFlertal = "r"
> End If
> Response.Write "Data er " & intTimer & " time" & strFlertal & "
gamle"
> %>
> </fluekn_p>
>
> Det kan være meget nyttigt til fx at vise søgeresultater:
> "Der blev fundet 1 personer" - ser altså lidt fjolet ud
>

Og jo, det er "småting" med det er jo sådan noget man sidder og pusler
med til sidst.

Jeg har da også rettet på det :

if tidh > 48 then
tid = "Data er "& tidd &"dage gamle"
else
if tidh > 24 then
tid = "Data er "& tidd &"dag gamle"
else
if tidh > 1 then
tid = "Data er "&tidh&" timer gamle"
else
if tidh > 0 then
tid = "Data er "&tidh&" time gamle"
else
if tidn > 1 then
tid = "Data er "&tidn&" minuter gamle "
else
tid = "Data er friske"
end if
end if
end if
end if
end if
-------

er dog ikke færdig med at tjekke resultatet.


--
mvh
Erik Isager

---

Så er jeg tilbage

jeg er ved at sammensætte siden - pt er den her:

http://www.erikisager.dk/vejr_test2.asp

og jeg tjekke tid på:

http://home19.inet.tele.dk/freespace/vejret/OutsideTemp.gif

http://www.davisnet.dk/vejret_paa_masnedoe/OutsideTemp.gif

http://fra.hobro-gym.dk/vejret/day/OutsideTemp.gif

og det virker fint

men hvis jeg tjekker på :

http://www.hojervejr.dk/profile3/OutsideTempHistory.gif

går den i fejl !! se her :

http://www.erikisager.dk/vejr_test3.asp

Hvad går galt ???


--
mvh
Erik Isager

---

Is wrote:

> men hvis jeg tjekker på :
> http://www.hojervejr.dk/profile3/OutsideTempHistory.gif
>
> går den i fejl !! se her :
>
> http://www.erikisager.dk/vejr_test3.asp
>
> Hvad går galt ???


Der er vist gået ged i nogle (mine) versioner undervejs.
Nu har du ikke vist noget kode, men jeg gætter på du bruger HTTP/1.0
versionen.

Jeg har nu rettet min lille demo til HTTP/1.1:
http://w-o-p-r.dk/tips/asp/socket.request.asp
kildekoden (ses bedst i FF)
http://w-o-p-r.dk/tips/asp/socket.request.txt

Det er denne sekvens, der er rettet (bemærk linieskift):
----------------------------
Set Socket = Server.CreateObject("Socket.TCP")
Workstring = mid(RequestURL,8) ' excl http://
Socket.Host = mid(Workstring,1,instr(Workstring,"/")-1)
Workstring = "HEAD " + mid(Workstring,instr(Workstring,"/")) + " HTTP/1.1"
+ vbCrLf + _
"Host: "+Socket.Host + vbCrLf + _
"Connection: Close" + vbCrLf + vbCrLf
Socket.Host = Socket.Host + ":80"
Socket.TimeOut = 10000 ' millisecs
----------------------------
Jeg har samtidig taget udskriften af statuslinien med (0'te element)
For Counter = 0 to uBound(WordArray)

Der er muligvis en god ide at tjekke om de første 3 tegn i startuslinien er
200.

Statuskoden består altid af 3 cifre, og kommer altid først.


--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:483b3126$0$90276$14726298@news.sunsite.dk...
> Is wrote:
>
> > men hvis jeg tjekker på :
> > http://www.hojervejr.dk/profile3/OutsideTempHistory.gif
> >
> > går den i fejl !! se her :
> >
> > http://www.erikisager.dk/vejr_test3.asp
> >
> > Hvad går galt ???
>
>
> Der er vist gået ged i nogle (mine) versioner undervejs.
> Nu har du ikke vist noget kode, men jeg gætter på du bruger HTTP/1.0
> versionen.
>
> Jeg har nu rettet min lille demo til HTTP/1.1:
> http://w-o-p-r.dk/tips/asp/socket.request.asp
> kildekoden (ses bedst i FF)
> http://w-o-p-r.dk/tips/asp/socket.request.txt


Ja - det gør en forskel

Med den tidligere kode her:
http://www.erikisager.dk/005.asp

med den ændrede kode:
http://www.erikisager.dk/010.asp

så jeg pusler lidt videre


--
mvh
Erik Isager

---

> så jeg pusler lidt videre
>


Og det er derved lykkedes mig at få bixet denne sammen:
http://www.erikisager.dk/vejr_dktest001.asp


den svare til mit ønske, da jeg startede dette sp.

Der er måske stadig nogle fejl i, men jeg synes den virker, og ser ens
ud i IE og FireFox

Tusind tak for hjlæpen.


--
mvh
Erik Isager

---

Is wrote:

> Der er måske stadig nogle fejl i, men jeg synes den virker, og ser ens
> ud i IE og FireFox

Det gør den også i min gamle Konqueror.
Man (mig) kan måske synes den mørke baggrund er sådan lige på kanten mht.
kontrast ved de transparante giffer.
For 20-30 år siden kunne jeg se forskel på han og hun myg på 10 meters
afstand, men nu skal man både have briller og store skærme ;)

--
Med venlig hilsen
Stig Johansen

---

Stig Johansen wrote:
> Is wrote:
>
>> Der er måske stadig nogle fejl i, men jeg synes den virker, og ser
>> ens ud i IE og FireFox
>
> Det gør den også i min gamle Konqueror.
> Man (mig) kan måske synes den mørke baggrund er sådan lige på kanten
> mht. kontrast ved de transparante giffer.
> For 20-30 år siden kunne jeg se forskel på han og hun myg på 10 meters
> afstand, men nu skal man både have briller og store skærme ;)

Lidt nyt udstyr måske ?
http://www.rollator.dk/hafnia148.htm

:)

---

On Sat, 31 May 2008 07:34:21 +0200, "Michael Weber"
<michael@BLABLAmichaelweber.dk> wrote:

>Lidt nyt udstyr måske ?
>http://www.rollator.dk/hafnia148.htm

Hjælper den også på synet?

>:)



Mvh. Jørn

--
Jørn Andersen,
Brønshøj

---

Jørn Andersen wrote:
> On Sat, 31 May 2008 07:34:21 +0200, "Michael Weber"
> <michael@BLABLAmichaelweber.dk> wrote:
>
>> Lidt nyt udstyr måske ?
>> http://www.rollator.dk/hafnia148.htm
>
> Hjælper den også på synet?


Måske, hvis der er langt til printeren.
:)

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:4840d52f$0$90267$14726298@news.sunsite.dk...
> Is wrote:
>
> > Der er måske stadig nogle fejl i, men jeg synes den virker, og ser
ens
> > ud i IE og FireFox
>
> Det gør den også i min gamle Konqueror.
> Man (mig) kan måske synes den mørke baggrund er sådan lige på kanten
mht.
> kontrast ved de transparante giffer.


Måske din skærm er lidt mørk ?

et lille sidespring - men jeg har for noget tid siden købt en "dyrt"
kamera, men var ikke rigtig tilfreds med billederne, især billeder
taget med blitz i større rum, de var alt for mørke.

Men efter en der har mere forstand på billeder - sagde at de var
korrekt belyst, mente at min skærm skulle kallibreres. og det hjalp.
selv billeder jeg næsten havde opgivet, var egentlig ok.



--
mvh
Erik Isager

---

Is wrote:

>
> "Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
> news:4840d52f$0$90267$14726298@news.sunsite.dk...
>> Man (mig) kan måske synes den mørke baggrund er sådan lige på kanten
> mht.
>> kontrast ved de transparante giffer.
>
>
> Måske din skærm er lidt mørk ?

Muligvis.
Det er en, efterhånden 10 år gammel, 19" EIZO.

Når jeg kigger rundt omkring på nettet, i nattens mulm og mørke, er de hvide
baggrunde rimeligt lysintensive, så jeg _har_ skruet ned for intensteten.

En anden ting kan være, at en analog CRT skærm ikke _viser_ de samme farver
som en TFT/LCD/LED/OLED skærm.

Jeg var ikke så meget for at skulle lemme ca 10K + moms for EIZO, men da jeg
så de forskellige skærme ved siden af hinanden stod det soleklart hvorfor
EIZO styrer(de).

--
Med venlig hilsen
Stig Johansen

---

Michael Weber wrote:

> Stig Johansen wrote:
>> For 20-30 år siden kunne jeg se forskel på han og hun myg på 10 meters
>> afstand, men nu skal man både have briller og store skærme ;)
>
> Lidt nyt udstyr måske ?
> http://www.rollator.dk/hafnia148.htm

He - den bad jeg næsten selv om.

Det er ikke værre end at det er skærm/læsebriller, men hellere overdrive end
at være kedelig

Men hvis du kan finde en model med trædeplade, 5 hestes Hondamotor samt
indbygget fadølsanlæg, så kan man fræse rundt på sådan en og lege Ben Hur.

--
Med venlig hilsen
Stig Johansen

---

hej

Jeg synes ellers det virker fint, mine beregninger ser ud til at
passe, MEN !!

i dag kl 05:00, ca 5½ time siden sidste upload, ser jeg til min
overraskelse at den skriver data er 31 timer gammel

tidsberegningen er her:

tids = DateDiff ("s",loadTidTemp2,servTidTemp2)
tidn = DateDiff ("n",loadTidTemp2,servTidTemp2)
tidh = DateDiff ("h",loadTidTemp2,servTidTemp2)
tidd = DateDiff ("d",loadTidTemp2,servTidTemp2)



if tidh > 48 then
tid = "Data er "& tidd &"dage gamle"
else
if tidh > 24 then
tid = "Data er "& tidd &"dag gamle"
else
if tidn > 119 then
tid = "Data er "&tidh&" timer gamle"
else
if tidn >60 then
tid = "Data er "&tidh&" time gamle"
else
if tidn > 1 then
tid = "Data er "&tidn&" minutter gamle "
else
if tidn = 1 then
tid = "Data er "&tidn&" minut gamle "
else

tid = "Data er friske"

end if
end if
end if
end if
end if
end if

------

Hvordan kan det lade sig gøre

siden er her:
http://www.erikisager.dk/vejr_dktest001.asp


--
mvh
Erik Isager

---

Is wrote:

> i dag kl 05:00, ca 5½ time siden sidste upload, ser jeg til min
> overraskelse at den skriver data er 31 timer gammel

P.T. står der ikke nogle data, der er mindre end 10 minutter gamle.

> Hvordan kan det lade sig gøre

Kan der være tale om, at nogle af de sider/vejrstationer, du bruger, ikke
uploader i weekenden?

--
Med venlig hilsen
Stig Johansen

---

"Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
news:48445087$0$90274$14726298@news.sunsite.dk...
> Is wrote:
>
> > i dag kl 05:00, ca 5½ time siden sidste upload, ser jeg til min
> > overraskelse at den skriver data er 31 timer gammel
>
> P.T. står der ikke nogle data, der er mindre end 10 minutter gamle.
>
> > Hvordan kan det lade sig gøre
>
> Kan der være tale om, at nogle af de sider/vejrstationer, du bruger,
ikke
> uploader i weekenden?

det var mine egne data, og jeg lukkede ned ca 23:30, og kiggede kl
5:00



--
mvh
Erik Isager

---

Is wrote:

>
> "Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
> news:48445087$0$90274$14726298@news.sunsite.dk...
>> Is wrote:
>>
>> > i dag kl 05:00, ca 5½ time siden sidste upload, ser jeg til min
>> > overraskelse at den skriver data er 31 timer gammel
>>
>> P.T. står der ikke nogle data, der er mindre end 10 minutter gamle.
>>
>> > Hvordan kan det lade sig gøre
>>
>> Kan der være tale om, at nogle af de sider/vejrstationer, du bruger,
> ikke
>> uploader i weekenden?
>
> det var mine egne data, og jeg lukkede ned ca 23:30, og kiggede kl
> 5:00

Ok, så misforstod jeg spørgsmålet.
Men ud fra den kodestump du sendte, burder det ikke kunne ske, medmindre den
her:
         if tidh > 24 then
er kommet til senere.

Men 31 timer kunne tyde på, at der er lidt bøvl med datoberegningerne.
Hvis der er en smutter på 24 timer burde det dog være ca. 30 timer.

--
Med venlig hilsen
Stig Johansen

---

> Ok, så misforstod jeg spørgsmålet.
> Men ud fra den kodestump du sendte, burder det ikke kunne ske,
medmindre den
> her:
> if tidh > 24 then
> er kommet til senere.
>
> Men 31 timer kunne tyde på, at der er lidt bøvl med
datoberegningerne.
> Hvis der er en smutter på 24 timer burde det dog være ca. 30 timer.

Jeg roder med det nu - jeg har ikke uploadet filer siden i går kl
23:41

Og den har hele dagen skrevet 29 dage, og gør det stadig:

http://www.erikisager.dk/vejr_dktest001.asp

det må være noget med min sammensætning af dato.


--
mvh
Erik Isager

---

"Is" <detteerminnewsgruppemailadresse3@get2net.dk> skrev i en
meddelelse news:4845a291$0$90263$14726298@news.sunsite.dk...
> > Ok, så misforstod jeg spørgsmålet.
> > Men ud fra den kodestump du sendte, burder det ikke kunne ske,
> medmindre den
> > her:
> > if tidh > 24 then
> > er kommet til senere.
> >
> > Men 31 timer kunne tyde på, at der er lidt bøvl med
> datoberegningerne.
> > Hvis der er en smutter på 24 timer burde det dog være ca. 30
timer.
>
> Jeg roder med det nu - jeg har ikke uploadet filer siden i går kl
> 23:41
>
> Og den har hele dagen skrevet 29 dage, og gør det stadig:
>
> http://www.erikisager.dk/vejr_dktest001.asp
>
> det må være noget med min sammensætning af dato.
>
>
> --
> mvh
> Erik Isager

Hvor mon jeg har fra at der skal byttes om på måneds placering ??? så
der står mm.dd.åååå tt:mm:ss ved tidsberegning ???? der virker hvis
der står dd.mm.åååå tt:mm:ss




--
mvh
Erik Isager

---

Michael Weber wrote in dk.edb.internet.webdesign.serverside.asp:
> Stig Johansen wrote:
> > Is wrote:
> >
> >> Der er måske stadig nogle fejl i, men jeg synes den virker, og ser
> >> ens ud i IE og FireFox
> >
> > Det gør den også i min gamle Konqueror.
> > Man (mig) kan måske synes den mørke baggrund er sådan lige på kanten
> > mht. kontrast ved de transparante giffer.
> > For 20-30 år siden kunne jeg se forskel på han og hun myg på 10 meters
> > afstand, men nu skal man både have briller og store skærme ;)
>
> Lidt nyt udstyr måske ?
> http://www.rollator.dk/hafnia148.htm
>
> :)
>
>

:) de her er nemmere at geile :)
http://butik.seniorland.dk/group.asp?group=23

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Is wrote:

>
> "Stig Johansen" <wopr.dk@gmaill.com> skrev i en meddelelse
> news:4832006e$0$90267$14726298@news.sunsite.dk...
>
>> Den streng, der kommer fra serveren er alt eller intet.
>> Så det er en rigtig god ide hvis du kigger på array og split
> funktionen, så
>> du kan udskille netop de værdier du ønsker vist.
>
> Det lyde som om jeg skal bruge det der kommer fra:
> From Socket = <% = Workstring %>
>
> Hvorfor det ???

Fordi resultatet fra serveren ligger i variablen Workstring.

> Kan jeg ikke bruge det det allerede er skildt ud i:
> Date = <% = objXMLH.getResponseHeader("Date") %>

Der er tale om 2 forskellige opslag til serveren.
Det ene er via XMLHTTPRequest, som tilsyneladende ikke kan bruges til dit
formål, og så et andet opslag via w3 sockets.

--
Med venlig hilsen
Stig Johansen