Kode fejl !

Prøv dette:

34 <%
35 taller = 0
36 foto = "/billedmappe/"
37 Set fs = CreateObject("Scripting.FileSystemObject")
38 Set f = fs.GetFolder(server.mappath(foto))
39 Set fc = f.Files
40 For Each whatever in fc
41 if taller = 0 then
42 Response.Write "<TR>"
43 end if
44 %>

Problemet, som jeg ser det, er stien til din 'billedmappe' (linje 36).

Men før du kan reparere stien, skal du vide hvor din billedmappe (fysisk) befinder sig i forhold filen med den kode, du har lagt.

Det virkede desværre ikke :((

Her er koderne:

default.asp

<%
REM ********************************************************************
REM Mulighed for at se billederne i stor størrelse.
REM Bekræftelse til afsenderen af postkortet når modtageren har læst det.
REM Sletning efter læsning.
REM Automatisk sletning efter f.eks 14 dage
REM Statistik over hvor mange gange hver post har være læst
REM ********************************************************************
%>
<!--#INCLUDE FILE ="code_lib.asp" -->
<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
foto = "billedmappe"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(foto))
Set fc = f.Files
For Each whatever in fc
if taller = 0 then
Response.Write "<TR>"
end if
%>
    <TD>
        <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" %>>
    </TD>
<%
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>


code_lib.asp

<%
REM ********************************************************************
REM Mulighed for at se billederne i stor størrelse.
REM Bekræftelse til afsenderen af postkortet når modtageren har læst det.
REM Sletning efter læsning.
REM Automatisk sletning efter f.eks 14 dage
REM Statistik over hvor mange gange hver post har være læst
REM ********************************************************************


Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\postkort.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"

'******* FONT OG BODY FARVER START *******
bgfarve = "#6633CC"
tekstfarve = "#FFFFFF"
linkfarve = "#FFFFFF"
vlinkfarve = "#FFFFFF"
alinkfarve = "#FFFF00"
overskrift = "<FONT FACE=""Arial"" SIZE=""6"" COLOR=""#FF9933""><STRONG>"
fedstor = "<FONT FACE=""Arial"" SIZE=""3""><STRONG>"
fednormal = "<FONT FACE=""Arial"" SIZE=""2""><STRONG>"
normal = "<FONT FACE=""Arial"" SIZE=""2"">"
fejlfont = "<FONT FACE=""Arial"" SIZE=""4"" COLOR=""#FF0000""><STRONG>"
fe = "</STRONG></FONT>"
'******* FONT OG BODY FARVER SLUT ********

img_height = "100"
img_width  = "100"

'****************** HER SKAL DU SKRIVE DINE OPLYSNINGER START *******************

Email = 1
REM 1 = JMail
REM 2 = CDONTS
REM 3 = ASPMail

fra_email = "mail@domæne.dk"
url = "http://www.domæne.dk/view_card.asp"
mailheader = "En ven har sendt dig et postkort."
billedmappe = "'foto'"

'****************** HER SKAL DU SKRIVE DINE OPLYSNINGER SLUT ********************


if Request.Form("mode") = "sendkort" then

    If Request.Form("from_name") = "" OR Request.Form("from_email") = "" OR Request.Form("to_name") = "" OR Request.Form("to_email") = "" OR Request.Form("besked") = "" OR Request.Form("billednavn") = "" then
        fejl = 1
    end if

if fejl <> 1 then
    from_name = replace (request.Form("from_name"),"'","`")
    to_name = replace (request.Form("to_name"),"'","`")
    besked = replace (request.Form("besked"),"'","`")

    SQL = "INSERT INTO kort ( from_mail, from_name, to_mail, to_name, billednavn, besked ) values ('"& Request.Form("from_email") &"', '"& from_name &"', '"& Request.Form("to_email") &"', '"& to_name &"', '"& Request.Form("billednavn") &"', '"& besked &"')"
    conn.execute (SQL)

    SQL = "SELECT * FROM kort where (from_mail='"& Request.Form("from_email") &"' AND from_name='"& from_name &"' AND to_mail='"& Request.Form("to_email") &"' AND to_name='"& to_name &"' AND billednavn='"& Request.Form("billednavn") &"' AND besked='"& besked &"')"
    SET check = Conn.Execute( SQL )


mail_besked = "Der er sendt et postkort til dig fra "& check("from_name") & vbCrLf & vbCrLf &"Gå til "& url &"?id="& check("id") &" for at læse det."

    if email = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        JMail.ServerAddress = "smtp.domæne.dk"
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
        JMail.Sender = fra_email
        JMail.Subject = mailheader
        JMail.AddRecipient check("to_mail")
        JMail.Body = mail_besked
        JMail.Priority = 3
        JMail.Execute

    elseif email = 2 then

        importance = 1
        Set mailObj = CreateObject("CDONTS.NewMail")
        mailObj.Send fra_email, check("to_mail"), mailheader, mail_besked, importance
        Set mailObj = Nothing

    elseif email = 3 then

        Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        Mailer.FromName  = fra_email
        Mailer.FromAddress= fra_email
        Mailer.RemoteHost = "Din postserver her"
        Mailer.AddRecipient check("to_name"), check("to_mail")
        Mailer.Subject    = mailheader
        Mailer.BodyText  = mail_besked

    end if
kort_sendt = "ok"

else
kort_sendt = "fejl"
end if
end if

%>
<HTML>
<HEAD>
<TITLE>Postkort</TITLE>
</HEAD>
<BODY BGCOLOR="<% = bgfarve %>" TEXT="<% = tekstfarve %>" LINK="<% = linkfarve %>" ALINK="<% = alinkfarve %>" VLINK="<% = vlinkfarve %>">


view_card.asp

<%
REM ********************************************************************
REM Mulighed for at se billederne i stor størrelse.
REM Bekræftelse til afsenderen af postkortet når modtageren har læst det.
REM Sletning efter læsning.
REM Automatisk sletning efter f.eks 14 dage
REM Statistik over hvor mange gange hver post har være læst
REM ********************************************************************
session.LCID = 1030
%>
<!--#INCLUDE FILE ="code_lib.asp" -->
<CENTER>
<% = overskrift %>Postkort<% = fe %>
</CENTER>
<%
SQL = "SELECT * FROM kort WHERE id = "& Request.QueryString("id")
SET kort = Conn.Execute( SQL )
if kort.eof then
    Response.Redirect("default.asp")
else
besked = replace (kort("besked"),vbCrlf,"<BR>")

%>
<CENTER>
<TABLE BORDER="0" CELPADDING="5" CELLSPACING="0">
  <TR>
    <TD ALIGN="LEFT">
        <% = fedstor %>
        Et postkort fra <% = kort("from_name") %>       
        <% = fe %>
    </TD>
  </TR>
  <TR>
    <TD>
        <IMG SRC="<% = billedmappe &"/"& kort("billednavn") %>">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
        <% = fednormal %>
        Skrevet den <% = kort("created") %>   
        <% = fe %>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
        <TABLE CELLPADDING="3" CELLSPACING="0" BORDER="0">
          <TR>
            <TD>
                <% = fednormal %>
                Fra&nbsp;:
                <% = fe %>
            </TD>
            <TD>
                <A HREF="MAILTO:<% = kort("from_mail") %>"><% = normal & kort("from_name") & fe %></A>   
            </TD>
          </TR>
          <TR>
            <TD ALIGN="RIGHT">
                <% = fednormal %>
                Til&nbsp;:
            </TD>
            <TD>
                <A HREF="MAILTO:<% = kort("to_mail") %>"><% = normal & kort("to_name") & fe %></A>   
            </TD>
          </TR>
        </TABLE>
    </TD>
  </TR>
  <TR>
    <TD>
        <HR WIDTH="100%">
    </TD>
  </TR>
  <TR>
    <TD>
        <% = fednormal & besked & fe %>
    </TD>
  </TR>
  <TR>
    <TD>
        <HR WIDTH="100%">
    </TD>
  </TR>
  <TR>
    <TD>
        <% = fednormal  %>
        Tryk <A HREF="default.asp">her</A> hvis du også vil sende et postkort til en ven.
        <% = fe %>
    </TD>
  </TR>
</TABLE>
<%
end if
%></BODY></HTML>


Har løst forrige problem med kan nu ikke se mine foto som ligger i folderen billedmappe og er kalt 1.jpg 2.jpg o.s.v. jeg skal kun bruge jmail så hvor meget skal jeg fjerne og ændre ???

*