Saturday, December 31, 2011

Monday, December 26, 2011

Sonne, Eis, Wasser ...

Podersdorf / Neusiedler See by R G (rg443)) on 500px.com
Podersdorf / Neusiedler See by R G

vbscript rfc822 date

Function RFC822(d)
    ' Date: Mon, 26 Dec 2011 12:58:33 GMT
    Dim a, b
    a = Split("Mon,Tue,Wed,Thu,Fri,Sat,Sun", ",")
    b = Split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", ",")
    Dim tmp
    tmp = a(Weekday(d, 2) - 1) & ", " & _
        Right("0" & Day(d), 2) & " " & _
        b(Month(d) - 1) & " " & _
        Year(d) & " " & _
        Right("0" & Hour(d), 2) & ":" & _
        Right("0" & Minute(d), 2) & ":" & _
        Right("0" & Second(d), 2) & " GMT"
    RFC822 = tmp
End Function
 
' usage: Response.AddHeader "Last-Modified", RFC822(dateadd("h",-1,now))


Sunday, December 25, 2011

Sub fhpx()

Sub fhpx()
    Dim r As New ServerXMLHTTP60
    Dim i, re As New RegExp, m As Match
    re.Global = True
    re.Pattern = ".*?" 'Grzegorz  Cywicki
    re.MultiLine = True
    re.Pattern = "
[\s\S]*?
" re.Pattern = "\s*?
\s*?(.*?)" For i = 1 To 50 r.Open "GET", "http://500px.com/rg443/following/list?page=" & i r.Open "GET", "http://500px.com/rg443/followers?page=" & i r.send If re.Test(r.responseText) = False Then Exit For For Each m In re.Execute(r.responseText) 'Debug.Print m.Value Debug.Print m.SubMatches(1), m.SubMatches(2), m.SubMatches(0) Next Next End Sub

Wednesday, December 21, 2011

A Networker's Log File: Part 2: Network Redundancy for Windows Server: Dyn...

A Networker's Log File: Part 2: Network Redundancy for Windows Server: Dyn...: Besides NIC teaming in earlier part 1, another way to achieve network redundancy for Windows Server is to employ dynamic IP routing. Window...

A Networker's Log File: Part 3: Configuring RIP routing on Windows Server ...

A Networker's Log File: Part 3: Configuring RIP routing on Windows Server ...: This is following up on part 2 that described the concept of network high availability for single non-clustered Windows server using dynam...

A Networker's Log File: Part 1: Network Redundancy for Windows Servers: NI...

A Networker's Log File: Part 1: Network Redundancy for Windows Servers: NI...: To provide network redundancy to a single Windows server, you would first need to have 2 or more NICs. To protect against a single switch fa...