«

Hi: Can any one please tell me how to i get the my document path infor
of user computer thru ASP code. I try the VB6 code but it dont work
their?
Thanks.

Dim DBConn,rs,social,vpath,vfile
Dim WShell As Object
Set WShell = CreateObject("wscript.shell")
vPath = WShell.SpecialFolders("MyDocuments") & "\"
Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open "ODBC; Driver=Adaptive Server Anywhere 6.0;
DSN=Debtmaster; uid=dm; pwd=,,PeAches..;"
sSQL = "select name1,ssn1 from dbtr where status_code=450 and
status_date=today(*) "
Set rs = DBConn.Execute(sSQL)
Do While Not rs.EOF
response.write(rs.Fields("ssn1"))
response.write("<br>")
rs.moveNext
loop

<> wrote in message
news: oups.com...
> Hi: Can any one please tell me how to i get the my document path infor
> of user computer thru ASP code. I try the VB6 code but it dont work
> their?
> Thanks.

In what way does it not work?
Where is this code running on the server in ASP or in the Browser on the
client?

The server is the wrong place to attempt to file a users personal folder.

On the client this sort of code will be considered unsafe and be blocked.

>
> Dim DBConn,rs,social,vpath,vfile
> Dim WShell As Object
> Set WShell = CreateObject("wscript.shell")
> vPath = WShell.SpecialFolders("MyDocuments") & "\"
> Set DBConn = CreateObject("ADODB.Connection")
> DBConn.Open "ODBC; Driver=Adaptive Server Anywhere 6.0;
> DSN=Debtmaster; uid=dm; pwd=,,PeAches..;"
> sSQL = "select name1,ssn1 from dbtr where status_code=450 and
> status_date=today(*) "
> Set rs = DBConn.Execute(sSQL)
> Do While Not rs.EOF
> response.write(rs.Fields("ssn1"))
> response.write("<br>")
> rs.moveNext
> loop
>