Kode der KUN virker lokal !
Jeg har et problem med noget kode til at vise mails, det virker fint på min egen pc, gennem pws, men på min web-hotel får jeg en fejl, det vil sige der kommer ikke nogen fejl meddelese , det virker som om at koden låser og så sker der ikke noget.Jeg er selv kommet så langt at jeg kan få det til at virke hvis der ingen filer er vedhæftet, og jeg fjerne den første del af koden.
Er der nogen der kan løse problemet ? Dette er koden:
<!-- #include file=\"urlreplace.asp\" -->
<!-- #include file=\"functions.asp\" -->
<%
response.buffer = true
\'******************Hvis dette fjernes virker det ok hvis det ikke er vedhæftet en fil******************
Function FindesFilen(strSti)
Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")
If objFSO.FileExists(strSti) then
FindesFilen = \"yes\"
Else
FindesFilen = \"no\"
End If
Set objFSO = Nothing
End Function
sti = Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"attachments\"
If FolderExist(sti) = \"no\" Then
Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set f = fso.CreateFolder(sti)
Set f = Nothing
end if
Set MyDirectory = Server.CreateObject(\"Scripting.FileSystemObject\")
Set MyFiles = MyDirectory.GetFolder(sti)
numfiles = 0
For each filefound in MyFiles.files
numfiles = numfiles+1
Next
if numfiles > 0 then
Dim fileObj
Set fileObj = Server.CreateObject(\"Scripting.FileSystemObject\")
\'sti = Server.Mappath(\"attachments\")
fileObj.DeleteFile sti&\"\\*.*\", False
Set fileObj = Nothing
end if
\'******************Hvis ovenstående fjernes virker det ok hvis det ikke er vedhæftet en fil******************
if request.querystring(\"mode\") = \"logoff\" then
session(\"username\") = \"\"
session(\"password\") = \"\"
session(\"servername\") = \"\"
response.redirect (\"vis_event.asp\")
else
end if
%>
<html>
<head>
<title>Hent din personlige E-mails</title>
<head>
<%look=Session(\"look\")%>
<link rel=\"stylesheet\" type=\"text/css\" href=\"<%=look%>\">
<class=\"lille\">
</head>
<blockquote>
<TABLE>
<TR>
<TD><h2>Hent din personlige E-mails</h2>
</TD>
</TR>
</TABLE>
<!-- <div align=right><a href=?mode=logoff>Afslut visning af E-mails</a></div>
-->
<%
session(\"password\") = Session(\"mail_kode\")
session(\"username\") = Session(\"mail_login\")
session(\"servername\") = Session(\"mail_server\")
if session(\"username\") = \"\" then
response.redirect (\"vis_event.asp\")
end if
if session(\"username\") = \"\" then %>
<form method=post>
<table>
<tr>
<td>
Server:
</td>
<td>
<input type=text name=servername value=\"\">
</td>
</tr>
<tr>
<td>
Username:
</td>
<td>
<input type=text name=username value=\"\">
</td>
</tr>
<tr>
<td>
Password:
</td>
<td>
<input type=password name=password>
</td>
</tr>
</table>
<input type=submit value=Login...>
</form>
<!-- <img src=\"http://www.cht.dk/count.asp\" alt=\"\" width=1 height=1 align=right> -->
<%
end if
if session(\"username\") <> \"\" then
if request.querystring(\"delete\") <> \"\" then
Set pop3 = Server.CreateObject(\"JMail.POP3\")
pop3.Connect session(\"username\"), session(\"password\"), session(\"servername\")
pop3.DeleteSingleMessage request.querystring(\"delete\")
pop3.Disconnect
Set pop3 = nothing
response.redirect \"pop3list.asp\"
end if
if request.querystring(\"messagenum\") = \"\" then
response.redirect \"pop3list.asp\"
end if
%>
<!-- <a href=\"pop3list.asp\">Tilbage til oversigt</a>
-->
<%
Set pop3 = Server.CreateObject(\"JMail.POP3\")
pop3.Connect session(\"username\"), session(\"password\"), session(\"servername\")
\'Response.Write( \" <BR><TABLE><TR><TD>Du har \" & pop3.count & \" E-mails!</TR></TABLE>\" )
\'if request.querystring(\"showheaders\") <> \"yes\" then
\' response.write \"<a href=?showheaders=yes&messagenum=\" & request.querystring(\"messagenum\") & \">Vis headers</a>\"
\'else
\' response.write \"<a href=?showheaders=no&messagenum=\" & request.querystring(\"messagenum\") & \">Skjul headers</a>\"
\'end if
\'MyDate = Right(\"0\"&Day(now),2) & \"/\" & Right(\"0\"&Month(now),2) & \"-\" & Year(now) & \" \" & FormatDateTime(Time,3)
\'response.write \"<div align=right>\" & MyDate & \"</div>\" & VbCrLf
Function getAttachments()
Set Attachments = msg.Attachments
separator = \", \"
for i = 0 To Attachments.Count - 1
if i = Attachments.Count - 1 then
separator = \"\"
end if
Set at = Attachments(i)
if FindesFilen(Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\attachments\\\"&at.Name) = \"no\" then
at.SaveToFile(\"\"&Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\attachments\\\"&at.Name&\"\")
getAttachments = getAttachments & \"<a href=\"\"/attachments/\" &_
at.Name &\"\"\">\" & at.Name & \" (\" & at.Size & \" bytes)\" &_
\"</a>\" & separator
else
getAttachments = getAttachments & \"filen findes\" & separator
end if
next
End Function
\'For h = 1 to pop3.count
h = request.querystring(\"messagenum\")
\'response.write \"<hr><b>Besked \" & h & \"</b> <a href=?delete=\" & h & \">Slet</a><br>\"
\'response.write \"<TABLE><TR><TD><hr><b>Besked \" & h & \"</b></TR></TD></TABLE><br>\"
%>
<input type=\"button\" value=\"Afslut visning af E-mails\" onClick=\"parent.basefrm.location=\'?mode=logoff\'\" style=\"width:174;\" class=\"submitButton\">
<input type=\"button\" value=\"Slet denne E-mail\" onClick=\"parent.basefrm.location=\'?delete=<%=h%>\'\" style=\"width:174;\" class=\"submitButton\">
<input type=\"button\" value=\"Tilbage til oversigt\" onClick=\"parent.basefrm.location=\'pop3list.asp\'\" style=\"width:174;\" class=\"submitButton\">
<%
if request.querystring(\"showheaders\") <> \"yes\" then
nummer=request.querystring(\"messagenum\")
%>
<input type=\"button\" value=\"Vis headers\" onClick=\"parent.basefrm.location=\'?showheaders=yes&messagenum=<%=nummer%>\'\" style=\"width:174;\"class=\"submitButton\">
<%
else
nummer=request.querystring(\"messagenum\")
%>
<input type=\"button\" value=\"Skjul headers\" onClick=\"parent.basefrm.location=\'?showheaders=no&messagenum=<%=nummer%>\'\" style=\"width:174;\" class=\"submitButton\">
<%
end if
\'if pop3.count > 0 then
Set msg = pop3.Messages.item(h)
\' Note the first element of this array is 1,
\' since the POP3 server starts counting at 1
ReTo = \"\"
ReCC = \"\"
Set Recipients = msg.Recipients
separator = \", \"
\' We now need to get all the recipients,
\' both normal and Carbon Copy (CC) recipients
\' and store them in a variabel
for i = 0 To Recipients.Count - 1
if i = Recipients.Count - 1 then
separator = \"\"
end if
Set re = Recipients.item(i)
if re.ReType = 0 then
ReTo = ReTo & re.Name & \" (\" & re.EMail & \")\" & separator
else
ReCC = ReTo & re.Name & \" (\" & re.EMail & \")\" & separator
end if
next
\' This function iterates through the Attachments object,
\' and saves the attachment to the server\'s disk.
\' It also returns a nicely formatted string with a
\' link to the attachment.
%><table border=0 style=\"border: 1 solid #000000\" width=\"90%\"><%
if request.querystring(\"showheaders\") = \"yes\" then
Set Headers = msg.Headers
%><tr><td colspan=2 style=\"border-bottom-style: solid; border-bottom-width: 1; padding: 1\"><%
Response.Write \"<small>\" & Replace(Headers.Text,VbCrLf,\"<br>\"&VbCrLf) & \"</small>\"
Response.Write \"<small>X-Mailer: \" & Replace(Headers.GetHeader(\"X-Mailer\"),VbCrLf,\"<br>\"&VbCrLf) & \"</small><br>\"
response.write \"</td></tr>\"
end if
Response.Write vbCrLf
response.write \"<tr><td colspan=2> </td></tr>\"
Response.Write \"<tr><td><b>From:</b></td><td>\" & msg.FromName & \" (\" & msg.From &\")</td></tr>\" + vbCrLf
Response.Write \"<tr><td><b>Date:</b></td><td>\"&msg.Date&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td nospan><b>Recipients To:</b></td><td>\"&ReTO&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td nospan><b>Recipients CC:</b></td><td>\"&ReCC&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td nospan><b>Subject:</b></td><td>\"&msg.Subject&\"</td></tr>\" + vbCrLf
Response.Write \"<tr><td nospan><b>Attachments:</b></td><td>\"&getAttachments&\"</td></tr>\" + vbCrLf
if request.querystring(\"showlinks\") = \"no\" then
Response.Write \"<tr><td valign=top><b>Body:</b></td><td><pre>\"& (msg.Body)&\"</pre></td></tr>\" + vbCrLf
Response.Write \"</table>\" + vbCrLf
else
Response.Write \"<tr><td valign=top><b>Body:</b></td><td><!--pre--->\"& autoHighlight(Replace(msg.Body,VbCrLf,\" <br>\"))&\"</pre></td></tr>\" + vbCrLf
Response.Write \"</table>\" + vbCrLf
end if
\'end if
\'response.write \"<hr>\"
response.write msg.ErrorMessage
pop3.Disconnect
Set pop3 = nothing
end if
%>
</blockquote>
</body>
</html>
