Samples Of Poems
Sample Details Page
Checkout
Links
If you'd like to pay with money order, please contact me at [email protected]
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Home Samples Of Poems Sample Details Page Checkout Links |
||||||||||||||||||||||||||
| I accept payment through Alert Pay, PayPal, or Money Order. If you'd like to pay with money order, please contact me at [email protected] |
||||||||||||||||||||||||||
| If you'd like the poem to have a background and e-mailed to you, that you can print out, please checkout below using the Paypal or AlertPay link. | ||||||||||||||||||||||||||
| Only $19.99 | ||||||||||||||||||||||||||
| If you'd like a poem with background and frame to be shipped to you, please check out below using the Paypal or AlertPay link. Free shipping is included in the total for a limited time only. | ||||||||||||||||||||||||||
| Only $25.99 | ||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||
| <% 'Step 1: Name this page with a asp extention example: links.asp '---------------------------- DO NOT MODIFY -------------------------------------- ' # //Begin LinkTradeNow.COM ASP-SCRIPT BLOCK ' # THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION. ' # PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED. ' # Dimensioning variables Dim sUserID Dim sUserKey Dim sThisPage Dim sPostingString Dim sPassedQuery Dim sErrorString Dim sResultString ' # // Finished dimensioning variables. ' # Your user key and User ID sUserID ="luent" sUserKey = "" ' # The following variable is sent to the LinkTradeNow server in order to ' # generate working links on your page: sThisPage = Request.ServerVariables("SCRIPT_NAME") ' # Generate the data to post to the LinkTradeNow server sPostingString = "sUserKey=" & sUserKey sPostingString = sPostingString & "&sThisPage=" & sThisPage sPostingString = sPostingString & "&sUserID=" & sUserID 'Response.Write(sPostingString) ' # pass through any querystring data to LinkTradeNow to allow paging sPassedQuery = Request.QueryString ' --------------------------------------------------------------------------------- If GetLinkTradeNowData(sPassedQuery, sPostingString, sResultString, sErrorString) Then Response.Write sResultString Else Response.Write sErrorString End If Function GetLinkTradeNowData(strQuery, strPost, ByRef strResponse, ByRef strError) Dim objHttp Dim ComponentString Set objHttp = Nothing On Error Resume Next Set objHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") ComponentString = "" & vbCrLf On Error Resume Next If objHttp Is Nothing Then Set objHttp = Server.CreateObject("WinHttp.WinHttpRequest.5") ComponentString = "" & vbCrLf End If On Error Resume Next If objHttp Is Nothing Then If TryMSXML(strQuery, strPost, strResponse, strError) Then ' the MSXML function will return the data GetLinkTradeNowData = True Else ' we don't need to supply error information, since the error string ' is passed ByRef, the MSXML function will supply the data GetLinkTradeNowData = False End If Else objHttp.Open "POST", "http://www.linktradenow.com/MemberLinks.aspx?" & strQuery, False objHttp.SetRequestHeader "Content-type", "application/x-www-form-urlencoded" objHttp.Send strPost If objHttp.Status <> 200 Then strError = "Error: Status=" & objHttp.Status & " Text=" & objHttp.ResponseText GetLinkTradeNowData = False Else strResponse = ComponentString & objHttp.responseText GetLinkTradeNowData = True End If End If End Function Function TryMSXML(strQuery, strPost, ByRef strResponse, ByRef strError) Dim objHttp Set objHttp = Nothing ' let's see if the server supports the XMLHTTP component, various versions On Error Resume Next Set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") ComponentString = "" & vbCrLf On Error Resume Next If objHttp Is Nothing Then Set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0") ComponentString = "" & vbCrLf End If On Error Resume Next If objHttp Is Nothing Then Set objHttp = Server.CreateObject("Microsoft.XMLHTTP") ComponentString = "" & vbCrLf End If On Error Resume Next If objHttp Is Nothing Then strError = "No support for HTTP requests found." TryMSXML = False Else ' # Open connection to LinkTradeNow.com server, sending the UserKey information via POST ' # Also, pass through the querystring information objHttp.open "POST", "http://www.linktradenow.com/MemberLinks.aspx?" & strQuery, false objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded" objHttp.Send strPost If objHttp.status <> 200 Then ' # error! strError = "Error: Status=" & objHttp.status & " Text='" & objHttp.responseText & "'" TryMSXML = False Else ' # We should have received the links information from the server, ' # the following line will return the data by reference: strResponse = ComponentString & objHttp.responseText TryMSXML = True End If Set objHttp = Nothing End If End Function ' # //FINSIHED LinkTradeNow.COM SCRIPT BLOCK '---------------------------- DO NOT MODIFY CODE ABOVE -------------------------------------- %> | ||||||||||||||||||||||||||