Just nu i M3-nätverket
Jump to content

Jmail


knicken2

Recommended Posts

Hej!

Är det någon snäll själ som kan se vad jag har för fel i den här koden. Det ser ut som att meddelandet skickas iväg, men dessvärre kommer det inte fram.

Tack på förhand,

//Knicken

 

<%option explicit%>

 

 

<html>

<head>

<title>Formulär</title>

 

 

<script language="JavaScript">

 

function verify(){

 

var n=document.f1.Namn.value;

var f=document.f1.Foretag.value;

var t=document.f1.Telefon.value;

var e=document.f1.Email.value;

 

var msg="";

 

if(n==""){

msg="Du måste fylla i namn!\n";

}if(f==""){

msg = msg+"Du måste fylla i företag!\n";

}if(t==""){

msg=msg+"Du måste fylla i telefon!\n";

}if(e==""){

msg=msg+"Du måste fylla i email!\n";

}

 

 

if(msg==""){

return true;

}else{

alert(msg);

return false;

}

}

</script>

 

</head>

 

 

<body >

 

<%

Dim Action

Dim Namn

Dim Foretag

Dim Telefon

Dim Email

 

 

Action = Request.Form("Action")

Namn = Request.Form("Namn")

Foretag = Request.Form("Foretag")

Telefon = Request.Form("Telefon")

Email = Request.Form("Email")

 

 

%>

 

<%

if action="" then

%>

 

<form action="Formular.asp" method="post" name="f1" onSubmit="return verify();">

 

<div class= "tabell">

<table border="0">

 

<tr>

<td colspan="2" align="left">

 

<br><br>

 

<tr><td>

 

Namn<BR>

<input type="text" name="Namn" size="30" ONFOCUS="this.style.background='#cccccc'"

ONBLUR="this.style.background='#FFFFFF'"><br>

 

Företag<BR>

<input type="text" size="30" name="Foretag" ONFOCUS="this.style.background='#cccccc'"

ONBLUR="this.style.background='#FFFFFF'"><BR>

 

Telefon<BR>

<input type="text" size="30" name="Telefon" ONFOCUS="this.style.background='#cccccc'"

ONBLUR="this.style.background='#FFFFFF'"><BR>

 

 

Email<BR>

<INPUT TYPE="text" SIZE="30" NAME="Email" ONFOCUS="this.style.background='#cccccc'"

ONBLUR="this.style.background='#FFFFFF'"><BR>

 

 

</td>

<td>

 

Meddelande<BR>

<TEXTAREA NAME="body" COLS="40" ROWS="9" ONFOCUS="this.style.background='#cccccc'"

ONBLUR="this.style.background='#FFFFFF'">

</TEXTAREA ><BR/>

</td>

</tr>

 

<tr>

<td colspan="2" align="center">

<input type="hidden" name="action" value="verifiera">

<input type="submit" value="Skicka">

<input type="reset" value="Rensa">

</td>

</tr>

</table>

 

 

</form>

 

</div>

 

<%

 

 

elseif action = "verifiera" then

 

%>

 

<h4><center> Tack,<br>Ditt mail har nu skickats!</center></h4>

<%

 

set msg = Server.CreateOBject( "JMail.Message" )

 

msg.Logging = true

msg.silent = true

msg.From = Email

msg.FromName = Namn & ", " & Foretag

msg.AddRecipient "kikkigustafsson@hotmail.com"

msg.Subject = subject

msg.body = body

 

 

if not msg.Send("mail.lenapaterson.se") then

Response.write "<pre>" & msg.log & "</pre>"

else

Response.write "Meddelandet har skickats!!"

end if

 

 

 

else respons.write("felaktigt anrop")

%>

 

<%

end if

%>

 

 

</body>

</html>

Link to comment
Share on other sites

 

Hej!

 

Nej, jag får inget felmeddelande...när jag fyllt i alla fält och skickar i väg det så kommer endast "Tack, ditt mail har nu skickts upp".

 

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...