Digital Outlet

<% dim strBasePath dim strImage() dim x dim objFolder dim objFSO dim fso dim n dim imgsrc dim strFileName dim strHyperlinkPath x=0 strBasePath="/images/banners/" 'path where your random images reside CHANGE THIS TO MEET YOUR NEEDS!!! 'create the FSO Set fso = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = fso.GetFolder(Server.MapPath("/images/banners/")) 'CHANGE HERE TOO !!!!!!!!!! 'loop through every file in the current folder For Each objFile in objFolder.Files strFileName=objFile.Name 'get filename strHyperlinkPath = strBasePath & strFileName ReDim Preserve strImage(x) strImage(x) = strHyperlinkPath x=x+1 Next Randomize x = UBound(strImage) + 1 n = int(rnd * x) n=cstr(n) imgsrc = strImage(n) set fso = Nothing set objFolder = Nothing set objFile = Nothing Function RemoveSpaces(strString) strHyperlinkPath = Replace(strHyperlinkPath," ","%20") End Function%>

www.digital-outlet.net

your account | view cart | wish list | order status

Search:

Support Centre: 0870 756 4001 Free Delivery

Currencies:


	DVD Players DVD Accessories Phones Domestic Appliances Storage

alt="" border="0" width="506" height="134"> Do you have a question regarding your order?

A suggestion on how to improve our websites or services?

Call us on 0870 752 0800 (inside UK) or 00 44 1924 277799 (outside UK)

Our address is:

Planet Earth Logistics LTD
PO Box 374
Wakefield
ENGLAND
WF4 6WW

Name:

Order Number:

Your E-Mail Address:

Nature of Question:

Enter Validation Code: <%response.write(randomcode)%>

Subject:

<%end if if action=9 then department=Request.Form("department") subject=Request.Form("subject") body=Request.Form("body") site=Request.Form("site") name=Request.Form("name") orderID=Request.Form("orderID") email=Request.Form("email") 'Return to the update select page incase another record needs deleting 'Response.Write "DB Updated with 'Yes'

" Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.FromName = "Website Support" Mail.FromAddress= "stuart@pla-net.uk.net" Mail.RemoteHost = "mrvnet.kundenserver.de" Mail.AddRecipient "Question", department Mail.Subject = subject Mail.BodyText = "Name: " & name & vbCrLf & vbCrLf & "Order Number: " & orderID & vbCrLf & vbCrLf & "Site: Planet Health Online" & vbCrLf & vbCrLf & "E-Mail Address: " & email & vbCrLf & vbCrLf & body if Mail.SendMail then Response.Write "Thank you - we will respond to your query shortly
" else Response.Write "Sorry, your query was not sent - please phone us. Error was " & Mail.Response & "
" end if end if if action=10 then Response.write("

Affiliate Program")%>

Why not become one of our affiliates and earn easy money?

If you think you could sell our products on your site or you would like us to sell your products for you on our sites then click on the 'Join Us' button below and read the Terms and Conditions and register your details.

You don't need to hold any stock or deal with shipping, we'll handle all of that. All you have to do is promote our products on your site! For every sale that is made you would receive 20% of the total sale (not including delivery costs).

For your protection we run our affiliate program through WebGains.com - it's free for you to sign up and your interests are protected.