Sidder her ogs slås med noget som burde være simplet nemelig if the else, men kan ikke lige for det til at virke som det skulle.
Det jeg vil er at cheke om brugeren har tastet en tom email adresse ind eller om den ikke er en rigtig email adresse.
Er der en venlig sjæl som kan gemmenskue mine fejl.
På Forhånd tak
Mvh
Trixster
-----------------------KODE---------------
<% @LANGUAGE=VBscript %>
<% Option Explicit
dim sendermail,modtagermail,mail,bIsValid
Response.buffer=True
sendermail = Request.Form("sendermail")
modtagermail = Request.Form("modtagermail")
%>
<html>
<head>
<title></title>
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<table summary="table" width="85%" cellpadding="0" cellspacing="0" border="0"
bgcolor="#888888" align="center">
<tr>
<td align="center"><h2></h2>
<%
if modtagermail="" OR sendermail="" then
response.write "<h4 align='center'>Du har ikke angivet en gyldig mail adresse.</h4>"
else
Response.end
end if
If Len(sendermail) < 5 Then
bIsValid = "False"
Else
If Instr(1, sendermail, " ") <> 0 Then
bIsValid = "False"
Else
If InStr(1, sendermail, "@", 1) < 2 Then
bIsValid = "False"
Else
If InStrRev(sendermail, ".") < InStr(1, sendermail, "@", 1) + 2 Then
bIsValid = "False"
End If
End If
End If
End If
IF bIsValid = "False" THEN
response.write "<h4 align='center'>Du har ikke angivet en gyldig mail adresse.</h4>"
Response.End
end if
Set mail = server.CreateObject("JMail.SMTPMail")
mail.ServerAddress = "mail.udbyder.dk"
mail.Sender = sendermail
mail.AddRecipient modtagermail
mail.Subject = "En bruger har sendt denne anbefalning til dig."
Mail.Body = "Skriv beskeden her eks. Fed side med scripts."
Mail.Priority = 3
Mail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
Mail.Execute
%>
</body>
</html>