<%
response.write ""
response.write ""
response.write ""
response.write ""
response.write ""
response.write ""
response.write "MLM Best Network Marketing MLM Opportunities & Resources"
%>
<%
response.write ""
Set browser = Server.CreateObject("MSWC.BrowserType")
If (browser.Browser="IE") Then
response.write "<![CDATA["
response.write "<body><img src=dot.gif alt=""MLM Network Marketing MLM Opportunities & Resources""><img src=dot.gif alt=""MLM Network Marketing Opportunities & Resources"">"
response.write "MLM Best Network Marketing Opportunities & FREE Resources - discover the very best MLM and Network "
response.write "Marketing Business on the internet today. This is a collection of the very best Promotional and Networking Resources "
response.write "availalbe anywhere. They have been collected together all in one place just for you to enjoy and benefit from today. "
response.write "Many of them are free and are designed to compliment each other so that anyone can put together a glabal internet marketing "
response.write "package thant can get them straight into profit quickly. Including the top Networking and MLM Gurus like Mike Enlow and "
response.write "Cory Rudl. I hope that you enjoy this collection as much as I have enjoyed putting them together "
response.write "and if you ever wanted to get involved in MLM, Network Marketing or on-line internet business "
response.write "promotion then there couldn't be a better time than now! <br><p> <a href=""http://www.ebizrotator.com/goto/PA3694.htm""><font size=+2>Click Here Now</a><br><p><br><p>"
response.write "</body>]]>"
end if
Set browser = Nothing
ct=0
fp = Server.MapPath("rotate.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
ct = ct + 1
if ct > 3 then ct=1
a.close
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
a.Close
response.write ""
'page counter
fp = Server.MapPath("rotatorcount.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
a.close
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
end if
a.Close
response.write ""
%>