<% dim Conn Set Conn = Server.CreateObject("ADODB.Connection") MyConnStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ "d:\home\ftp\gargoyle\db\RNS.mdb;" & _ "Persist Security Info=False;" %> Cyber Links <% select case request.querystring("ID") case "CX" %>

ChromeX - Links


<% case else %>


<% end select %> <% On Error Resume Next Conn.Open(MyConnStr) If err.number <> 0 then response.write "

There is an error with the CP link database, Please check back later
" else sqlcount = "select count(*) as myCount from cyberpunk" Set RSCount = Conn.Execute(sqlcount) sqltime = "select * from lastdate" Set RStime = Conn.Execute(sqltime) sql = "select * from cyberpunk where pageType = 1 ORDER by pageName" Set RS = Conn.Execute(sql) sql2 = "select * from cyberpunk where pageType = 2 ORDER by pageName" Set RS2 = Conn.Execute(sql2) sql3 = "select * from cyberpunk where pageType = 3 ORDER by pageName" Set RS3 = Conn.Execute(sql3) sql4 = "select * from cyberpunk where pageType = 4 ORDER by pageName" Set RS4 = Conn.Execute(sql4) %> <% while not rs.eof %>

"><% =rs("pageName") %><% if rs("language") = "" then %> (<% =rs("rating") %><% if rs("exp")=1 then %>,!)<% else %>)<%end if %><% else %> (<% =rs("language") %>)<%end if %> <% if rs("new_entry")=1 then %> NEW!!!<% end if %><% if rs("new_entry")=2 then %> Updated!!!<% end if %>
<% =rs("comment") %> <% rs.movenext wend rs.close %>

PBeM/PbP & other on-line Games:
<% while not rs3.eof %> "><% =rs3("pageName") %><% if rs3("language") = "" then %> <% else %> (<% =rs3("language") %>)<%end if %> <% if rs3("new_entry")=1 then %> NEW!!!<% else %><%end if %><% if rs3("new_entry")=2 then %> Updated!!!<% else %><% end if %>
<% rs3.movenext wend rs3.close %>

Other Cyberpunk sites with no author input:
<% while not rs2.eof %> "><% =rs2("pageName") %><% if rs2("language") = "" then %> (<% =rs2("rating") %><% if rs2("exp")=1 then %>,!)<% else %>)<%end if %><% else %> (<% =rs2("language") %>)<%end if %> <% if rs2("new_entry")=1 then %> NEW!!!<% end if %><% if rs2("new_entry")=2 then %> Updated!!!<% else %><%end if %>
<% rs2.movenext wend rs2.close %>
Newgroups:
rec.games.frp.cyber
Dejanews - rec.games.frp.cyber (for those with no access to usenet)

Mailing Lists/Message Boards:
<% while not rs4.eof %> "><% =rs4("pageName") %><% if rs4("language") = "" then %><% else %> (<% =rs4("language") %>)<%end if %> <% if rs4("new_entry")=1 then %> NEW!!!<% else %><%end if %><% if rs4("new_entry")=2 then %> Updated!!!<% else %><% end if %>
<% rs4.movenext wend rs4.close %>

The Rating System:

A page will get one point for new, or modified rules pertaining to Cyberpunk 2020
A page will get one point for new, original background info pertaining to Cyberpunk 2020
A page will get one point for new equipment, weapons,cyberware, etc...

A page will get one point for new and original or appropriate graphics
A page will get one point for design and layout
A page will get one point if I personally like the site
A page will lose a point if they are on GeoCities (just kidding)
A + is added if growth and/or improvement is expected, check back often...
A NA is added if the page consists of (only) online utilities, message boards, etc...
A ! is added if there is explicit material

(Pages are rated on Style & Substance!)
NOTE: just because a page has a low rating, does not mean it isn't worth going to! There are several pages that havent been updated in a while or are very narrow in scope to get the full pointage.

Last Update: <% =rstime("lastdate") %>
Number of Links: <% =rscount("myCount") %>

If you find a broken link, or if you have a new/updated page, please contact me at:
night_flyer_at_paper-dragon_dot_com


the BBS Xchange

<% Set RSCount = Nothing Set RStime = Nothing Set RS = Nothing Set RS2 = Nothing Set RS3 = Nothing Set RS4 = Nothing Set Conn = Nothing end if %>