<%
dim objXMLHTTP
dim URL
dim strURL
dim strURLF
dim strURLQ
dim strPrices
strURLF=""
strURLF=Trim(Request.Form("txtURL"))
strURLQ=""
strURLQ=Trim(Request.QueryString("txtURL"))
If strURLF <> "" Then
Session("SessURL") = strURLF
strURL = strURLF
Else
strURL = strURLQ
End If
'the url that you want to pull html from
%>
<%
Sub GetPrices(strURL)
'create the xmlhttp object
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
'use the open command to get the url
objXMLHTTP.Open "GET", strURL, false
objXMLHTTP.Send
strPrices = objXMLHTTP.responseText
'TO GET HEADERS
'response.write objXMLHTTP.getAllResponseHeaders
Set objXMLHTTP = Nothing
vStart = Instr(strPrices,"(Regular Price:")
vEnd = Instr(strPrices,"Each")
vLength = vEnd - vStart
strPrices = Mid(strPrices,vStart,vLength)
strPrices = Replace(strPrices,"","")
strPrices = Replace(strPrices,"| ","",1,-1, vbTextCompare)
strPrices = Replace(strPrices," | ","",1,-1, vbTextCompare)
strPrices = Replace(strPrices,"
"," ",1,-1, vbTextCompare)
strPrices = Replace(strPrices," | ","",1,-1, vbTextCompare)
strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
strPrices = Replace(strPrices,vbTab,"",1,-1, vbTextCompare)
strPrices = Replace(strPrices,vbCrLf,"",1,-1, vbTextCompare)
strPrices = Replace(strPrices,"In","
In",1,-1, vbTextCompare)
strPrices = Replace(strPrices,"StockSpecial","Stock
Special",1,-1, vbTextCompare)
strPrices = strPrices & ""
response.write ":::"&strPrices&":::"
End Sub
response.write strURL & "
"
If strURL <> "" Then
'create the xmlhttp object
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
'use the open command to get the url
objXMLHTTP.Open "GET", strURL, false
objXMLHTTP.Send
strPrices = objXMLHTTP.responseText
'TO GET HEADERS
'response.write objXMLHTTP.getAllResponseHeaders
With Response
.Write "
"
.Write "HTML Code for "&URL&""
.Write ""
End With
Set objXMLHTTP = Nothing
' vStart = Instr(strPrices,"(Regular Price:")
' vEnd = Instr(strPrices,"Each")
' vLength = vEnd - vStart
' strPrices = Mid(strPrices,vStart,vLength)
' strPrices = Replace(strPrices," | ","")
' strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
' strPrices = Replace(strPrices," | ","",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,"
"," ",1,-1, vbTextCompare)
' strPrices = Replace(strPrices," | ","",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,"","",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,vbTab,"",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,vbCrLf,"",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,"In","
In",1,-1, vbTextCompare)
' strPrices = Replace(strPrices,"StockSpecial","Stock
Special",1,-1, vbTextCompare)
'
' strPrices = strPrices & ""
response.write "
" & strPrices
'With Response
' .Write ""
'End With
End If
%>
|