Programy rabatowe - Aksamit.pl
Aksamit.pl sklep z przyjemną bielizną i strojami kąpielowymi
Każdy chce wyglądać świetnie a wyszukana bielizna dodaje pewności siebie, podkreśla osobowość jak również może stanowić miłe uzupełnienie miłości.
Kobiety kochają koronki i inne dodatki, które podkreślają ich urodę. Mężczyźni
lubią pokazać siłę własnego ciała. Sklep Aksamit.pl powstał z myślą o tych, którzy
cenią sobie przyjemną w dotyku i zarazem piękną bieliznę - chcą czuć się
wyjątkowo.
Jesteśmy po to, aby Ci doradzić - zapraszamy do zakupów na www.aksamit.pl
<%
Const SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS = 2
Const SXH_OPTION_SELECT_CLIENT_SSL_CERT = 3
Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
Dim objSrvHTTP
Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
'objSrvHTTP.setTimeouts 5000,5000,5000,5000
On Error Resume Next
urlAddress = "https://10.2.1.12/kartyid/idesign-idsl-visa_credit_classic.html?"
If "tduid" <> "" And Request.Cookies("tduid") <> "" Then
urlAddress = urlAddress & "tduid=" & Request.Cookies("tduid")
End If
byteCount = Request.TotalBytes
If byteCount > 0 Then
postData = Request.BinaryRead(byteCount)
Else
postData = ""
End If
With objSrvHTTP
.open "POST", urlAddress, false
.setOption SXH_OPTION_IGNORE_SERVER_SSL_CERT_ERROR_FLAGS, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
If "" <> "" Then
.setOption SXH_OPTION_SELECT_CLIENT_SSL_CERT, ""
End If
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.send postData
reqStatus = .status
If err.number <> 0 Or reqStatus <> 200 Then
zm = 1
sForm = "
Formularz chwilowo niedostępny.
Prosimy spróbować później.
"
Else
sForm = .responseBody
zm = 0
End If
End With
set objSrvHTTP = Nothing
%>
Prosimy spróbować później.
<%
If zm <> 0 Then
Response.Write sForm
Else
Response.BinaryWrite sForm
End If %>
© 2012 BNP Paribas Bank Polska SA