West Michigan Privately Owned Repeater Network - Obscene Technology For The Average Ham

<%@ Language=VBScript %> West Michigan Privately Owned Repeater Network - Obscene Technology For The Average Ham

INTERNET

WMPORN

Home
Blog
Photos
Dayton 2008
Dayton 2009
Dayton 2010
Dayton 2011
Dayton 2012
Dayton 2013
Dayton 2014
Dayton 2015
Meetings
Contacts
DStar Quickstart
PORN Apparel
DStar Routing
G2 Registration
G2 Login
G2 Linking

IRLP NODE STATUS

Ref 9610 Info

K8SN

N8WKM

N8JPR

WX8GRR

<% Dim StrLogo Dim GotOne GotOne = False If Request.QueryString("page") <> "" then StrLogo = Ucase(Request.QueryString("page")) If StrLogo = "N8WKM" then GotOne = True %>

<% End If If StrLogo = "N8JPR" then GotOne = True %>

<% End If If StrLogo = "K8SN" then GotOne = True %>

<% End If 'If StrLogo = "KB8ZGL" then ' GotOne = True %> <% 'End If If StrLogo = "WD8EMD" then GotOne = True %>

<% End If If StrLogo = "AB8MS" then GotOne = True %>

<% End If If StrLogo = "N8KQQ" then GotOne = True %>

<% End If If StrLogo = "N8EOD" then GotOne = True %>

<% End If If GotOne = False then %>

<%End if else %>

<%End if %>

WD8EMD

AB8MS

N8KQQ

N8EOD

<% Dim StrQuery If Request.QueryString("page") <> "" then StrQuery = Ucase(Request.QueryString("page")) If StrQuery = "N8WKM" then %> <% End If If StrQuery = "N8JPR" then %> <% End If If StrQuery = "K8SN" then %> <% End If If StrQuery = "WD8EMD" then %> <% End If If StrQuery = "AB8MS" then %> <% End If If StrQuery = "N8KQQ" then %> <% End If If StrQuery = "N8EOD" then %> <% End If If StrQuery = "ABOUT" then %> <% End If If StrQuery = "THANKS" then %> <% End If If StrQuery = "SITE" then %> <% End If If StrQuery = "WISHLIST" then %> <% End If If StrQuery = "PROGRAMMING" then %> <% End If If StrQuery = "MEETING" then %> <% End If If StrQuery = "BLOG" then %> <% End If If StrQuery = "PHOTOS" then %> <% End If If StrQuery = "CONTACT" then %> <% End If If StrQuery = "QUICKSTART" then %> <% End If If StrQuery = "APPAREL" then %> <% End If If StrQuery = "DAYTON_2008" then %> <% End If If StrQuery = "DAYTON_2009" then %> <% End If If StrQuery = "DAYTON_2010" then %> <% End If If StrQuery = "DAYTON_2011" then %> <% End If If StrQuery = "DAYTON_2012" then %> <% End If If StrQuery = "DAYTON_2013" then %> <% End If If StrQuery = "DAYTON_2014" then %> <% End If If StrQuery = "DAYTON_2015" then %> <% End If If StrQuery = "DAYTON_TRIP" then %> <% End If If StrQuery = "FIRES" then %> <% End If If StrQuery = "KB8ZGL" then %> <% End If If StrQuery = "DREFLECTOR" then dim objXMLHTTP dim rstring dim ostring URL = "http://xrf004.xreflector.net/XRF004_status.htm" 'Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.Open "GET", URL, false objXMLHTTP.Send 'Response.Write objXMLHTTP.responseText rstring = objXMLHTTP.responseText dim xa dim xb xa = inStr(rstring, "") ostring = mid(rstring, xa, (xb - xa)) Response.write ostring & " " Set objXMLHTTP = Nothing End If If StrQuery = "REFLECTOR" then Response.Write "" End If 'Response.Write "+" & StrQuery & "+" else %> <%End if %>

" Response.write "

WMPORN

• Who are we?
• A Thank You
• Donation Information

Our Friends

• T&W Electronics
• K8SN.ORG
• WMTG
• WMPNN
• Broadcast Towers
• CMEN

Ham Radio Links

• FCC
• Callsign Search
• ARRL
• MiARC
• Batwing Labs
• Repeater Builder
• ComDac
• SAR Tech Inc.
• Power Werx
• Action Electronics
• Ham Radio Outlet
• AES
• R&L Electronics
• QRZ
• BYONICS

RADAR Image

NWS GRR FORECAST

D-Star is a registered trademark of Icom America. The views of WMPORN in
no way reflect the views of Icom America or it's affiliates.

WMPORN is a trademark of the Western Michigan Privately Owned Repeater Group.
All Rights Reversed © 2008