IIS ASP - get the my document path info

This is Interesting: Free IT Magazines  
Home > Archive > IIS ASP > March 2007 > get the my document path info





You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author get the my document path info
colleen1980@gmail.com

2007-03-23, 1:22 pm

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

2007-03-23, 1:22 pm


<colleen1980@gmail.com> wrote in message
news:1174654264.704429.143910@n59g2000hsh.googlegroups.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
>



Sponsored Links






Free braindumps | Software forum | Database administration forum

Copyright 2003 - 2008 webservertalk.com