Data is not pulling from the site

Hi: When i run the same code with minor changes in VB it works fine
but when i run in ASP it runs but it not pulling any information from
the web site. Needs help

Thanks,
Anna.

ASP CODE

Const ForAppend = 8
Dim objFSO: Set objFSO=CreateObject("Scripting.FileSystemObject")
Dim DBConn,rs,social,vpath,vfile,xLine
Dim WShell
Set WShell = CreateObject("wscript.shell")
vPath = WShell.SpecialFolders("MyDocuments") & "\"
vFile = vPath & "Deceased-Information-"
vFile = vFile & year(now) & month(now) & day(now) & "-"
vFile = vFile & hour(now) & minute(now) & second(now) & ".html"
Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=dec1"
sSQL = "select name1,ssn1 from dbtr where status_code=450"
Set rs = DBConn.Execute(sSQL)
Set objFile = objFSO.OpenTextFile(vfile, ForAppend, True)
Do While Not rs.EOF
social = rs.Fields("ssn1")
'objFile.WriteLine PostURL("http://ssdi.rootsweb.com/cgi-bin/
ssdi.cgi", social)
response.write(rs.Fields("ssn1"))
response.write("
")
rs.moveNext
loop

Function PostURL(sURL, aPostData)
Dim XmlHTTP

Set XmlHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
With XmlHTTP
.Open "POST", sURL, False
.setRequestHeader "Content-Type", "application/ x-www-form-
urlencoded"
.Send aPostData
If .Status = 200 Then
PostURL = .responseText
Else
PostURL = "Error!"
End If
End with
Set XmlHTTP = Nothing

End Function


VB PROGRAM
Private Sub deceasedProcess()
Dim social As String, WShell As Object, vpath As String, vfile
Set WShell = CreateObject("wscript.shell")
vpath = WShell.SpecialFolders("MyDocuments") & "\"
vfile = vpath & "Deceased-Information-" & Format$(Now, "yyyymmdd-
hhmmss") & ".html"

Dim ssnFile As String, xLine
ssnFile = "C:\ssn.txt"
Open ssnFile For Input As #2
Do While Not EOF(2)
Line Input #2, xLine
social = Trim(xLine)
Open vfile For Append As #1
Print #1, PostURL("http://ssdi.rootsweb.com/cgi-bin/ssdi.cgi", "ssn="
& social)
Close #1

Loop
Close #2
Set WShell = Nothing

End Sub

ssn.txt
--------
321127371
322142462
351441270

Re: Data is not pulling from the site

--
Dim Alan as ThatsIT.net.au.Staffmember
Alan.signature = "Thank You"
Response.Write Alan.signature.toString()
__________________________________________

wrote in message
news:1174773484.540775.100050@l77g2000hsb.googlegroups.com.. .
> Hi: When i run the same code with minor changes in VB it works fine
> but when i run in ASP it runs but it not pulling any information from
> the web site. Needs help
>
> Thanks,
> Anna.
>
> ASP CODE
>
> Const ForAppend = 8
> Dim objFSO: Set objFSO=CreateObject("Scripting.FileSystemObject")

try Server.CreateObject("Scripting.FileSystemObject")
not
CreateObject("Scripting.FileSystemObject")




> Dim DBConn,rs,social,vpath,vfile,xLine
> Dim WShell
> Set WShell = CreateObject("wscript.shell")
> vPath = WShell.SpecialFolders("MyDocuments") & "\"

you are assuminb that the web server has its own mydocuments folder.

Are you trying to obtain my documents on the server or the client?

if its the client then you need to run the script client side



> vFile = vPath & "Deceased-Information-"
> vFile = vFile & year(now) & month(now) & day(now) & "-"
> vFile = vFile & hour(now) & minute(now) & second(now) & ".html"
> Set DBConn = CreateObject("ADODB.Connection")

Server.CreateObject

script between the <% %> signs is asp server script, it can contact the
resources on the server where it is hosted.

Script inside script tags like this can contact resources
on the clients computer.





> DBConn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data
> Source=dec1"
> sSQL = "select name1,ssn1 from dbtr where status_code=450"
> Set rs = DBConn.Execute(sSQL)
> Set objFile = objFSO.OpenTextFile(vfile, ForAppend, True)
> Do While Not rs.EOF
> social = rs.Fields("ssn1")
> 'objFile.WriteLine PostURL("http://ssdi.rootsweb.com/cgi-bin/
> ssdi.cgi", social)
> response.write(rs.Fields("ssn1"))
> response.write("
")
> rs.moveNext
> loop
>
> Function PostURL(sURL, aPostData)
> Dim XmlHTTP
>
> Set XmlHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
> With XmlHTTP
> .Open "POST", sURL, False
> .setRequestHeader "Content-Type", "application/ x-www-form-
> urlencoded"
> .Send aPostData
> If .Status = 200 Then
> PostURL = .responseText
> Else
> PostURL = "Error!"
> End If
> End with
> Set XmlHTTP = Nothing
>
> End Function
>
>
> VB PROGRAM
> Private Sub deceasedProcess()
> Dim social As String, WShell As Object, vpath As String, vfile
> Set WShell = CreateObject("wscript.shell")
> vpath = WShell.SpecialFolders("MyDocuments") & "\"
> vfile = vpath & "Deceased-Information-" & Format$(Now, "yyyymmdd-
> hhmmss") & ".html"
>
> Dim ssnFile As String, xLine
> ssnFile = "C:\ssn.txt"
> Open ssnFile For Input As #2
> Do While Not EOF(2)
> Line Input #2, xLine
> social = Trim(xLine)
> Open vfile For Append As #1
> Print #1, PostURL("http://ssdi.rootsweb.com/cgi-bin/ssdi.cgi", "ssn="
> & social)
> Close #1
>
> Loop
> Close #2
> Set WShell = Nothing
>
> End Sub
>
> ssn.txt
> --------
> 321127371
> 322142462
> 351441270
>

Re: Data is not pulling from the site

ThatsIT.net.au wrote:
>> Dim objFSO: Set objFSO=CreateObject("Scripting.FileSystemObject")
>
> try Server.CreateObject("Scripting.FileSystemObject")
> not
> CreateObject("Scripting.FileSystemObject")
>
Why? That's neither relevant nor necessary.

>> Dim DBConn,rs,social,vpath,vfile,xLine
>> Dim WShell
>> Set WShell = CreateObject("wscript.shell")
>> vPath = WShell.SpecialFolders("MyDocuments") & "\"
>
> you are assuminb that the web server has its own mydocuments folder.
>
> Are you trying to obtain my documents on the server or the client?
>
> if its the client then you need to run the script client side
>
True

>> Set DBConn = CreateObject("ADODB.Connection")
>
> Server.CreateObject

Again. Neither relevant nor necessary

>
> script between the <% %> signs is asp server script, it can contact
> the resources on the server where it is hosted.
>
> Script inside script tags like this can contact
> resources on the clients computer.
>

Maybe. If the page is an hta page, or the website is in the Trusted security
zone, then what you are saying is correct.


--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

Re: Data is not pulling from the site

--
Dim Alan as ThatsIT.net.au.Staffmember
Alan.signature = "Thank You"
Response.Write Alan.signature.toString()
__________________________________________

"Bob Barrows [MVP]" wrote in message
news:uYvfla5bHHA.2552@TK2MSFTNGP06.phx.gbl...
> ThatsIT.net.au wrote:
>>> Dim objFSO: Set objFSO=CreateObject("Scripting.FileSystemObject")
>>
>> try Server.CreateObject("Scripting.FileSystemObject")
>> not
>> CreateObject("Scripting.FileSystemObject")
>>
> Why? That's neither relevant nor necessary.


You are probably right, but I know there are some objects you must use it
on, also if you are using transactions and if you want a event log entry on
error. Rather than test what ojects need it, i always use it


>
>>> Dim DBConn,rs,social,vpath,vfile,xLine
>>> Dim WShell
>>> Set WShell = CreateObject("wscript.shell")
>>> vPath = WShell.SpecialFolders("MyDocuments") & "\"
>>
>> you are assuminb that the web server has its own mydocuments folder.
>>
>> Are you trying to obtain my documents on the server or the client?
>>
>> if its the client then you need to run the script client side
>>
> True
>
>>> Set DBConn = CreateObject("ADODB.Connection")
>>
>> Server.CreateObject
>
> Again. Neither relevant nor necessary
>
>>
>> script between the <% %> signs is asp server script, it can contact
>> the resources on the server where it is hosted.
>>
>> Script inside script tags like this can contact
>> resources on the clients computer.
>>
>
> Maybe. If the page is an hta page, or the website is in the Trusted
> security zone, then what you are saying is correct.

Agreed, but I think that is just what colleen is trying to do, seeing the
the vb app she showed seems to access only the client


>
>
> --
> Microsoft MVP - ASP/ASP.NET
> Please reply to the newsgroup. This email account is my spam trap so I
> don't check it very often. If you must reply off-line, then remove the
> "NO SPAM"
>

Re: Data is not pulling from the site

"ThatsIT.net.au" wrote in message
news:u0vMqbIcHHA.4312@TK2MSFTNGP05.phx.gbl...
>
>
> --
> Dim Alan as ThatsIT.net.au.Staffmember
> Alan.signature = "Thank You"
> Response.Write Alan.signature.toString()
> __________________________________________
>
> "Bob Barrows [MVP]" wrote in message
> news:uYvfla5bHHA.2552@TK2MSFTNGP06.phx.gbl...
> > ThatsIT.net.au wrote:
> >>> Dim objFSO: Set objFSO=CreateObject("Scripting.FileSystemObject")
> >>
> >> try Server.CreateObject("Scripting.FileSystemObject")
> >> not
> >> CreateObject("Scripting.FileSystemObject")
> >>
> > Why? That's neither relevant nor necessary.
>
>
> You are probably right, but I know there are some objects you must use it
> on,

Oh that's interesting. Which ones?

Re: Data is not pulling from the site

--
Dim Alan as ThatsIT.net.au.Staffmember
Alan.signature = "Thank You"
Response.Write Alan.signature.toString()
__________________________________________

"Anthony Jones" wrote in message
news:eugezwIcHHA.2300@TK2MSFTNGP06.phx.gbl...
>
> "ThatsIT.net.au" wrote in message
> news:u0vMqbIcHHA.4312@TK2MSFTNGP05.phx.gbl...
>>
>>
>> --
>> Dim Alan as ThatsIT.net.au.Staffmember
>> Alan.signature = "Thank You"
>> Response.Write Alan.signature.toString()
>> __________________________________________
>>
>> "Bob Barrows [MVP]" wrote in message
>> news:uYvfla5bHHA.2552@TK2MSFTNGP06.phx.gbl...
>> > ThatsIT.net.au wrote:
>> >>> Dim objFSO: Set objFSO=CreateObject("Scripting.FileSystemObject")
>> >>
>> >> try Server.CreateObject("Scripting.FileSystemObject")
>> >> not
>> >> CreateObject("Scripting.FileSystemObject")
>> >>
>> > Why? That's neither relevant nor necessary.
>>
>>
>> You are probably right, but I know there are some objects you must use it
>> on,
>
> Oh that's interesting. Which ones?
>

I don't remember, that why I always use it.
wait I have found the article where I read it
http://classicasp.aspfaq.com/components/should-i-use-createo bject-or-server-createobject.html

also it points out if you are using JavaScript you must use
server.createobject
I don't use JavaScript and I don't use any third party objects I can think
of either.

like I said I use it just in case, although the article also points out a
overhead, I have never found it to be a problem.

Re: Data is not pulling from the site

"ThatsIT.net.au" wrote in message
news:%23q%23o6NtcHHA.4392@TK2MSFTNGP03.phx.gbl...
>
>
> --
> Dim Alan as ThatsIT.net.au.Staffmember
> Alan.signature = "Thank You"
> Response.Write Alan.signature.toString()
> __________________________________________
>
> "Anthony Jones" wrote in message
> news:eugezwIcHHA.2300@TK2MSFTNGP06.phx.gbl...
> >
> > "ThatsIT.net.au" wrote in message
> > news:u0vMqbIcHHA.4312@TK2MSFTNGP05.phx.gbl...
> >>
> >>
> >> --
> >> Dim Alan as ThatsIT.net.au.Staffmember
> >> Alan.signature = "Thank You"
> >> Response.Write Alan.signature.toString()
> >> __________________________________________
> >>
> >> "Bob Barrows [MVP]" wrote in message
> >> news:uYvfla5bHHA.2552@TK2MSFTNGP06.phx.gbl...
> >> > ThatsIT.net.au wrote:
> >> >>> Dim objFSO: Set objFSO=CreateObject("Scripting.FileSystemObject")
> >> >>
> >> >> try Server.CreateObject("Scripting.FileSystemObject")
> >> >> not
> >> >> CreateObject("Scripting.FileSystemObject")
> >> >>
> >> > Why? That's neither relevant nor necessary.
> >>
> >>
> >> You are probably right, but I know there are some objects you must use
it
> >> on,
> >
> > Oh that's interesting. Which ones?
> >
>
> I don't remember, that why I always use it.
> wait I have found the article where I read it
>
http://classicasp.aspfaq.com/components/should-i-use-createo bject-or-server-createobject.html
>
> also it points out if you are using JavaScript you must use
> server.createobject
> I don't use JavaScript and I don't use any third party objects I can think
> of either.
>
> like I said I use it just in case, although the article also points out a
> overhead, I have never found it to be a problem.
>


That's very interesting. I had thought that as of IIS5 Server.CreateObject
and CreateObject were functionally the same.

With JScript you can't use CreateObject because it doesn't exist. It's
equivalent 'new ActiveXObject()' will work but with the same limitations as
VBscripts CreateObject does.

Re: Data is not pulling from the site

"Anthony Jones" wrote in message
news:%23BJlS2tcHHA.4888@TK2MSFTNGP02.phx.gbl...
>
> "ThatsIT.net.au" wrote in message
> news:%23q%23o6NtcHHA.4392@TK2MSFTNGP03.phx.gbl...
>>
>>
>> --
>> Dim Alan as ThatsIT.net.au.Staffmember
>> Alan.signature = "Thank You"
>> Response.Write Alan.signature.toString()
>> __________________________________________
>>
>> "Anthony Jones" wrote in message
>> news:eugezwIcHHA.2300@TK2MSFTNGP06.phx.gbl...
>> >
>> > "ThatsIT.net.au" wrote in message
>> > news:u0vMqbIcHHA.4312@TK2MSFTNGP05.phx.gbl...
>> >>
>> >>
>> >> --
>> >> Dim Alan as ThatsIT.net.au.Staffmember
>> >> Alan.signature = "Thank You"
>> >> Response.Write Alan.signature.toString()
>> >> __________________________________________
>> >>
>> >> "Bob Barrows [MVP]" wrote in message
>> >> news:uYvfla5bHHA.2552@TK2MSFTNGP06.phx.gbl...
>> >> > ThatsIT.net.au wrote:
>> >> >>> Dim objFSO: Set objFSO=CreateObject("Scripting.FileSystemObject")
>> >> >>
>> >> >> try Server.CreateObject("Scripting.FileSystemObject")
>> >> >> not
>> >> >> CreateObject("Scripting.FileSystemObject")
>> >> >>
>> >> > Why? That's neither relevant nor necessary.
>> >>
>> >>
>> >> You are probably right, but I know there are some objects you must use
> it
>> >> on,
>> >
>> > Oh that's interesting. Which ones?
>> >
>>
>> I don't remember, that why I always use it.
>> wait I have found the article where I read it
>>
> http://classicasp.aspfaq.com/components/should-i-use-createo bject-or-server-createobject.html
>>
>> also it points out if you are using JavaScript you must use
>> server.createobject
>> I don't use JavaScript and I don't use any third party objects I can
>> think
>> of either.
>>
>> like I said I use it just in case, although the article also points out a
>> overhead, I have never found it to be a problem.
>>
>
>
> That's very interesting. I had thought that as of IIS5
> Server.CreateObject
> and CreateObject were functionally the same.
>
> With JScript you can't use CreateObject because it doesn't exist. It's
> equivalent 'new ActiveXObject()' will work but with the same limitations
> as
> VBscripts CreateObject does.
>

Yes of cause, silly me.