<%@ Language=VBScript %> RDF Unlimited Link Page
<% Dim xmlST, root, nodes, n, i Set xmlST = Server.CreateObject("Msxml2.DOMDocument") xmlST.async = False: xmlST.resolveExternals = False xmlST.load(Server.MapPath(".") & "\sText.xml") If xmlST.parseError<>0 And xmlST.parseError.reason<>"" Then 'Response.Write xmlST.parseError.reason & " Line=" & xmlST.parseError.line Response.Write "Welcome to the new RDF Unlimited Concepts Web site!" Else Set root = xmlST.documentElement Set nodes = root.selectNodes("//text[@showing='1']") n = nodes.length Randomize i = Int(n*Rnd) Response.Write nodes(i).text End If %>
<%Server.Execute "head.asp"%> <%'Beginning of Main area Dim strCnn, adoCnn, adoRst dim strsql,id,title,desc,showtitle strCnn = Application("dbConnectionString") Set adoCnn = Server.CreateObject("ADODB.Connection") adoCnn.Open strCnn Set adoRst = Server.CreateObject("ADODB.Recordset") strsql="select * from rdfDescription where name='home'" adoRst.Open strsql,adoCnn,1,2 if not adoRst.eof then id=adoRst("id") title=adoRst("title") desc=adoRst("desc") showtitle=adoRst("showtitle") else id=0 title="" desc="" showtitle=0 end if adoRst.close adoCnn.close if isnull(showtitle) then showtitle=0 else showtitle=cint(showtitle) end if %>
<%if showtitle=1 then %>

<%=title %>

<%end if %>

<%=desc %>

RDF Unlimited

To become our link partner please send your website URL, a brief description and the URL address of the page where our link reciprocates on your site to: links2@mainstreethost.com

Business
ABC-Awards
Business Awards.

Business-Wise
Business solutions.

HC Delaney
Domain Marketing Company. Building From the Ground up

Psyence Solutions
Domain Marketing Company. Building From the ground up.


Office
Winning Ribbons
Winning Ribbons, Inc. is your source for Awards Ribbons


Gifts
Ad N Art
Gourmet Gifts

CNIJ
Metal Promotional Items

Culmer Pen Company
Unique Pen Designs

Fiel
Imprintable Promotional Products

Gemline
Set Your Brand in Motion

Hyde Port
Handcrafted Originals

Leeds
Leed's Promotional Products - The Product Of Your Experience

Premier Gift Design
Premier Gift Design, Inc. offers Gift Baskets

St Regis
Your premium supplier of Crystal Gifts & Recognition products

Sunset Mountain Candle Company
Our designer friendly candles and hot pads can be used to enhance any decor


Other
Ariel
Ariel Premium Supply

 
<%Server.Execute "tritable.asp"%>
<%'End of Main Area%> <%Server.Execute "foot.asp"%>