hvad er der galt

for følgende fejl

Microsoft VBScript runtime error \'800a004c\'

Path not found

/privat/postkort/default.asp, line 37






<!--#INCLUDE FILE =\"code_lib.asp\" -->
<body text=\"#D034D0\" bgcolor=\"#FFFFCC\" link=\"#D034D0\" vlink=\"#D034D0\" alink=\"#D034D0\">
<CENTER>
<% = overskrift %>Postkort<% = fe %>
</CENTER>
<CENTER>
<%
if kort_sendt = \"ok\" then
Response.Write fedstor &\"Kort er sendt\" & fe
elseif kort_sendt = \"fejl\" then
Response.Write fejlfont &\"Alle felter SKAL udfyldes og billede SKAL vælges !\" & fe
end if

if kort_sendt <> \"ok\" then
%>
<TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"3\">
  <TR>
    <FORM ACTION=\"default.asp\" METHOD=\"POST\">
    <INPUT TYPE=\"HIDDEN\" NAME=\"mode\" VALUE=\"sendkort\">

<%
taller = 0
dirtowalk = billedmappe
Set fs = CreateObject(\"Scripting.FileSystemObject\")
Set f = fs.GetFolder(server.mappath(dirtowalk)
Set fc = f.Files
For Each whatever in fc
if taller = 0 then
Response.Write \"<TR>\"
end if
%>
        <IMG SRC=\"<% = billedmappe %>/<% = whatever.name %>\" WIDTH=\"<% = img_width %>\" HEIGHT=\"<% = img_height %>\">
        <INPUT TYPE=\"RADIO\" NAME=\"billednavn\" VALUE=\"<% = whatever.Name %>\" <% if Request.Form(\"billednavn\") = Whatever.Name then Response.Write \"CHECKED\" %>
<%
if taller = 1 then
Response.Write \"</TR>\"
taller = 0
else
taller = taller + 1
end if
Next
%>
  <TR>
    <TD COLSPAN=\"2\">
        <TABLE BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"3\">
          <TR>
            <TD>
                <%  = fednormal %>
                Modtager e-mail:       
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <INPUT TYPE=\"TEXT\" SIZE=\"25\" NAME=\"to_email\" <% if Request.Form(\"to_email\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"to_email\") &\"\"\"\" %>>
            </TD>
          </TR>
          <TR>
            <TD>
                <%  = fednormal %>
                Modtager navn:   
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <INPUT TYPE=\"TEXT\" SIZE=\"25\" NAME=\"to_name\" <% if Request.Form(\"to_name\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"to_name\") &\"\"\"\" %>>
            </TD>
          </TR>
          <TR>
            <TD>
                <%  = fednormal %>
                Afsender e-mail:
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <INPUT TYPE=\"TEXT\" SIZE=\"25\" NAME=\"from_email\" <% if Request.Form(\"from_email\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"from_email\") &\"\"\"\" %>>
            </TD>
          </TR>
          <TR>
            <TD>
                <%  = fednormal %>
                Afsender navn:
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <INPUT TYPE=\"TEXT\" SIZE=\"25\" NAME=\"from_name\" <% if Request.Form(\"from_name\") <> \"\" then Response.Write \"VALUE=\"\"\"& Request.Form(\"from_name\") &\"\"\"\" %>>
            </TD>
          </TR>
          <TR>
            <TD>
                <%  = fednormal %>
                Besked
                <%  = fe %>
            </TD>
          </TR>
          <TR>
            <TD>
                <TEXTAREA COLS=\"30\" ROWS=\"5\" NAME=\"besked\"><% if Request.Form(\"besked\") <> \"\" then Response.Write Request.Form(\"besked\") %></TEXTAREA><BR>
            </TD>
          </TR>
          <TR>
            <TD ALIGN=\"RIGHT\">
                <INPUT TYPE=\"SUBMIT\" VALUE=\"Send postkort\">
            </TD>
          </TR>
        </TABLE>
        </FORM>
    </TD>
  </TR>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>