Har en Line fejl plz hjælp mig
Hej jeg har lavet en Wap side på min hjemmeside www.upit.dk (ikke helt oppe endnu), men nu er der kommet en linje fejl...her er det dokument der er fejl i ...<link rel="stylesheet" type="text/css" href="css.css">
<%
area = request.querystring("area")
if lcase(area) = "" then
velkommen()
end if
if lcase(area) = "poly" then
overskrift = "Polyfoniske RIngetoner"
velkommen2()
uploadfunktion()
ShowFolder lcase(area)
end if
if lcase(area) = "java" then
overskrift = "Java Games"
velkommen2()
uploadfunktion()
ShowFolder lcase(area)
end if
if lcase(area) = "pict" then
overskrift = "Billeder"
velkommen2()
uploadfunktion()
ShowPictureFolder lcase(area)
end if
%>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub velkommen()
%>
<title>Upit.dk Wapsiden</title>
</head>
<body>
<p><font size="7" face="Arial Black">Upit.dk - WAP</font></p>
<p><font face="Arial" size="5"><a href="default.asp?area=poly">Polyfoniske
Ringetoner</a></font></p>
<p><font face="Arial" size="5"><a href="default.asp?area=java">Java Games</a></font></p>
<p><font face="Arial" size="5"><a href="default.asp?area=pict">Billeder</a></font></p>
<p><font face="Arial">wap adressen er: <u>http://UpIt/wap/wap.asp</u></font></p>
<%
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub velkommen2()
%>
<font size="7" face="Arial Black">Upit.dk - WAP</font><br>
<font face="Arial" size="5"><%=overskrift%></font>
<%
end sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub uploadfunktion()
%>
<FORM method="post" encType="multipart/form-data" action="upload.asp?upload=<%=area%>">
<INPUT type="File" class="INPUT" name="<%=area%>">
<INPUT type="Submit" value="Upload" name="Upload">
</form>
<%
end sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub ShowFolder(foldername)
Set objFSObject = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSObject.GetFolder("c:\wap\" + foldername)
Set colFiles = objFolder.Files
templetter = ""
'Loop through Each file, construct the image, url, and name
'and write them out To the html stream using Response.Write
For Each intF1 in colFiles
if letter = "" then
if not templetter = ucase(mid(intF1.name,1,1)) then
templetter = ucase(mid(intF1.name,1,1))
%>
<br>
<br><font face="Arial" size="3"><b><%=templetter%></b></font>
<%
end if
end if
strFName = Replace(Replace(intF1.name , " ", "_"), "&", "og")
%>
<br><font size="2" face="Arial"><a href="<%=area%>/<%=strFName%>"><%=strFName%></a></font>
<%
Next 'intF1
end sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub ShowPictureFolder(foldername)
%>
<table border="0" cellspacing="3" cellpadding="0" width="540">
<%
Set objFSObject = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSObject.GetFolder("c:\wap\" + foldername)
Set colFiles = objFolder.Files
templetter = ""
picrow = 0
'Loop through Each file, construct the image, url, and name
'and write them out To the html stream using Response.Write
For Each intF1 in colFiles
picrow = picrow +1
if picrow = 4 then
response.write "</tr>"
picrow = 0
end if
if letter = "" then
if not templetter = ucase(mid(intF1.name,1,1)) then
templetter = ucase(mid(intF1.name,1,1))
picrow = 0
%>
</tr>
</table>
<br>
<br><font face="Arial" size="3"><b><%=templetter%></b></font>
<table border="0" cellspacing="3" cellpadding="0" width="540">
<tr>
<%
end if
end if
strFName = Replace(Replace(intF1.name , " ", "_"), "&", "og")
%>
<td width="25%" align="center">
<p align="center"><img border="0" src="<%=area%>/<%=strFName%>">
<br align="center"><%=strFName%></p>
</td>
<%
Next 'intF1
%>
</tr>
</table>
<%
end sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
