Se om der står noget i felterne

Hvad er der galt med denne kode den vil ikke tjekke om der er skrevet noget i MsgBody




<%
' Checks to see if the user inputted a value
' If so, remove leading and trailing blanks and upcase it
name=trim(request.form("name"))
email=trim(request.form("email"))
MsgBody=trim(request.form("MsgBody"))


' Grab the length of the email address inputted
email_len=len(email)

' if the user has inputted a value start checking it
if trim(email) <> "" then

' Loop that will check each character of the inputted value
' for the @ and the dot
for counter = 1 to email_len
'If there is an @ set u_at to the position it was found in
if mid(email,counter,1)="@" then

' count the number of @'s
at_counter=at_counter+1
' if there is more than one add it to the message
if at_counter > 1 then message = message &"There appear to be multiple @'s in the email address<br>" end if

' if this is the 1st @ note the location in the string
if u_at = "" then
u_at=counter
end if ' end check for first @
end if ' end check for the @

'If there is an dot (.) set u_dot to the position it was found in
if mid(email,counter,1)="." then
if u_dot = "" then
u_dot=counter
end if 'end check for the first dot
end if 'end check for the dot

next

' Check to see if the dot comes after the @
' and that the first dot is not the last character
if (u_dot < u_at) or (len(email) <= u_dot+1) or ((u_dot-u_at) < 2) or (u_at < 2)then
message = message & "Email convention appears to be wrong <br>"
end if 'end check for dot after the @

' Scan the user input to see that all inputted values are either a letter A-Z,
' a number 0-9 or if the character is a . or and @.
for counter=1 to len(email)
if (mid(email,counter,1) <> "/") and ((mid(email,counter,1) > chr(45)) and (mid(email,counter,1) < chr(58))) or ((mid(email,counter,1) > chr(63)) and (mid(email,counter,1) < chr(91))) then
' If it's an invalid charcter add it to the display message
response.write "E-mail er ikke rigtig skrevet"
end if 'end check for invalid characters
next 'end loop for invalid characters
end if 'end check for user input

' Check the email field for input if is blank
' then add to the display message
if (email = "") then
response.write "Der er ikke angivet nogen email adresse"
end if

' Check the message field for input if is blank
' then add to the display message
if MsgBody <> "" then
response.write "Der er ikke skrevet noget spørgsmål"
end if

' If the email address is not OK than display the message(s)
' and show the text box for user input with the last value pre-filled
if MsgBody <> "" then

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

' Her sættes afsender navn
Mailer.FromName = name

' Her sættes afsender e-mail adresse
Mailer.FromAddress = email

' Her sættes mail serveren
Mailer.RemoteHost = "Mail server"

' Her sættes modtager navn og e-mail adresse
Mailer.AddRecipient "navn", "etellerandet@domain.dk"

' Her sættes overskriften på mailen
Mailer.Subject = "her skrives et Emne"

' Her sættes selve teksten til mailen
Mailer.BodyText = MsgBody

end if

if Mailer.SendMail then

response.redirect "oksend.asp"

else

response.redirect "fejlsend.asp"

end if
%>