7
HI!!!
I request you to kindly go through the code... I'm getting an error in line 71 as
"Unterminated String Constant" which I'm not able to find out. Please help me at the earliest.
-------------------------------------------------------------------------------------------------------------------
<%@ Language=VBScript %>
<% Response.CacheControl = "no-cache" %>
<%Response.Expires = -1%>
<%
if isEmpty(Session("uid")) then
Response.Redirect "../blank.htm"
Response.End
end if
%>
<!-- #include file="../connection.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>ISL e-Facilitator</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<link rel="stylesheet" type="text/css" href="../../stylesheet/isl.css">
<script language="javascript" type="text/javascript" src="../../javascript/isl.js"></script>
<script language="javascript">
<!--
function openDiv(strDiv){
if(strDiv == "Div1"){
document.getElementById("Div2").style.visibility = "hidden";
document.getElementById("ResFile").className = "NonActiveTabHeader"
document.getElementById("Div1").style.visibility = "visible";
document.getElementById("PrjFile").className = "ActiveTabHeader"
}else if(strDiv == "Div2"){
document.getElementById("Div1").style.visibility = "hidden";
document.getElementById("PrjFile").className = "NonActiveTabHeader"
document.getElementById("Div2").style.visibility = "visible";
document.getElementById("ResFile").className = "ActiveTabHeader"
}
}
function openFileRes(strFileName){
strURL = "../../ISLResource/"+strFileName;
window.open(strURL,"_new")
}
function openPage(strURL){
window.open(strURL,"rightFrame","");
}
function uploadRes(){
if(document.uploadPrj.briefdesc.value.length == 0){
alert("Please enter a small description about the file.");
document.uploadPrj.briefdesc.focus();
return false;
}
if(document.uploadPrj.briefdesc.value.length > 500){
alert("Description must not be more than 500 characters.");
document.uploadPrj.briefdesc.focus();
return false;
}
document.uploadPrj.action = "submituploadRes.asp";
document.uploadPrj.submit();
}
-->
</script>
</head>
<body topmargin="10" onload="openDiv('Div1')">
<table border="0" align="left" width="525" cellpadding="0" cellspacing="0">
<tr>
<td id="PrjFile" width="110" height="20" align="center" class="ActiveTabHeader" onmouseover="style.cursor='hand';" onclick="openDiv('Div1')">Download</td>
<td id="ResFile" width="100" height="20" align="center" class="NonActiveTabHeader" onmouseover="style.cursor='hand';" onclick="openDiv('Div2')">Upload</td>
<td width="325" height="20"></td>
</tr>
<tr>
<td>
<div id="Div1" style="position:absolute; visibility:hidden; border-style:solid; border-width:1px; border-color:#788A96">
<table border="0" align="left" width="525" cellpadding="0" cellspacing="2">
<tr>
<!--
-->
</tr>
<%
'Set Rs = Con.Execute("select file_name, upload_by, description from resource_file order by file_date desc")
Set Rs = Con.Execute("dbo.listResFile " & Request.QueryString("beginRec") & "," & Request.QueryString("endRec") & "," & Request.QueryString("pageid"))
If Not Rs.EOF Then
Response.Write "<td width=225 height=20 bgcolor=silver style=""padding-left:5px;"" class=ProjectList><b>Name</b></td>"
Response.Write "<td width=225 height=20 bgcolor=silver style=""padding-left:5px;"" class=ProjectList><b>Upload By</b></td>"
Response.Write "<td width=75 height=20 bgcolor=silver style=""padding-left:5px;"" class=ProjectList><b>Size</b></td>"
While Not Rs.EOF
fPath = Server.MapPath("../../ISLResource/" & Rs(0))
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(fPath)
Response.Write "<tr>"
Response.Write "<td width=225 height=18 bgcolor=#dcdcdc style=""padding-left:2px;"" class=ProjectList><a onmouseover=""style.cursor='hand';"" onclick=openFileRes('" & file.name & "')>" & file.name & "</a></td>"
Response.Write "<td width=225 height=18 bgcolor=#dcdcdc style=""padding-left:2px;"" class=ProjectList nowrap>" & Rs(1) & "</td>"
Response.Write "<td align=right width=75 height=18 bgcolor=#dcdcdc style=""padding-right:2px;"" class=ProjectList>" & CInt((file.Size/1024)) & " Kb</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=525 colspan=3 height=18 bgcolor=#E5E6E8 style=""padding-left:2px;padding-bottom:10px;"" class=ProjectList nowrap>" & Rs(2) & "</td>"
Response.Write "</tr>"
Set folder = Nothing
Set fso = Nothing
Rs.MoveNext
Wend
iFirst = 0
iLast = 10
Rs.MoveFirst
Response.Write "<tr>"
Response.Write "<td width=525 colspan=3 height=18 align=right style=""padding-top:10px;padding-left:2px;padding-bottom:10px;"" class=ProjectList nowrap>"
If Rs(3) > 1 Then
For i=1 to Rs(3)
If i = CInt(Request.QueryString("pageid")) Then
Response.Write i & " "
Else
strURL = "download.asp?beginRec=" & iFirst & "&endRec=" & iLast & "&pageid=" & i
Response.Write "<a onmouseover=""style.cursor='hand';"" onclick=""openPage('" & strURL & "')""><u>" & i & "</u></a> "
End If
iFirst = iFirst + 10
iLast = iLast + 10
Next
End If
Response.Write "</td>"
Response.Write "</tr>"
Else
Response.Write "<tr>"
Response.Write "<td height=18 align=center style=""padding-left:2px;"" class=ProjectList>File Not Available.</td>"
Response.Write "</tr>"
End If
%>
</table>
</div>
<div id="Div2" style="position:absolute; visibility:hidden; border-style:solid; border-width:1px; border-color:#788A96">
<form name="uploadPrj" method="post" enctype="multipart/form-data">
<table border="0" align="left" width="100%" cellpadding="0" cellspacing="0">
<tr><td colspan="2" style="padding-left:10px; padding-right:5px; padding-top:10px; text-align:justify" class="ProjectList">
Upload only those files which are not related to your project. The files uploaded from this screen goes to
a common folder from where everybody can access them.
</td></tr>
<tr>
<td style="padding-left:10px; padding-right:5px; padding-top:10px;" class="ProjectList">File</td>
<td align="right" style="padding-top:10px; padding-right:5px;">
<input type="file" size="60" name="fileprj1" class="FormObject"></td>
</tr>
<tr>
<td valign="top" style="padding-left:10px; padding-right:5px; padding-top:10px;" class="ProjectList">Description</td>
<td align="right" style="padding-top:10px;padding-right:5px;">
<textarea rows="5" cols="70" name="briefdesc" class="FormObject"></textarea></td>
</tr>
<tr><td colspan="2" align="right" style="padding-right:5px; padding-top:5px;">
<a href="#" onclick="uploadRes()">
<img src="../../images/floppy.jpg" border="0" alt="Save" >
</td></tr>
</table>
</form>
</div>
</td>
</tr>
</table>
</body>
</html>
---------------------------------------------------------------------------------
Thanks in advance.
Prasanthi
