Error Type:Server.MapPath(), ASP 0171 (0x80004005)
I'm getting this error :
Error Type:
Server.MapPath(), ASP 0171 (0x80004005)
The Path parameter must be specified for the MapPath method.
/runFile.asp, line 10
here is the code :
<html>
<script language="javascript">
<%
dim runFileName, logFileCreated, physicalPath, logFileName
dim sqlFileName, batchFileName , remoteHost
dim db_conn, db_rec, sql, oraUser, oraPwd, oraService
physicalPath = Server.MapPath(Request.Form("relativePath"))
set fs = Server.CreateObject("Scripting.FileSystemObject")
logFileCreated= 0
sqlFileName = Request.form("sqlFileName")
batchFileName = Request.Form("batchFileName")
remoteHost = Request.Form("remoteHost")
set objScriptShell = Server.CreateObject("WScript.Shell")
if (batchFileName <> "") then
runFile()
else
set dbConn = server.createObject("adodb.connection")
dbConn.open(db_connstr)
sql = "select userName, password, serviceName from dbConnect where isActive = 1"
set db_rec = server.createObject("adodb.recordset")
db_rec.open sql, dbConn
oraUser = db_rec.Fields(0)
oraPwd = db_rec.Fields(1)
oraService = db_rec.Fields(2)
set db_rec = nothing
set dbConn = nothing
runFileName = physicalPath & replace(sqlFileName, "\", "\temp_")
logFileName = physicalPath & replace(sqlFileName, ".sql", ".log")
set currFile = fs.createTextFile(runFileName, true)
currFile.writeLine("@""" & physicalPath & sqlFileName & """")
currFile.writeLine("exit")
currFile.close
objScriptShell.Run "%ComSpec% /c sqlplus " &oraUser& "/"& oraPwd &"@"& oraService &" @""" & runFileName & """ >>""" & logFileName & """", 0, TRUE
fs.deleteFile(runFileName)
end if
'check if log file has been created
if (fs.fileExists(logFileName)) then
logFileCreated = 1
end if
sub runFile()
runFileName = physicalPath & batchFileName
logFileName = replace(runFileName, ".bat", ".log")
if (remoteHost <> "") then
objScriptShell.Run "%ComSpec% /c copy " & runFileName & " \\" & remoteHost & "\c$", 0, TRUE
objScriptShell.Run Server.mapPath("soon.exe") & " \\" & remoteHost & " 60 c:\" & batchFileName & " >>" & logFileName , 0, TRUE
else
objScriptShell.Run "%ComSpec% /c " & runFileName & " >>" & logFileName, 0, TRUE
//response.write( "%ComSpec% /c " & runFileName & " >>" & logFileName)
end if
end sub
%>
// set values of fields in form
function load()
{
document.forms['runBatch_Submitform'].logFileCreated.value = "<% response.write(logFileCreated) %>";
document.forms['runBatch_Submitform'].relativePath.value = "<% response.write( replace(Request.Form("relativePath"),"\","\\")) %>";
document.forms['runBatch_Submitform'].projID.value ="<% response.write(Request.Form("projID")) %>";
document.forms['runBatch_Submitform'].action = "operationConsole.asp";
document.forms['runBatch_Submitform'].submit();
}
</script>
<body onLoad="load();">
<form name="runBatch_Submitform" method="post">
<input type="hidden" name="relativePath" id="relativePath">
<input type="hidden" name="projID" id="projID">
<input type="hidden" name="logFileCreated" id="logFileCreated">
</form>
</body>
</html>
[/code]
|
