<% Dim objFile,objFso Dim strFileName, strPath dim strPageContent strFileName = "Meta_Electronics.asp" strPath = Server.MapPath("/singleclicksolutions/metadir") strPath =strPath & "/" & strFileName '' Response.Write strPath ''Response.Write Request.ServerVariables("PATH_INFO") Set objFso = Server.CreateObject("Scripting.FileSystemObject") if objFso.FileExists(strPath) Then Set objFile = objFso.OpenTextFile(strPath) strPageContent = objFile.ReadAll Response.Write strPageContent else ''Response.Write "Not Exist" end if %>

Home

About Us

Resources

Articles

<% Dim objFile1,objFso1 Dim strFileName1, strPath1 dim strPageContent1 strFileName1 = "_Electronics.asp" strPath1 = Server.MapPath("/singleclicksolutions/contentdir") strPath1 =strPath1 & "/" & strFileName1 Set objFso1 = Server.CreateObject("Scripting.FileSystemObject") if objFso1.FileExists(strPath1) Then Set objFile1 = objFso1.OpenTextFile(strPath1) strPageContent1 = objFile1.ReadAll Response.Write strPageContent1 end if %>


Electronics (1)	Screen Protectors (23)

Computers And Internet

Expired Web Sites - Computers And Internet.

http://www.rad5.com