CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

stivert.dk Nybegynder

15. maj 2000 - 18:28 Der er 4 kommentarer

Hjælp til Script

Hej.. Jeg har prøvet at lave dette...

Jeg får bare en hvis side UDEN fejl nå jeg submitter....

pop3email.asp ( http://www.stivert.dk/test/pop3email.asp )
----------------------------

<% if Request("mode") = "send" then %>

<%
dim error
Session("error") = "Udfyld venligst alle felter.."
error = Session("error")

if Request.Form("mail") = "" Or Request.Form("email") = "" Or Request.Form("navn") = "" then
mode = "fejl"
else

mode = "sendt"

if Request.Form("viderstilling") = "" then
viderstil = "Denne email skal ikke viderstilles.."
else
viderstil = Request.Form("viderstilling")
end if

Set JMail = Server.CreateObject("JMail.SMTPMail")

JMail.ServerAddress = "mail.stivert.dk"

JMail.Sendername = Request.Form("Stivert Pop3Email")
JMail.Sender = "pop3email@stivert.dk"
JMail.Subject = Request.Form("navn") & " vil gerne have en stivert.dk email :O)"

JMail.AddRecipient "stivert@stivert.dk"
body = body & "Ønsket Email: " & Request.Form("mail") & "@stivert.dk" & vbcrlf
body = body & "Hans Navn: " & Request.Form("navn") & vbcrlf
body = body & "Hans Email: " & Request.Form("email") & vbcrlf
body = body & "Viderstilles til: " & viderstil & vbcrlf

JMail.body = body & vbcrlf

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.Execute
end if

%>

<% elseif Request("mode") = "fejl" then %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY bgcolor="DimGray" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form method="post" action="pop3email.asp">
<input type="hidden" name="mode" value="send">
 <%=error%>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%">Ønskede
Email 
:</td>
<td width="217"><input type="text" name="mail" value="<%=Request.Form("mail")%>" size="20">@stivert.dk</td>
</tr>
<tr>
<td width="83" height="2"> 
Nuværende Email :</td>
<td width="217" height="2"><input type="text" name="email" value="<%=Request.Form("email")%>" size="20"></td>
</tr>
<tr>
<td width="83" height="2"> 
Hvis du ønsker at få din email vidersendt til en anden email indtaster
du den email her :</td>
<td width="217" height="2"><input type="text" name="viderstilling" value="<%=Request.Form("viderstilling")%>" size="20"></td>
</tr>
<tr>
<td width="83" height="2"> 
Dit Navn :</td>
<td width="217" height="2"><input type="text" name="navn" value="<%=Request.Form("navn")%>" size="20"></td>
</tr>
<tr>
<td width="83"></td>
<td width="217"><input type="submit" name="Submit" value="Send"></td>
</tr>
</table>
</form>
 
</body>
</html>

<% elseif Request("mode") = "" then %>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY bgcolor="DimGray" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form method="post" action="pop3email.asp">
<input type="hidden" name="mode" value="send">
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%">Ønskede
Email 
:</td>
<td width="217"> 
<input type="text" name="mail" size="20">@stivert.dk
</td>
</tr>
<tr>
<td width="83" height="2"> 
Nuværende Email :</td>
<td width="217" height="2"> 
<input type="text" name="email" size="20">
 </td>
</tr>
<tr>
<td width="83" height="2"> 
Hvis du ønsker at få din email vidersendt til en anden email indtaster
du den email her :</td>
<td width="217" height="2"> 
<input type="text" name="viderstilling" size="20">
</td>
</tr>
<tr>
<td width="83" height="2"> 
Dit Navn :</td>
<td width="217" height="2"> 
<input type="text" name="navn" size="20">
</td>
</tr>
<tr>
<td width="83"></td>
<td width="217"> 
<input type="submit" name="Submit" value="Send">
</td>
</tr>
</table>
</form>
 
</BODY>
</HTML>

<% elseif Request("mode") = "sendt" then %>
<% Response.Redirect "pop3sendt.asp" %>

<% end if %>

---------------------

Håber i kan hjælpe...

Synes godt om

erikjacobsen Ekspert

15. maj 2000 - 18:37 #1

Hmm, hvorfor flytter du ikke din

Response.Redirect "pop3sendt.asp"

op til lige efter

JMail.Execute

?

Synes godt om

stivert.dk Nybegynder

15. maj 2000 - 21:53 #2

Hmm.. men det virker stadig ikke... Nå jeg trykker på send knappen, så får jeg bare en hvid skærm...

Synes godt om

erikjacobsen Ekspert

15. maj 2000 - 22:02 #3

Hmm, nå, nej du har jo både værdien "send" og "sendt" i din variabel mode.
Men når du laver en redirect skal du passe på ikke at lave HTML (f.eks. tomme
linier før). Prøv at sætte <% buffer=true %> i allerøverste linie.

Synes godt om

stivert.dk Nybegynder

19. maj 2000 - 19:22 #4

Jeg havde lavet en masse fejl... Nå men jeg fandt da ud af det, efter jeg havde læst min ASP bog lidt videre.. :o)

Svaret :
----------

<%
dim error
Session("error") = "Udfyld venligst alle felter.."
error = Session("error")

if Request.Form("Submit") = "Send" then

if Request.Form("mail") = "" Or Request.Form("email") = "" Or Request.Form("navn") = "" then
mode = "fejl"
else

if Request.Form("viderstilling") = "" then
viderstil = "Denne email skal ikke viderstilles.."
else
viderstil = Request.Form("viderstilling")
end if

Set JMail = Server.CreateObject("JMail.SMTPMail")

JMail.ServerAddress = "mail.stivert.dk"

JMail.Sendername = Request.Form("Stivert Pop3Email")
JMail.Sender = "pop3email@stivert.dk"
JMail.Subject = Request.Form("navn") & " vil gerne have en stivert.dk email :O)"

JMail.AddRecipient "stivert@stivert.dk"
body = body & "Ønsket Email: " & Request.Form("mail") & "@stivert.dk" & vbcrlf
body = body & "Hans Navn: " & Request.Form("navn") & vbcrlf
body = body & "Hans Email: " & Request.Form("email") & vbcrlf
body = body & "Viderstilles til: " & viderstil & vbcrlf

JMail.body = body & vbcrlf

JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

JMail.Execute
Response.Redirect "../pop3sendt.asp"

%>
<% end if
end if
%>
<% if mode = "fejl" then %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY bgcolor="DimGray" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form method="post" action="pop3email.asp">
 <%=error%>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%">Ønskede
Email 
:</td>
<td width="217"><input type="text" name="mail" value="<%=Request.Form("mail")%>" size="20">@stivert.dk</td>
</tr>
<tr>
<td width="83" height="2"> 
Nuværende Email :</td>
<td width="217" height="2"><input type="text" name="email" value="<%=Request.Form("email")%>" size="20"></td>
</tr>
<tr>
<td width="83" height="2"> 
Hvis du ønsker at få din email vidersendt til en anden email indtaster
du den email her :</td>
<td width="217" height="2"><input type="text" name="viderstilling" value="<%=Request.Form("viderstilling")%>" size="20"></td>
</tr>
<tr>
<td width="83" height="2"> 
Dit Navn :</td>
<td width="217" height="2"><input type="text" name="navn" value="<%=Request.Form("navn")%>" size="20"></td>
</tr>
<tr>
<td width="83"></td>
<td width="217"><input type="submit" name="Submit" value="Send"></td>
</tr>
</table>
</form>
 
</body>
</html>
<% end if %>
<% if Request("mode") = "" then %>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY bgcolor="DimGray" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form method="post" action="pop3email.asp">
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%">Ønskede
Email 
:</td>
<td width="217"> 
<input type="text" name="mail" size="20">@stivert.dk
</td>
</tr>
<tr>
<td width="83" height="2"> 
Nuværende Email :</td>
<td width="217" height="2"> 
<input type="text" name="email" size="20">
 </td>
</tr>
<tr>
<td width="83" height="2"> 
Hvis du ønsker at få din email vidersendt til en anden email indtaster
du den email her :</td>
<td width="217" height="2"> 
<input type="text" name="viderstilling" size="20">
</td>
</tr>
<tr>
<td width="83" height="2"> 
Dit Navn :</td>
<td width="217" height="2"> 
<input type="text" name="navn" size="20">
</td>
</tr>
<tr>
<td width="83"></td>
<td width="217"> 
<input type="submit" name="Submit" value="Send">
</td>
</tr>
</table>
</form>
 
</BODY>
</HTML>

<% end if %>

----------------
håber nogle andre kan bruge det :O)

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59

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