Udsendelse af mail !

Hvordan er det sat op ??
Er det noget alla dette ?

Mailadr 1
Pwd 1
Mailadr 2
Pwd 2
Mailadr 3
Pwd 3

ja, lidt ala det du skriver !

Metoden kunne være :

<%
If Mailadr1<>"" then
  Sendpost1
End If
If Mailadr2<>"" then
  Sendpost2
End If
If Mailadr3<>"" then
  Sendpost3
End If
%>

Ja, det havde jeg også selv tænkt på... Men jeg ville hellere have noget med Loop for man kan komme helt op på at skulle udfylde 50 emails !

Kan du ikke prøve at poste din form, så jeg kan se dine variabler ?

For x = 1 to email
   
    Response.Write "<tr><td valign='top'><p>"&x&". E-mail: </p></td>" _
    & "<td valign='top'><p><input type='text' name='_"&x&"email' class='form' size='15'></td></tr>" _
    & "<tr><td valign='top'><p>Password til "&x&". E-mail: </p></td>" _
    & "<td valign='top'><input type='text' name='password"&x&"email' class='form' size='15'></td></tr>" _
    & "<tr><td valign='top'></td>" _
    & "<td valign='top'><br></td></tr>"

next

hvad email er antal emails man har valgt !

skulle have været: hvor email er antal emails man har valgt !

Det kunne være noget som :

<%
Nr=1
While Request.Form("MailAdr" & Str(Nr))<>""
  Sendpost Request.Form("MailAdr" & Str(Nr)), Request.Form("Pwd" & Str(Nr))
  Nr=Nr+1
Wend
%>

Dette forudsætter at du har en procedure som hedder SendPost og modtager 2 variabler

Jeg kan jo bare lave en funktion som hedder SendPost... intet problem :o)

Jeg tjekekr lige om det virker senere...

Jeg tror mit script skal ændres til følgende :

<%
Nr=1
While Request.Form("_" & Str(Nr) & email")<>""
  Sendpost Request.Form("_" & Str(Nr) & email"), Request.Form("password" & Str(Nr) & "email")
  Nr=Nr+1
Wend
%>

Det virker ikke... Jeg har lavet følgende:

Function sendpost(email,password,navn)           

Set Mail = Server.CreateObject("Persits.MailSender")
            Mail.Host = "smtpserver"
            Mail.From = "fra"
            Mail.addAdress "til"
            Mail.Subject = email&password
               
                Mail.Body = ""               
                    On Error Resume Next
            Mail.Send
            If Err <> 0 Then
            Response.Write "An error occurred: " & Err.Description & VbCrlf
            Response.Write "In the following file: " & Err.File & VbCrlf
            Response.Write "In the following line: " & Err.Line
            End If

            mail.close
            set Mail = nothing           
           
End Function           
           
    emails = Request.QueryString("antalmails")           
           

x = 1
Do While not Request.Querystring("_" & x &"email") = ""
  Sendpost ""&Request.Querystring("_" & x &"email")&"",""&Request.Querystring("password" & x & "email")&"",""&Request.Form("fornavn")&"&nbsp;"&Request.Form("efternavn")&""
x = x + 1
Loop

jeg har ændret lidt på det.. men det virker ikke !!!

Hvilken fejl kommer den med ??

der kommer ingen fejl... der bliver bare ikke sendt nogen mail...

Hvordan submitter du formen ?? (GET eller POST)

Du har nemlig lavet scriptet til at bruge begge dele.

Kan du ikke liste hele din FORM ??

efter den form hvor man skal indtaste emailsne kommer der 2 forms til... Og den sender først til sidst ! Jeg bruger POST !

Dvs. "Form 1" kalder "Form 2" som kalder "Form 3" for derefter at skulle sende mailen med data fra alle formene?

nemlig...

Ok, jeg prøver lige at lave et lille script til dig..

???

Sorry, jeg har lige genetableret min computer efter virus :-(

Scriptet kommer...

Her er scriptet men det er lidt rodet :

<%
Response.Write("ID=" & Request.Form("ID") & "<BR>")

If Request.Form("ID")="" then
    Response.Write("<FORM METHOD='POST' NAME='Form1'>")
    Response.Write("<INPUT NAME='ID' TYPE='hidden' VALUE='2'")
    Response.Write("<TABLE COLS='2'>")
    For X=1 to 10
        Response.Write("<TR><INPUT NAME='_Email' TYPE='text' VALUE='Email" & X & "'>")
        Response.Write("<TD><INPUT NAME='PasswordEmail' TYPE='text' VALUE='Pwd" & X & "'>")
    Next
    Response.Write("<TR><INPUT NAME='Send' TYPE='submit' VALUE='Tilform2'>")
    Response.Write("</TABLE></FORM>")
    Response.End
End If

If Request.Form("ID")="2" then
    Form1EmailData=Request.Form("_Email")
    Form1PwdData=Request.Form("PasswordEmail")
    Response.Write("<FORM METHOD='POST' NAME='Form2'>")
    Response.Write("<INPUT NAME='_Email' TYPE='hidden' VALUE='" & Form1EmailData & "'>")
    Response.Write("<INPUT NAME='PasswordEmail' TYPE='hidden' VALUE='" & Form1PwdData & "'>")
    Response.Write("<TABLE COLS='2'><TR>")
    Response.Write("<TR><TD>ID<TD><INPUT NAME='ID' TYPE='hidden' VALUE='3'>")
    Response.Write("<TR><TD>TEKST<TD><INPUT NAME='Tekst' TYPE='text' VALUE='Tekst'>")
    Response.Write("<TR><TD><INPUT NAME='Send' TYPE='submit' VALUE='Tilform3'>")
    Response.Write("</TABLE></FORM>")
    Response.End
End If

If Request.Form("ID")="3" then
    Form1EmailData=Request.Form("_Email")
    Form1PwdData=Request.Form("PasswordEmail")
    Form2Tekst=Request.Form("Tekst")
    Response.Write("<FORM METHOD='POST' NAME='Form3'>")
    Response.Write("<INPUT NAME='_Email' TYPE='hidden' VALUE='" & Form1EmailData & "'>")
    Response.Write("<INPUT NAME='PasswordEmail' TYPE='hidden' VALUE='" & Form1PwdData & "'>")
    Response.Write("<INPUT NAME='Tekst' TYPE='hidden' VALUE='" & Form2Tekst & "'>")
    Response.Write("<INPUT NAME='ID' TYPE='hidden' VALUE='4'>")
    Response.Write("<INPUT NAME='Annuller' TYPE='reset' VALUE='Reset'>")
    Response.Write("<INPUT NAME='Send' TYPE='submit' VALUE='Send'>")
    Response.Write("</FORM>")
End If

If Request.Form("ID")="4" then
    EData=Split(Request.Form("_Email"),",")
    PData=Split(Request.Form("PasswordEmail"),",")
    FormTekst=Request.Form("Tekst")
    For X=LBound(EData) to UBound(EData)
        Response.Write("<BR>" & X)
        Response.Write("<BR>" & EData(X))
        Response.Write("<BR>" & PData(X))
        Response.Write("<BR>" & FormTekst)
'        sendpost EData(X),PData(X),FormTekst
    Next
End If

Function sendpost(email,password,tekst)           
    Set Mail = Server.CreateObject("Persits.MailSender")
    Mail.Host = "smtpserver"
    Mail.From = "fra"
    Mail.addAdress email
    Mail.Subject = email&password
    Mail.Body = tekst               
    On Error Resume Next
    Mail.Send
    If Err <> 0 Then
        Response.Write "An error occurred: " & Err.Description & VbCrlf
        Response.Write "In the following file: " & Err.File & VbCrlf
        Response.Write "In the following line: " & Err.Line
    End If
    mail.close
    set Mail = nothing           
End Function
%>

Jeg har dog ikke afprøvet maildelen, kun at den kan udskrive felterne fra formene.

Der virker ikke !!! :o(

har selv rodet med det og har selv løst problemet... men takker for forsøget !