Programy rabatowe - Chocolissimo
Chocolissimo - świat najbardziej ekskluzywnej czekolady. Dla miłośników wyszukanych prezentów lub łasuchów szukających niezwykłej przyjemności. Wyjątkowe pralinki w szkatułkach, czekolada z najodleglejszych miejsc na świecie a przede wszystkim dobra zabawa. Chcesz zobaczyć co to znaczy prawdziwa czekolada?
http://chocolissimo.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