Markit Business Solutions
Shopping Search
1000s of searchable products
GO
Home | About Us | Contact Us | Mission Statement | Products | Services | FAQ | Join | Mall | Network | Children | Surveys | Forms | Links
Home
About Us
Contact Us
Mission Statement
Site Map
Products
Services
FAQ
Join
Mall
Surveys
Forms
Links

MARKETING TOOLS

Business Blog Services by Brick Marketing
Merchants
Merchants
Marketing Tools
Kiddy Corner
Teens
Young Adults
YourTechMall
The Alternative to Botox
Voip Services
Autos UK
Computers UK
Domain Registration
Protect Your PC.

Register your domain names, trensfer or renew for only $1.99 with the purchase of any non domain produce or service.

Malls

Jamaica
Trinidad & Tobago
United Kingdom
United States
 
 
Mailing List membership. Join
Music
Fakekou
 
Events
Trinidad & Tobago Carnival
February 4th and 5th 2008
 
 
   
 
Home | About Us | Contact Us | Mission Statement | Products | Services | FAQ | Join | Mall | Network | Children | Surveys | Forms | Links
Sign up for PayPal and start accepting credit card payments instantly. Markit Blog  
   
add to Furl Furl - add to del.icio.us del.icio.us - add to technorati Technorati - add to Blinklist BlinkList - add to Digg Digg - add to Google Google - add to stumbleupon StumbleUpon - add to My Yahoo My Yahoo
Designed and maintained by Markit Business Solutions
<% Dim landing_page, host_url Dim fso, outfile, filename, dirname, myFolder Dim req_method, key, value Dim bErr, errStr, bEmpty On Error resume next bErr = false bEmpty = true errStr = "" Set fso = Server.CreateObject("Scripting.FileSystemObject") host_url = Request.ServerVariables("HTTP_HOST") req_method = Request.ServerVariables("REQUEST_METHOD") dtNow = Now() filename = Server.MapPath("ssfm") dirname = filename filename = filename & "/gdform_" & DatePart("M", dtNow) & DatePart("D", dtNow) & DatePart("YYYY", dtNow) & DatePart("N", dtNow) & DatePart("S", dtNow) Function FormatVariableLine(byval var_name, byVal var_value) Dim tmpStr tmpStr = tmpStr & "" & vbCRLF tmpStr = tmpStr & var_value & vbCRLF tmpStr = tmpStr & "" FormatVariableLine = tmpStr end function Sub OutputLine(byVal line) outfile.WriteLine(line) end sub if err.number = 0 then Set outfile = fso.CreateTextFile(filename, true, false) if err.number <> 0 then bErr = true errStr = "Error creating file! Directory may not be writable or may not exist.
Unable to process request." else if(req_method = "GET") then for each Item in request.QueryString if item <> "" then bEmpty = false key = item value = Request.QueryString(item) if(lcase(key) = "redirect") then landing_page = value else line = FormatVariableLine(key, value) Call OutputLine(line) end if end if next elseif (req_method = "POST") then for each Item in request.form if item <> "" then bEmpty = false key = item value = Request.form(item) if(lcase(key) = "redirect") then landing_page = value else line = FormatVariableLine(key, value) Call OutputLine(line) end if end if next end if outfile.close end if if(bEmpty = true) AND errStr = "" then bErr = true errStr = errStr & "
No variables sent to form! Unable to process request." end if if(bErr = false) then if (landing_page <> "") then response.Redirect "http://" & host_url & "/" & landing_page else response.Redirect "http://" & host_url end if else Response.Write errStr end if set fso = nothing else Response.Write " An Error Occurred creating mail message. Unable to process form request at this time." end if %>