Kan i hjælpe mig

Jeg vil gerne fikse det til dig, er det noget du stadig er interreseret i? Gider ikke sidde og bruge min tid forgæves.

Ja det er jeg, jeg har prøvet forgæves at få extension til at virke, det er ikke noget krav at det skal se sådan ud, men jeg skal bruge de oplysninger + e-mail adresse

Ok, men skal den bare sende dig en mail med de oplysninger "brugeren" har indtastet i felterne på tilmeldingssiden?

Ja det var det jeg i udgangs punket gerne ville, jeg har en mail konto til det samme, jeg har også SMTP server kørende på localhost, hvis det er nogen hjælp

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

  strSMTP = "localhost" ' Hvor skal den sende i gennem
  strModtager = "din@mail.dk" ' Hvem skal mailen sendes til
  strAfsender = "din@mail.dk" ' Angives også som din da tilmeldingen ikke kræver mail

  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  Mailer.RemoteHost = lCase(strSMTP)
  Mailer.FromName = "Wanted For party"
  Mailer.FromAddress = strAfsender
  Mailer.AddRecipient strModtager
  Mailer.Subject = "Tilmelding"

  For i = 1 to Request.Form.Count
    If Request.Form.Key(i) <> "url" and Request.Form.Key(i) <> "emailr" then
        Mailer.BodyText(Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf)
    End if
  Next

  If Not Mailer.SendMail Then ' Hvis mailen ikke blev sendt
  Response.Write "Meddelelsen kunne ikke sendes... Fejlen er: <br>"
  Response.Write Mailer.Response
  Else
  Response.Write "Meddelelsen er sendt!"
  End if

Else
%>

<form method="post" action="afsend.asp" name="send">

    <table border="1" width="100%" id="table1">
        <tr>
            <td width="20%"><font face="Bernard MT Condensed" size="4">Navn(e):</font></td>
            <td colspan="2"><font size="4" face="Bernard MT Condensed">
            <input type="text" name="Navn 1" size="20"> &amp;
            <input type="text" name="Navn 2" size="20"></font></td>
        </tr>
        <tr>
            <td width="20%" height="33">
            <font face="Bernard MT Condensed" size="4">Kommer Ja/ Nej:</font></td>
            <td width="18%" height="33">
            <font size="4" face="Bernard MT Condensed">Ja da<input type="radio" value="Ja" checked name="Kommer"></font></td>
            <td width="58%" height="33">
            <font size="4" face="Bernard MT Condensed">Øv Nej
            <input type="radio" name="Kommer" value="Nej"></font></td>
        </tr>
        <tr>
            <td width="20%"><font face="Bernard MT Condensed" size="4">Jeg/ Vi
            kommer:</font></td>
            <td><font size="4" face="Bernard MT Condensed">1.
            <input type="checkbox" name="1 person" value="ON">Person</font></td>
            <td><font size="4" face="Bernard MT Condensed">2.
            <input type="checkbox" name="2 personer" value="ON"> Personer</font></td>
        </tr>
        <tr>
            <td width="20%">&nbsp;</td>
            <td colspan="2">&nbsp;</td>
        </tr>
    </table>
    <p><font size="4" face="Bernard MT Condensed">
    <input type="submit" value="Send" name="B1"><input type="reset" value="Nulstil" name="B2"></font></p>
    <p>&nbsp;</p>

</form>

<% End if %>

Filen skal desden hedde afsend.asp :-) Komponentet jeg har valgt at bruge her er ASP Mail, som der står din server understøtter.

Filen skal desden hedde afsend.asp :-)  ?? Hvad mener du?
Hvad er det med filen afsend.asp? er det en bekræftelse eller en fejl?

Først så kopierer du det jeg har skrevet ind i en fil, gemmer dem som et eller andet, bare der er ASP bag på, da det er ASP kode. Og så skriver du filens navn i:

<form method="post" action="FILENSNAVN.asp" name="send">

Ha, ok gemte den som form.asp, og lavede så en ny fil der hed afsend.asp, Blank eller hvad, kunne heller ikke få nogen mail igemmen. Prøver lige igen

Ok har gemt det script du har lavet, og sat min mail og smtp ind.
Og så bare for at være med, skal jeg have en ny fil f.eks. "afsend.asp"?
Jeg har gemt det du har skrevet som form.asp, og siden virker ok, jeg har også en fil der hedder afsend.asp. den indeholder kun et "Hej"
Hvad er det for et fil navn der skal stå i: <form method="post" action="FILENSNAVN.asp" name="send">
??

Prøvede at ændre den til: <form method="post" action="form.asp" name="send">
Men så får jeg en HTTP 500 - Intern serverfejl
Internet Explorer

Gør som jeg siger nu ellers kommer vi aldrig videre.

1) Lav en fil der hedder det du har lyst til at kalde dig (KUN den fil!!!)

2) Kopier følgende tekst ind:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

  strSMTP = "localhost" ' Hvor skal den sende i gennem
  strModtager = "din@mail.dk" ' Hvem skal mailen sendes til
  strAfsender = "din@mail.dk" ' Angives også som din da tilmeldingen ikke kræver mail

  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  Mailer.RemoteHost = lCase(strSMTP)
  Mailer.FromName = "Wanted For party"
  Mailer.FromAddress = strAfsender
  Mailer.AddRecipient strModtager
  Mailer.Subject = "Tilmelding"

  For i = 1 to Request.Form.Count
    If Request.Form.Key(i) <> "url" and Request.Form.Key(i) <> "emailr" then
        Mailer.BodyText(Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf)
    End if
  Next

  If Not Mailer.SendMail Then ' Hvis mailen ikke blev sendt
  Response.Write "Meddelelsen kunne ikke sendes... Fejlen er: <br>"
  Response.Write Mailer.Response
  Else
  Response.Write "Meddelelsen er sendt!"
  End if

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" name="send">

    <table border="1" width="100%" id="table1">
        <tr>
            <td width="20%"><font face="Bernard MT Condensed" size="4">Navn(e):</font></td>
            <td colspan="2"><font size="4" face="Bernard MT Condensed">
            <input type="text" name="Navn 1" size="20"> &amp;
            <input type="text" name="Navn 2" size="20"></font></td>
        </tr>
        <tr>
            <td width="20%" height="33">
            <font face="Bernard MT Condensed" size="4">Kommer Ja/ Nej:</font></td>
            <td width="18%" height="33">
            <font size="4" face="Bernard MT Condensed">Ja da<input type="radio" value="Ja" checked name="Kommer"></font></td>
            <td width="58%" height="33">
            <font size="4" face="Bernard MT Condensed">Øv Nej
            <input type="radio" name="Kommer" value="Nej"></font></td>
        </tr>
        <tr>
            <td width="20%"><font face="Bernard MT Condensed" size="4">Jeg/ Vi
            kommer:</font></td>
            <td><font size="4" face="Bernard MT Condensed">1.
            <input type="checkbox" name="1 person" value="ON">Person</font></td>
            <td><font size="4" face="Bernard MT Condensed">2.
            <input type="checkbox" name="2 personer" value="ON"> Personer</font></td>
        </tr>
        <tr>
            <td width="20%">&nbsp;</td>
            <td colspan="2">&nbsp;</td>
        </tr>
    </table>
    <p><font size="4" face="Bernard MT Condensed">
    <input type="submit" value="Send" name="B1"><input type="reset" value="Nulstil" name="B2"></font></p>
    <p>&nbsp;</p>

</form>

<% End if %>

</body>
</html>

3) Send mig linket til filen og lad mig teste det.

Og hvis din side kører på localhost, så gør følgende i din internet explorer da jeg så ikke kan se siden:

Funktioner -> Internetindstillinger -> Avanceret -> Fjern kryds i "Vis meddelelse om uskadelige HTTP-fejl"

Efter du har gjort dette vil din Explorer nu vise hvad fejlen går ud på. Hvis der står noget i fejlen omkring: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> så fjern det for det er faktisk ikke nødvendigt.

Jeg går i seng nu, og kigger til dit spørgsmål igen i morgen.

Godnat gamle dreng ;-)

Så er det gjort, har ikke ændret noget, heller ikke mail adresser, eller smtp
http://fest.6pm.dk/tilmeldform.asp

Ok sov godt

På den der ligger på http://fest.6pm.dk/form.asp, får jeg flg fejl: Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Mailer.AddRecipient'

/form.asp, line 13
Jeg har localhost som smtp (har også prøvet med min ISP's), jeg har en gyldig mail adresse som modtager og afsender

I denne linie:
Mailer.AddRecipient strModtager

Skal du erstatte strModtager med...
Mailer.AddRecipient "din@e-mail.dk" (altså din e-mail adresse :-))

Ok har nu erstattet i linje 13 til: Mailer.AddRecipient "min@mail.dk"
Men får stadig fejl som denne:
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Mailer.AddRecipient'

/form.asp, line 13

Skal der ikke være et = i denne linje: Mailer.AddRecipient "din@e-mail.dk" ??
Hvis jeg prøver det så får jeg:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'strModtage.AddRecipient'

/form.asp, line 23

Jeg kan sende filen til dig hvis det hjælper, du kan sende en mail med din adresse på jacob(at)krohn.nu

Det tror jeg ikke hjælper mig særlig meget, kan jo sagtens se koden her.

Jeg prøver lige igen gamle dreng, nu tester vi lige det her og ser om mailen kommer frem. Du skal selv udfylde dem hvor der står "" :-)

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName  = "" ' Hvem er mailen fra?
Mailer.FromAddress= "" ' Hvor sendes mail fra?
Mailer.RemoteHost = "" ' SMTP server
Mailer.AddRecipient "Jacob", "jacob@krohn.nu" ' E-mailen den skal sendes til
Mailer.Subject    = "" ' Emnen på mailen

Mailer.BodyText  = "Hej med dig" & VbCrLf & "Dette er en test!"

' Send e-mail og skriv status
if Mailer.SendMail then
  Response.Write "Mailen er afsendt..."
else
  Response.Write "Der skete en fejl: " & Mailer.Response
end if

Set Mailer = Nothing
%>

Den skriver ok en mail til mig. Jeg kaldte den test.asp, og kaldte den via http://fest.6pm.dk/test.asp

Ok. Så lad os prøve følgende:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>

<body>

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  Mailer.FromName  = "" ' Hvem er mailen fra?
  Mailer.FromAddress= "" ' Hvor sendes mail fra?
  Mailer.RemoteHost = "" ' SMTP server
  Mailer.AddRecipient "Jacob", "jacob@krohn.nu" ' E-mailen den skal sendes til
  Mailer.Subject    = "" ' Emnen på mailen

  For i = 1 to Request.Form.Count
    If Request.Form.Key(i) <> "url" and Request.Form.Key(i) <> "emailr" then
        Mailer.BodyText(Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf)
    End if
  Next

  ' Send e-mail og skriv status
  If Mailer.SendMail then
    Response.Write "Mailen er afsendt..."
  Else
    Response.Write "Der skete en fejl: " & Mailer.Response
  End if

  Set Mailer = Nothing

Else
%>

<form method="post" action="<%=Request.ServerVariables("PATH_INFO")%>" name="send">

    <table border="1" width="100%" id="table1">
        <tr>
            <td width="20%"><font face="Bernard MT Condensed" size="4">Navn(e):</font></td>
            <td colspan="2"><font size="4" face="Bernard MT Condensed">
            <input type="text" name="Navn 1" size="20"> &amp;
            <input type="text" name="Navn 2" size="20"></font></td>
        </tr>
        <tr>
            <td width="20%" height="33">
            <font face="Bernard MT Condensed" size="4">Kommer Ja/ Nej:</font></td>
            <td width="18%" height="33">
            <font size="4" face="Bernard MT Condensed">Ja da<input type="radio" value="Ja" checked name="Kommer"></font></td>
            <td width="58%" height="33">
            <font size="4" face="Bernard MT Condensed">Øv Nej
            <input type="radio" name="Kommer" value="Nej"></font></td>
        </tr>
        <tr>
            <td width="20%"><font face="Bernard MT Condensed" size="4">Jeg/ Vi
            kommer:</font></td>
            <td><font size="4" face="Bernard MT Condensed">1.
            <input type="checkbox" name="1 person" value="ON">Person</font></td>
            <td><font size="4" face="Bernard MT Condensed">2.
            <input type="checkbox" name="2 personer" value="ON"> Personer</font></td>
        </tr>
        <tr>
            <td width="20%">&nbsp;</td>
            <td colspan="2">&nbsp;</td>
        </tr>
    </table>
    <p><font size="4" face="Bernard MT Condensed">
    <input type="submit" value="Send" name="B1"><input type="reset" value="Nulstil" name="B2"></font></p>
    <p>&nbsp;</p>

</form>

<% End if %>

</body>
</html>

Microsoft VBScript runtime error '800a01b6'
Jeg får denne fejl
Object doesn't support this property or method: 'BodyText'

/test.asp, line 24

ret din forløkke fra:

For i = 1 to Request.Form.Count
    If Request.Form.Key(i) <> "url" and Request.Form.Key(i) <> "emailr" then
        Mailer.BodyText(Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf)
    End if
  Next

til:

streng = ""
For i = 1 to Request.Form.Count
    If Request.Form.Key(i) <> "url" and Request.Form.Key(i) <> "emailr" then
        streng = streng & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf
    End if
  Next
Mailer.BodyText = streng

Super det gjore det, jeg får denne mail
----------------------------------
Navn 1: Test1

Navn 2: test2

Kommer: Ja

2 personer: ON

B1: Send

----------------------------------
Skal "B1: Send" med? Ikke at det gør noget

det skal den jo egentlig ikke...

men det klarer vi nemt :-)

benyt dette i stedet..

streng = ""
For i = 1 to Request.Form.Count
    If Request.Form.Key(i) <> "url" and Request.Form.Key(i) <> "emailr" and Request.form.key(i) <> "B1" then
        streng = streng & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf
    End if
  Next
Mailer.BodyText = streng

Ok efter jeg rettede det skar der ikke noget når jeg "sender". Her er mit script:
<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  Mailer.FromName  = "Western Party" ' Hvem er mailen fra?
  Mailer.FromAddress= "admin@6pm.dk" ' Hvor sendes mail fra?
  Mailer.RemoteHost = "192.168.1.10" ' SMTP server
  Mailer.AddRecipient "Fest", "fest@6pm.dk" ' E-mailen den skal sendes til
  Mailer.Subject    = "Tilmelding" ' Emnen på mailen

  streng = ""
For i = 1 to Request.Form.Count
    If Request.Form.Key(i) <> "url" and Request.Form.Key(i) <> "emailr" and Request.form.key(i) <> "B1" then
        streng = streng & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf
    End if
  Next
Mailer.BodyText = streng
Else
%>

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  Mailer.FromName  = "Western Party" ' Hvem er mailen fra?
  Mailer.FromAddress= "admin@6pm.dk" ' Hvor sendes mail fra?
  Mailer.RemoteHost = "192.168.1.10" ' SMTP server
  Mailer.AddRecipient "Fest", "fest@6pm.dk" ' E-mailen den skal sendes til
  Mailer.Subject    = "Tilmelding" ' Emnen på mailen

  streng = ""
For i = 1 to Request.Form.Count
    If Request.Form.Key(i) <> "url" and Request.Form.Key(i) <> "emailr" and Request.Form.Key(i) <> "B1" then
        streng = streng & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf
    End if
  Next
Mailer.BodyText = streng
Else
%>

hmm... mystisk, men det her burde i hvert fald virke.

Prøver bare igen, men ellers lever jeg da med det B1

Det vil den ikke, jeg lever med det B1

super.. så smider jeg et svar, men var jo kun en lille hjælp her i slutningen, så synes også madeindk skal have en omgang points...

Mvh. Jens

JA det var da også planen, han har jo brugt en del tid på at hjælpe mig

Har smidt et svar :-)

Men her kommer det igen...

Ja jeg har ikke glemt jer

Jeg håber i er tilfredse med fordelingen, da madeindk har lagt en del tid i dette derfor den fordeling. Hvis i mener andet, så må i skrive.
Jeg takker meget for hjælpen

Jeg kan ikke få den til at køre avanceret point, prøver igen om lidt