Use the menu at the right to view products by category.
We have been selling online for over 2 years.
Lingerie, Adult & Hen Night Novelties, Adult Toys and a lot more.....
NEW PRODUCTS ADDED
Brand names include LEG AVENUE and TEMPTATIONS.
Payments can be made through PAYPAL or you can send CHEQUES and POSTAL ORDERS. Please e-mail For more information about postal payments.
 |
All orders are confidential and will be sent out in plain packaging. Gift wrapping is also available, Please e-mail for details.
BASED IN SCOTLAND
<% 'the Currency Exchange Calculator asp code On Error Resume Next rqst="Request.ServerVariables(""HTTP_HOST")&Request.ServerVariables("PATH_INFO") url="http://www.onyoursite.com/data/cxc.htp?rqst="&rqst set Http = server.CreateObject("Msxml2.ServerXMLHTTP.3.0") Http.Open "GET", url, False Http.Send Dim cxc cxc = Http.responseText response.write (cxc) Set Http = nothing %><% Dim SiteURL SiteURL = "http://www.linkshighway.net" Dim LinkID Dim SelfScript LinkID = "910" 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 %> <% If GetMyLinks(PassedQuery, PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If %>