Can not connect to Visual Source Safe from ASP

#1 July 19th, 2005, 02:58 PM

Here is the portion of the asp pages(vb script) that fails:
SrcSafeIni = "F:\Microsoft Visual Studio\VSS\441_VSS\srcsafe.ini"
UserName ="Admin"
Password =""

'On Error Resume Next

Set objVSSDatabase = Server.CreateObject("Sourcesafe")
objVSSDatabase.Open SrcSafeIni,UserName,Password

If Err.Number <> 0 Then
Response.Write "Could Not Connect to the Repository Database"
Response.Write "<BR>"
Response.Write Err.Number & "*****" & Err.Description
Err.Clear

'Response.Write "test"
'Response.Write objVSSDatabase.DatabaseName

End If

The error is :
Error Type:
Microsoft VBScript runtime (0x800A0007)
Out of memory: 'Open'

The same script will work fine if it was adapted and saved as a vbs
file and run by double cliking on it, so this probably means that
something needs to be done to the IIS settings....

Any help will be appreciated.

Thank you

#2 July 19th, 2005, 02:59 PM

"MEHDI" <mehdi_usa@excite.com> wrote in message
news:cdd7024.0409011441.37df1db6@posting.google.co m...[color=blue]
> Here is the portion of the asp pages(vb script) that fails:
> SrcSafeIni = "F:\Microsoft Visual Studio\VSS\441_VSS\srcsafe.ini"
> UserName ="Admin"
> Password =""
>
> 'On Error Resume Next
>
> Set objVSSDatabase = Server.CreateObject("Sourcesafe")
> objVSSDatabase.Open SrcSafeIni,UserName,Password
>
> If Err.Number <> 0 Then
> Response.Write "Could Not Connect to the Repository Database"
> Response.Write "<BR>"
> Response.Write Err.Number & "*****" & Err.Description
> Err.Clear
>
> 'Response.Write "test"
> 'Response.Write objVSSDatabase.DatabaseName
>
> End If
>
> The error is :
> Error Type:
> Microsoft VBScript runtime (0x800A0007)
> Out of memory: 'Open'
>
> The same script will work fine if it was adapted and saved as a vbs
> file and run by double cliking on it, so this probably means that
> something needs to be done to the IIS settings....[/color]

Is F: a mapped drive or local drive?
http://support.microsoft.com/?kbid=257174
http://www.aspfaq.com/show.asp?id=2168

--
Tom Kaminski IIS MVP
http://www.microsoft.com/windowsserv...y/centers/iis/
http://mvp.support.microsoft.com/
http://www.iisfaq.com/
http://www.iistoolshed.com/ - tools, scripts, and utilities for running IIS
http://www.tryiis.com

#3 July 19th, 2005, 02:59 PM

Tom:
Thank you for your reply.
F: is a local drive and I gave everyone full control on the folder
F:\Microsoft Visual Studio

Thanks

"Tom Kaminski [MVP]" <tomk (A@T) mvps (D.O.T) org> wrote in message news:<ch76pr$7ml6@kcweb01.netnews.att.com>...[color=blue]
> "MEHDI" <mehdi_usa@excite.com> wrote in message
> news:cdd7024.0409011441.37df1db6@posting.google.co m...[color=green]
> > Here is the portion of the asp pages(vb script) that fails:
> > SrcSafeIni = "F:\Microsoft Visual Studio\VSS\441_VSS\srcsafe.ini"
> > UserName ="Admin"
> > Password =""
> >
> > 'On Error Resume Next
> >
> > Set objVSSDatabase = Server.CreateObject("Sourcesafe")
> > objVSSDatabase.Open SrcSafeIni,UserName,Password
> >
> > If Err.Number <> 0 Then
> > Response.Write "Could Not Connect to the Repository Database"
> > Response.Write "<BR>"
> > Response.Write Err.Number & "*****" & Err.Description
> > Err.Clear
> >
> > 'Response.Write "test"
> > 'Response.Write objVSSDatabase.DatabaseName
> >
> > End If
> >
> > The error is :
> > Error Type:
> > Microsoft VBScript runtime (0x800A0007)
> > Out of memory: 'Open'
> >
> > The same script will work fine if it was adapted and saved as a vbs
> > file and run by double cliking on it, so this probably means that
> > something needs to be done to the IIS settings....[/color]
>
> Is F: a mapped drive or local drive?
> http://support.microsoft.com/?kbid=257174
> http://www.aspfaq.com/show.asp?id=2168[/color]

#4 July 19th, 2005, 02:59 PM

Tom:
I wanted to make sure that the file can be read so I wrote the page
below and it displayed the content of the file F:\Microsoft Visual
Studio\VSS\441_VSS\srcsafe.ini.
So it can get to the file but it can not connect to VSS from the ASP
page but can from a VBS page! IUSR_ has access to VSS.

<%@ Language=VBScript %>
<% Option Explicit %>
<html>

<head>
<title></title>
</head>

<body>

<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim objTextStream

const strFileName = "F:\Microsoft Visual
Studio\VSS\441_VSS\srcsafe.ini"
const fsoForReading = 1

If objFSO.FileExists("F:\Microsoft Visual
Studio\VSS\441_VSS\srcsafe.ini") then
'The file exists, so open it and output its contents
Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
Response.Write "" & objTextStream.ReadAll & ""
objTextStream.Close
Set objTextStream = Nothing
Else
'The file did not exist
Response.Write strFileName & " was not found."
End If

'Clean up
Set objFSO = Nothing

%>

</BODY>
</HTML>

What is Bytes?

Popular Articles