get the my document path info

[colleen1980]

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

[Anthony Jones]

<co*********@gmail.comwrote in message
news:11**********************@n59g2000hsh.googlegr 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