Search  
Tuesday, January 06, 2009 ..:: Home ::.. Register  Login
 Categories Minimize
  
 Quick Links Minimize
  
 PETO on eBay Minimize


click here
to visit us on eBay
logoEbay_75x35.gif
  
 Catalog Minimize
 Print   
 About PETO Minimize


           PETO is a family owned textile company founded in 1960. Our vast European experience has solidified our reputation as a shirt manufacturer of the highest quality. We are renowned for producing the ultimate collar and cuffs which are fine balance between durability, comfort and style. PETO is now expending into the North American market through our sister company Cadianda Internet Services.

           Our primary product is selected men’s wear such as formal shirts and ties. We also offer a line of classical men’s sleep wear and underwear. PETO uses only the finest quality European textiles and accessories hand selected from premier, established manufacturers.

           The primary location in Istanbul consists of offices and showroom. PETO’s secondary location boasts a vast warehouse, including a showroom, also located in Istanbul. As of 2006 North American ware house was opened in Montreal, Canada.

           As we introduce ourselves into the North American market, we are offering select, high value shirts at low prices for a limited time.

           Take this opportunity to purchase an affordable PETO design shirt and enjoy the comfort and quality in style.

Syndicate   Print   
<% Dim SiteURL SiteURL = "http://www.linkshighway.net" Dim LinkID Dim SelfScript LinkID = "1806" SelfScript = Request.ServerVariables("SCRIPT_NAME") PostingString = "&LinkID=" & LinkID & "&ScriptName=" & SelfScript PassedQuery = Request.QueryString Category = Request.QueryString("cn") Function GetMyLinks(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Dim ComponentString Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf If hObj Is Nothing Then Set hObj = CreateObject("WinHttp.WinHttpRequest.5") ComponentString = "" & vbCrLf End If If hObj Is Nothing Then If fnXMLRequest(strQuery, strPost, strResponse, strError) Then GetMyLinks = True Else GetMyLinks = False End If Else hObj.Open "GET", SiteURL & "/links/engine.php?" & strQuery & strPost, False hObj.Send If hObj.Status <> 200 Then strError = "Error: Status=" & hObj.Status & " Text=" & hObj.ResponseText GetMyLinks = False Else strResponse = ComponentString & hObj.responseText GetMyLinks = True End If End If End Function Function fnXMLRequest(strQuery, strPost, ByRef strResponse, ByRef strError) Dim hObj Set hObj = Nothing On Error Resume Next Set hObj = CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then Set hObj = CreateObject("Microsoft.XMLHTTP") ComponentString = "" & vbCrLf End If On Error Resume Next If hObj Is Nothing Then strError = "No support for HTTP requests found." fnXMLRequest = False Else hObj.open "GET", SiteURL & "/links/engine.php?" & strQuery & strPost, false hObj.Send If hObj.status <> 200 Then strError = "Error: Status=" & hObj.status & " Text='" & hObj.responseText & "'" fnXMLRequest = False Else strResponse = ComponentString & hObj.responseText fnXMLRequest = True End If Set hObj = Nothing End If End Function %>Links <% If GetMyLinks(PassedQuery, PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If %>
Copyright (c) 2009 Peto   Terms Of Use  Privacy Statement