National Rails Project RailsProject.com

<% userip = Request.ServerVariables("REMOTE_ADDR") if userip = "72.145.74.240" then response.Redirect("indexmodelrx.asp") else end if %>

Railroads across America photo pages. Current and ghost railroads, text,GPS,maps. Great for railfans and modelers.

Sponsored by:

Sponsors have no information about the project, sorry

Real Life Quality, unlimited length, 100s of scenes

National Rails Project

Need photos of Railroads current and abandoned

National Rails Project for Railfans Railroad Prototype for Modelers

View Railroads in the USA and Canada

10 National Rails Project

business cards for every

100 photos used

<% Articles = "select * from Strings where Name ='" & "Qty" & "'" Set QtyRs = Server.CreateObject("ADODB.Recordset") QtyRs.Open Articles, Webconn, adLockReadOnly,adcmdText ArticleStr = QtyRs("dbSTRING") 'ArticleStr = "AB00AK00AL00AR00AZ00BC00CA00CN00CO00CT00DE00FL00GA00HI00IA00ID00IL00IN00IT00KS00KY00LA00MA00MB00MD00ME00MI00MN00MO00MS00MT00NB00NC00ND00NE00NF00NH00NJ00NM00NV00NY00OH00OK00ON00OR00PA00PE00QC00RI00SC00SD00SK00TN00TX00UT00VA00VT00WA00WI00WV00WY00" ' ------ AB ABZQty = mid(ArticleStr,3,2) if ABZQty = 00 then ABXQty = "" ABXcolor = "81B9FE" else ABXQty = "(" & Int(ABZQty) & ")" ABXcolor = "0000FF" end if ' ----- AK AKZQty = mid(ArticleStr,7,2) if AKZQty = 00 then AKXQty = "" AKXcolor = "81B9FE" else AKXQty = "(" & Int(AKZQty) & ")" AKXcolor = "0000FF" end if ' ----- AL ALZQty = mid(ArticleStr,11,2) if ALZQty = 00 then ALXQty = "" ALXcolor = "81B9FE" else ALXQty = "(" & Int(ALZQty) & ")" ALXcolor = "0000FF" end if ' ----- AR ARZQty = mid(ArticleStr,15,2) if ARZQty = 00 then ARXQty = "" ARXcolor = "81B9FE" else ARXQty = "(" & Int(ARZQty) & ")" ARXcolor = "0000FF" end if ' ----- AZ AZZQty = mid(ArticleStr,19,2) if AZZQty = 00 then AZXQty = "" AZXcolor = "81B9FE" else AZXQty = "(" & Int(AZZQty) & ")" AZXcolor = "0000FF" end if ' ----- BC BCZQty = mid(ArticleStr,23,2) if BCZQty = 00 then BCXQty = "" BCXcolor = "81B9FE" else BCXQty = "(" & Int(BCZQty) & ")" BCXcolor = "0000FF" end if ' ----- CA CAZQty = mid(ArticleStr,27,2) if CAZQty = 00 then CAXQty = "" CAXcolor = "81B9FE" else CAXQty = "(" & Int(CAZQty) & ")" CAXcolor = "0000FF" end if ' ----- CN CNZQty = mid(ArticleStr,31,2) if CNZQty = 00 then CNXQty = "" CNXcolor = "81B9FE" else CNXQty = "(" & Int(CNZQty) & ")" CNXcolor = "0000FF" end if ' ----- CO COZQty = mid(ArticleStr,35,2) if COZQty = 00 then COXQty = "" COXcolor = "81B9FE" else COXQty = "(" & Int(COZQty) & ")" COXcolor = "0000FF" end if ' ----- CT CTZQty = mid(ArticleStr,39,2) if CTZQty = 00 then CTXQty = "" CTXcolor = "81B9FE" else CTXQty = "(" & Int(CTZQty) & ")" CTXcolor = "0000FF" end if ' ----- DE DEZQty = mid(ArticleStr,43,2) if DEZQty = 00 then DEXQty = "" DEXcolor = "81B9FE" else DEXQty = "(" & Int(DEZQty) & ")" DEXcolor = "0000FF" end if ' ----- FL FLZQty = mid(ArticleStr,47,2) if FLZQty = 00 then FLXQty = "" FLXcolor = "81B9FE" else FLXQty = "(" & Int(FLZQty) & ")" FLXcolor = "0000FF" end if ' ----- GA GAZQty = mid(ArticleStr,51,2) if GAZQty = 00 then GAXQty = "" GAXcolor = "81B9FE" else GAXQty = "(" & Int(GAZQty) & ")" GAXcolor = "0000FF" end if ' ----- HI HIZQty = mid(ArticleStr,55,2) if HIZQty = 00 then HIXQty = "" HIXcolor = "81B9FE" else HIXQty = "(" & Int(HIZQty) & ")" HIXcolor = "0000FF" end if ' ----- IA IAZQty = mid(ArticleStr,59,2) if IAZQty = 00 then IAXQty = "" IAXcolor = "81B9FE" else IAXQty = "(" & Int(IAZQty) & ")" IAXcolor = "0000FF" end if ' ----- ID IDZQty = mid(ArticleStr,63,2) if IDZQty = 00 then IDXQty = "" IDXcolor = "81B9FE" else IDXQty = "(" & Int(IDZQty) & ")" IDXcolor = "0000FF" end if ' ----- IL ILZQty = mid(ArticleStr,67,2) if ILZQty = 00 then ILXQty = "" ILXcolor = "81B9FE" else ILXQty = "(" & Int(ILZQty) & ")" ILXcolor = "0000FF" end if ' ----- IN INZQty = mid(ArticleStr,71,2) if INZQty = 00 then INXQty = "" INXcolor = "81B9FE" else INXQty = "(" & Int(INZQty) & ")" INXcolor = "0000FF" end if ' ----- IT ITZQty = mid(ArticleStr,75,2) if ITZQty = 00 then ITXQty = "" ITXcolor = "81B9FE" else ITXQty = "(" & Int(ITZQty) & ")" ITXcolor = "0000FF" end if ' ----- KS KSZQty = mid(ArticleStr,79,2) if KSZQty = 00 then KSXQty = "" KSXcolor = "81B9FE" else KSXQty = "(" & Int(KSZQty) & ")" KSXcolor = "0000FF" end if ' ----- KY KYZQty = mid(ArticleStr,83,2) if KYZQty = 00 then KYXQty = "" KYXcolor = "81B9FE" else KYXQty = "(" & Int(KYZQty) & ")" KYXcolor = "0000FF" end if ' ----- LA LAZQty = mid(ArticleStr,87,2) if LAZQty = 00 then LAXQty = "" LAXcolor = "81B9FE" else LAXQty = "(" & Int(LAZQty) & ")" LAXcolor = "0000FF" end if ' ----- MA MAZQty = mid(ArticleStr,91,2) if MAZQty = 00 then MAXQty = "" MAXcolor = "81B9FE" else MAXQty = "(" & Int(MAZQty) & ")" MAXcolor = "0000FF" end if ' ----- MB MBZQty = mid(ArticleStr,95,2) if MBZQty = 00 then MBXQty = "" MBXcolor = "81B9FE" else MBXQty = "(" & Int(MBZQty) & ")" MBXcolor = "0000FF" end if ' ----- MD MDZQty = mid(ArticleStr,99,2) if MDZQty = 00 then MDXQty = "" MDXcolor = "81B9FE" else MDXQty = "(" & Int(MDZQty) & ")" MDXcolor = "0000FF" end if ' ----- ME MEZQty = mid(ArticleStr,103,2) if MEZQty = 00 then MEXQty = "" MEXcolor = "81B9FE" else MEXQty = "(" & Int(MEZQty) & ")" MEXcolor = "0000FF" end if ' ----- MI MIZQty = mid(ArticleStr,107,2) if MIZQty = 00 then MIXQty = "" MIXcolor = "81B9FE" else MIXQty = "(" & Int(MIZQty) & ")" MIXcolor = "0000FF" end if ' ----- MN MNZQty = mid(ArticleStr,111,2) if MNZQty = 00 then MNXQty = "" MNXcolor = "81B9FE" else MNXQty = "(" & Int(MNZQty) & ")" MNXcolor = "0000FF" end if ' ----- MO MOZQty = mid(ArticleStr,115,2) if MOZQty = 00 then MOXQty = "" MOXcolor = "81B9FE" else MOXQty = "(" & Int(MOZQty) & ")" MOXcolor = "0000FF" end if ' ----- MS MSZQty = mid(ArticleStr,119,2) if MSZQty = 00 then MSXQty = "" MSXcolor = "81B9FE" else MSXQty = "(" & Int(MSZQty) & ")" MSXcolor = "0000FF" end if ' ----- MT MTZQty = mid(ArticleStr,123,2) if MTZQty = 00 then MTXQty = "" MTXcolor = "81B9FE" else MTXQty = "(" & Int(MTZQty) & ")" MTXcolor = "0000FF" end if ' ----- NB NBZQty = mid(ArticleStr,127,2) if NBZQty = 00 then NBXQty = "" NBXcolor = "81B9FE" else NBXQty = "(" & Int(NBZQty) & ")" NBXcolor = "0000FF" end if ' ----- NC NCZQty = mid(ArticleStr,131,2) if NCZQty = 00 then NCXQty = "" NCXcolor = "81B9FE" else NCXQty = "(" & Int(NCZQty) & ")" NCXcolor = "0000FF" end if ' ----- ND NDZQty = mid(ArticleStr,135,2) if NDZQty = 00 then NDXQty = "" NDXcolor = "81B9FE" else NDXQty = "(" & Int(NDZQty) & ")" NDXcolor = "0000FF" end if ' ----- NE NEZQty = mid(ArticleStr,139,2) if NEZQty = 00 then NEXQty = "" NEXcolor = "81B9FE" else NEXQty = "(" & Int(NEZQty) & ")" NEXcolor = "0000FF" end if ' ----- NF NFZQty = mid(ArticleStr,143,2) if NFZQty = 00 then NFXQty = "" NFXcolor = "81B9FE" else NFXQty = "(" & Int(NFZQty) & ")" NFXcolor = "0000FF" end if ' ----- NH NHZQty = mid(ArticleStr,147,2) if NHZQty = 00 then NHXQty = "" NHXcolor = "81B9FE" else NHXQty = "(" & Int(NHZQty) & ")" NHXcolor = "0000FF" end if ' ----- NJ NJZQty = mid(ArticleStr,151,2) if NJZQty = 00 then NJXQty = "" NJXcolor = "81B9FE" else NJXQty = "(" & Int(NJZQty) & ")" NJXcolor = "0000FF" end if ' ----- NM NMZQty = mid(ArticleStr,155,2) if NMZQty = 00 then NMXQty = "" NMXcolor = "81B9FE" else NMXQty = "(" & Int(NMZQty) & ")" NMXcolor = "0000FF" end if ' ----- NV NVZQty = mid(ArticleStr,159,2) if NVZQty = 00 then NVXQty = "" NVXcolor = "81B9FE" else NVXQty = "(" & Int(NVZQty) & ")" NVXcolor = "0000FF" end if ' ----- NY NYZQty = mid(ArticleStr,163,2) if NYZQty = 00 then NYXQty = "" NYXcolor = "81B9FE" else NYXQty = "(" & Int(NYZQty) & ")" NYXcolor = "0000FF" end if ' ----- OH OHZQty = mid(ArticleStr,167,2) if OHZQty = 00 then OHXQty = "" OHXcolor = "81B9FE" else OHXQty = "(" & Int(OHZQty) & ")" OHXcolor = "0000FF" end if ' ----- OK OKZQty = mid(ArticleStr,171,2) if OKZQty = 00 then OKXQty = "" OKXcolor = "81B9FE" else OKXQty = "(" & Int(ORZQty) & ")" OKXcolor = "0000FF" end if ' ----- ON ONZQty = mid(ArticleStr,175,2) if ONZQty = 00 then ONXQty = "" ONXcolor = "81B9FE" else ONXQty = "(" & Int(ONZQty) & ")" ONXcolor = "0000FF" end if ' ----- OR ORZQty = mid(ArticleStr,179,2) if ORZQty = 00 then ORXQty = "" ORXcolor = "81B9FE" else ORXQty = "(" & Int(ORZQty) & ")" ORXcolor = "0000FF" end if ' ----- PA PAZQty = mid(ArticleStr,183,2) if PAZQty = 00 then PAXQty = "" PAXcolor = "81B9FE" else PAXQty = "(" & Int(PAZQty) & ")" PAXcolor = "0000FF" end if ' ----- PE PEZQty = mid(ArticleStr,187,2) if PEZQty = 00 then PEXQty = "" PEXcolor = "81B9FE" else PEXQty = "(" & Int(PEZQty) & ")" PEXcolor = "0000FF" end if ' ----- QC QCZQty = mid(ArticleStr,191,2) if QCZQty = 00 then QCXQty = "" QCXcolor = "81B9FE" else QCXQty = "(" & Int(QCZQty) & ")" QCXcolor = "0000FF" end if ' ----- RI RIZQty = mid(ArticleStr,195,2) if RIZQty = 00 then RIXQty = "" RIXcolor = "81B9FE" else RIXQty = "(" & Int(RIZQty) & ")" RIXcolor = "0000FF" end if ' ----- SC SCZQty = mid(ArticleStr,199,2) if SCZQty = 00 then SCXQty = "" SCXcolor = "81B9FE" else SCXQty = "(" & Int(SCZQty) & ")" SCXcolor = "0000FF" end if ' ----- SD SDZQty = mid(ArticleStr,203,2) if SDZQty = 00 then SDXQty = "" SDXcolor = "81B9FE" else SDXQty = "(" & Int(SDZQty) & ")" SDXcolor = "0000FF" end if ' ----- SK SKZQty = mid(ArticleStr,207,2) if SKZQty = 00 then SKXQty = "" SKXcolor = "81B9FE" else SKXQty = "(" & Int(SKZQty) & ")" SKXcolor = "0000FF" end if ' ----- TN TNZQty = mid(ArticleStr,211,2) if TNZQty = 00 then TNXQty = "" TNXcolor = "81B9FE" else TNXQty = "(" & Int(TNZQty) & ")" TNXcolor = "0000FF" end if ' ----- TX TXZQty = mid(ArticleStr,215,2) if TXZQty = 00 then TXXQty = "" TXXcolor = "81B9FE" else TXXQty = "(" & Int(TXZQty) & ")" TXXcolor = "0000FF" end if ' ----- UT UTZQty = mid(ArticleStr,219,2) if UTZQty = 00 then UTXQty = "" UTXcolor = "81B9FE" else UTXQty = "(" & Int(UTZQty) & ")" UTXcolor = "0000FF" end if ' ----- VA VAZQty = mid(ArticleStr,223,2) if VAZQty = 00 then VAXQty = "" VAXcolor = "81B9FE" else VAXQty = "(" & Int(VAZQty) & ")" VAXcolor = "0000FF" end if ' ----- VT VTZQty = mid(ArticleStr,227,2) if VTZQty = 00 then VTXQty = "" VTXcolor = "81B9FE" else VTXQty = "(" & Int(VTZQty) & ")" VTXcolor = "0000FF" end if ' ----- WA WAZQty = mid(ArticleStr,231,2) if WAZQty = 00 then WAXQty = "" WAXcolor = "81B9FE" else WAXQty = "(" & Int(WAZQty) & ")" WAXcolor = "0000FF" end if ' ----- WI WIZQty = mid(ArticleStr,235,2) if WIZQty = 00 then WIXQty = "" WIXcolor = "81B9FE" else WIXQty = "(" & Int(WIZQty) & ")" WIXcolor = "0000FF" end if ' ----- WV WVZQty = mid(ArticleStr,239,2) if WVZQty = 00 then WVXQty = "" WVXcolor = "81B9FE" else WVXQty = "(" & Int(WVZQty) & ")" WVXcolor = "0000FF" end if ' ----- WY WYZQty = mid(ArticleStr,243,2) if WYZQty = 00 then WYXQty = "" WYXcolor = "81B9FE" else WYXQty = "(" & Int(WYZQty) & ")" WYXcolor = "0000FF" end if ' ----- EQ EQZQty = mid(ArticleStr,247,2) if EQZQty = 00 then EQXQty = "" EQXcolor = "81B9FE" else EQXQty = "(" & Int(EQZQty) & ")" EQXcolor = "0000FF" end if ' ----- MG MGZQty = mid(ArticleStr,251,2) if MGZQty = 00 then MGXQty = "" MGXcolor = "81B9FE" else MGXQty = "(" & Int(MGZQty) & ")" MGXcolor = "0000FF" end if ' ----- BD BDZQty = mid(ArticleStr,255,2) if BDZQty = 00 then BDXQty = "" BDXcolor = "81B9FE" else BDXQty = "(" & Int(BDZQty) & ")" BDXcolor = "0000FF" end if QtyRs.close 'ArticleStr = "AB00AK00AL00AR00AZ00BC00CA00CN00CO00CT00DE00FL00GA00HI00IA00ID00IL00IN00IT00KS00KY00LA00MA00MB00MD00ME00MI00MN00MO00MS00MT00NB00NC00ND00NE00NF00NH00NJ00NM00NV00NY00OH00OK00ON00OR00PA00PE00QC00RI00SC00SD00SK00TN00TX00UT00VA00VT00WA00WI00WV00WY00EQ00MG00BD00" %>

Free for everybody Slide Show-text-GPS included

Our goal is to photograph all railroads, current and ghost, in the USA and Canada.

We may also try to get federal recognition for documenting all the railroads as they are today.

So many railroads, so little time.

For a sample click here

Half the railroads in the US are already gone. We have to document what is left and what remains of the ghosts before there is little except main lines and memories.

You can add your photos and text of any railroad in the USA and Canada and to some extent international. All you do is enter a sign-on and password and click your photos like an attachment to an email. That''s all there is to it, although you might check HELP for information and size for submitting photos. There are 3 information text boxes on your detail page and text for each photo on the SLIDE SHOW.

Create your page

click here

Photographers contributions - add your page

Have a sign-on and a page	click here

alternate URLs = railsproject.com railfanheaven.com railsatlas.com railsatlas.us railroadatlas.us

contact