Hej!
Är det någon som kan hjälpa mig att se vad det är för fel i koden. Det kommer inte fram några mail....men det ser ut som att det skickas i väg.
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();">
<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>