Notifikationer

Markér alle som læst Log ud

klinemann Nybegynder

26. september 2004 - 22:08 Der er 14 kommentarer og
1 løsning

2 x J.Mail script i samme fil.

jeg har et J.mail script jeg gerne vil have gengivet en gang mere i min .asp fil, er det muligt? - hvis ja, hvad skal jeg ændre?

- har prøvet at ligge dem i 2 forskellige querys...

Synes godt om

eagleeye Praktikant

26. september 2004 - 22:13 #1

Ja det er skam muligt. Og du kan styre det med queytring hvilken du bruger:

<%
mode=Request.QuestString("mode")

if mode="jmail1" then
'1. Jmail her

end if

if mode="jmail2" then
'2. Jmail her

end if
%>

Synes godt om

klinemann Nybegynder

26. september 2004 - 22:37 #2

jeg kan ikke rigtig få det til at fungere

Synes godt om

eagleeye Praktikant

26. september 2004 - 22:39 #3

Ok, prøv at vise noget kode så. Og beskriv evt. kort hvad du gør.

Synes godt om

klinemann Nybegynder

26. september 2004 - 22:40 #4

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

'Her bliver variabler til inputene fra formen defineret
Dim strNavn, strEmail, strEmne, strBesked

'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede
'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen
'og skriver en lille response på skærmen til brugeren.

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
' Følgende linier henter dataen fra form-mailen.
strNavn = Trim(Request.Form("navn"))
strEmail = Trim(Request.Form("email"))
strEmne = Trim(Request.Form("emne"))
strBesked = Trim(Request.Form("besked"))

'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail),
'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.)

JMail.ServerAddress = "mail.markmadsen.dk"
JMail.sender = "webmaster@markmadsen.dk"
JMail.subject = "" & StrEmne & ""
JMail.AddRecipient "admin@markmadsen.dk"
JMail.AddRecipientCC ""
JMail.AddRecipientBCC ""

'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"

JMail.Body = "Formmail fra: " & VbCrLf
JMail.Body = JMail.Body & strName & VbCrLf
JMail.Body = JMail.Body & strBesked & VbCrLf
JMail.Body = JMail.Body & strCv

'Her bliver form-mailens prioritet bestemt
' 1 - højeste (Haster / Vigtigt)
' 3 - normal
' 5 - lavest
JMail.Priority = 1

JMail.Execute

%>
<center><b><font size="2" face="Tahoma">
Din mail er sendt, tak!
</font></b></center>
<%else%>
<form name="form1" method="POST" action="?frame=kontakt&page=admin" onsubmit="return validate(this)">
<div align="center">
<table border="0" cellspacing="0" cellpadding="0" id="table11">
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
navn:</font></td>
<td width="160" height="30">
<input type="text" name="navn" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
<td rowspan="5" valign="top">
<textarea rows="9" name="besked" cols="40" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma"></textarea></td>
</tr>
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
E-mail:  
</font></td>
<td width="160" height="30">
<input type="text" name="email" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
</tr>
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
emne:</font></td>
<td width="160" height="30">
<input type="text" name="emne" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
</tr>
<tr>
<td width="60" height="30">
 </td>
<td width="160" height="30">
 </td>
</tr>
<tr>
<td width="60" height="30">
 </td>
<td width="160" height="30">
 </td>
</tr>
<tr>
<td width="208" colspan="2" height="10">
<font size="1"> </font></td>
<td height="10">
<font size="1"> </font></td>
</tr>
<tr>
<td width="208" colspan="2"> </td>
<td>   
<input type="submit" value="Send" name="B1" style="border: 1px solid #000000; background-color: #C0C0C0; font-weight:bold; font-family:Tahoma; font-size:10pt">
<input type="reset" value="Nulstil" name="B2" style="border: 1px solid #000000; background-color: #C0C0C0; font-weight:bold; font-family:Tahoma; font-size:10pt"></td>
</tr>
</table>
</div>
</form>
<%end if%>

Synes godt om

klinemann Nybegynder

26. september 2004 - 22:41 #5

det er min j.mail script...

Synes godt om

klinemann Nybegynder

26. september 2004 - 22:42 #6

jeg vil gerne have det på flere af mine querystrings...

bla. <%if Request.QueryString("page") = "qxl" then%>
<%end if%>

<%if Request.QueryString("page") = "msn" then%>
<%end if%>

Synes godt om

klinemann Nybegynder

26. september 2004 - 22:44 #7

træet jeg har bygget ser således ud...

<%if Request.QueryString("frame") = "kontakt" then%>

<%if Request.QueryString("page") = "qxl" then%>
J-MAIL SCRIPT
<%end if%>

<%if Request.QueryString("page") = "msn" then%>
J-MAIL SCRIPT
<%end if%>

<%end if%>

Synes godt om

eagleeye Praktikant

26. september 2004 - 22:45 #8

og det skal ind i det andet (vist 26/09-2004 22:40:16) eller?

Synes godt om

klinemann Nybegynder

26. september 2004 - 22:48 #9

hvis vi tager det indlæg 22:44:22 skal der, der hvor der står J-MAIL SCRIPT være mit øverste script jeg sendte, den lang tekst!

Synes godt om

eagleeye Praktikant

26. september 2004 - 22:50 #10

Altså både form og mail script?

Synes godt om

klinemann Nybegynder

26. september 2004 - 22:52 #11

ja... meningen er at den skal maile til 2 forskellige mail adresser...

så hvis man skriver "?frame=kontakt&page=qxl" skal den mail til qxl@....dk og det samme ved msn@....dk

Synes godt om

eagleeye Praktikant

26. september 2004 - 22:52 #12

Så prøv sådan her:

<%if Request.QueryString("frame") = "kontakt" then%>

<%if Request.QueryString("page") = "qxl" then%>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

'Her bliver variabler til inputene fra formen defineret
Dim strNavn, strEmail, strEmne, strBesked

'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede
'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen
'og skriver en lille response på skærmen til brugeren.

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
' Følgende linier henter dataen fra form-mailen.
strNavn = Trim(Request.Form("navn"))
strEmail = Trim(Request.Form("email"))
strEmne = Trim(Request.Form("emne"))
strBesked = Trim(Request.Form("besked"))

'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail),
'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.)

JMail.ServerAddress = "mail.markmadsen.dk"
JMail.sender = "webmaster@markmadsen.dk"
JMail.subject = "" & StrEmne & ""
JMail.AddRecipient "admin@markmadsen.dk"
JMail.AddRecipientCC ""
JMail.AddRecipientBCC ""

'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"

JMail.Body = "Formmail fra: " & VbCrLf
JMail.Body = JMail.Body & strName & VbCrLf
JMail.Body = JMail.Body & strBesked & VbCrLf
JMail.Body = JMail.Body & strCv

'Her bliver form-mailens prioritet bestemt
' 1 - højeste (Haster / Vigtigt)
' 3 - normal
' 5 - lavest
JMail.Priority = 1

JMail.Execute

%>
<center><b><font size="2" face="Tahoma">
Din mail er sendt, tak!
</font></b></center>
<%else%>
<form name="form1" method="POST" action="?frame=kontakt&page=qxl" onsubmit="return validate(this)">
<div align="center">
<table border="0" cellspacing="0" cellpadding="0" id="table11">
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
navn:</font></td>
<td width="160" height="30">
<input type="text" name="navn" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
<td rowspan="5" valign="top">
<textarea rows="9" name="besked" cols="40" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma"></textarea></td>
</tr>
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
E-mail:  
</font></td>
<td width="160" height="30">
<input type="text" name="email" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
</tr>
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
emne:</font></td>
<td width="160" height="30">
<input type="text" name="emne" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
</tr>
<tr>
<td width="60" height="30">
 </td>
<td width="160" height="30">
 </td>
</tr>
<tr>
<td width="60" height="30">
 </td>
<td width="160" height="30">
 </td>
</tr>
<tr>
<td width="208" colspan="2" height="10">
<font size="1"> </font></td>
<td height="10">
<font size="1"> </font></td>
</tr>
<tr>
<td width="208" colspan="2"> </td>
<td>   
<input type="submit" value="Send" name="B1" style="border: 1px solid #000000; background-color: #C0C0C0; font-weight:bold; font-family:Tahoma; font-size:10pt">
<input type="reset" value="Nulstil" name="B2" style="border: 1px solid #000000; background-color: #C0C0C0; font-weight:bold; font-family:Tahoma; font-size:10pt"></td>
</tr>
</table>
</div>
</form>
<%end if%>
<%end if%>

<%if Request.QueryString("page") = "msn" then%>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

'Her bliver variabler til inputene fra formen defineret
Dim strNavn, strEmail, strEmne, strBesked

'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede
'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen
'og skriver en lille response på skærmen til brugeren.

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
' Følgende linier henter dataen fra form-mailen.
strNavn = Trim(Request.Form("navn"))
strEmail = Trim(Request.Form("email"))
strEmne = Trim(Request.Form("emne"))
strBesked = Trim(Request.Form("besked"))

'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail),
'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.)

JMail.ServerAddress = "mail.markmadsen.dk"
JMail.sender = "webmaster@markmadsen.dk"
JMail.subject = "" & StrEmne & ""
JMail.AddRecipient "admin@markmadsen.dk"
JMail.AddRecipientCC ""
JMail.AddRecipientBCC ""

'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"

JMail.Body = "Formmail fra: " & VbCrLf
JMail.Body = JMail.Body & strName & VbCrLf
JMail.Body = JMail.Body & strBesked & VbCrLf
JMail.Body = JMail.Body & strCv

'Her bliver form-mailens prioritet bestemt
' 1 - højeste (Haster / Vigtigt)
' 3 - normal
' 5 - lavest
JMail.Priority = 1

JMail.Execute

%>
<center><b><font size="2" face="Tahoma">
Din mail er sendt, tak!
</font></b></center>
<%else%>
<form name="form1" method="POST" action="?frame=kontakt&page=msn" onsubmit="return validate(this)">
<div align="center">
<table border="0" cellspacing="0" cellpadding="0" id="table11">
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
navn:</font></td>
<td width="160" height="30">
<input type="text" name="navn" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
<td rowspan="5" valign="top">
<textarea rows="9" name="besked" cols="40" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma"></textarea></td>
</tr>
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
E-mail:  
</font></td>
<td width="160" height="30">
<input type="text" name="email" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
</tr>
<tr>
<td width="60" height="30" align="left">
<font face="Tahoma" size="2">
emne:</font></td>
<td width="160" height="30">
<input type="text" name="emne" size="25" style="border: 1px solid #000000; background-color: #C0C0C0; font-size:10pt; font-family:Tahoma">  
</td>
</tr>
<tr>
<td width="60" height="30">
 </td>
<td width="160" height="30">
 </td>
</tr>
<tr>
<td width="60" height="30">
 </td>
<td width="160" height="30">
 </td>
</tr>
<tr>
<td width="208" colspan="2" height="10">
<font size="1"> </font></td>
<td height="10">
<font size="1"> </font></td>
</tr>
<tr>
<td width="208" colspan="2"> </td>
<td>   
<input type="submit" value="Send" name="B1" style="border: 1px solid #000000; background-color: #C0C0C0; font-weight:bold; font-family:Tahoma; font-size:10pt">
<input type="reset" value="Nulstil" name="B2" style="border: 1px solid #000000; background-color: #C0C0C0; font-weight:bold; font-family:Tahoma; font-size:10pt"></td>
</tr>
</table>
</div>
</form>
<%end if%>
<%end if%>

<%end if%>

Synes godt om

klinemann Nybegynder

26. september 2004 - 22:55 #13

http://www.markmadsen.dk/mail.asp?frame=kontakt&page=qxl
http://www.markmadsen.dk/mail.asp?frame=kontakt&page=msn

Synes godt om

eagleeye Praktikant

26. september 2004 - 22:57 #14

Prøv at fjerne linje 119 så

Synes godt om

eagleeye Praktikant

30. marts 2006 - 12:59 #15

Så du fik det til at virke :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS