Min side vil ikke vises

Jeg har lavet en opdateringsside, men siden kan ikke vises. Tror problemet ligger et sted her! Hvad er problemet?



<% If mode = "send" then %>
<%
emailapp     = EmailApp
emailserver = MailServer

fromname      = Request.Form("yname")
fromaddress = Request.Form("yemail")
toname      = Request.Form("tname")
toemail      = Request.Form("temail")

strbody = "<font face=arial size=2>" & vbCrLf
strbody = strbody & toname&",<p>" & vbCrLf
strbody = strbody & "Denne besked er sendt fra domæne.dk af "&fromname&" ("&fromaddress&") <p>" & vbCrLf
If Request("yname") <> "" Then
strbody = strbody & "<p><b>Navn</b><br>" & vbCrLf
strbody = strbody & Request("yname") & vbCrLf

If Request("yemail") <> "" Then
strbody = strbody & "<p><b>Email:</b><br>" & vbCrLf
strbody = strbody & Request("yemail") & vbCrLf

If Request("adresse") <> "" Then
strbody = strbody & "<p><b>Adresse:</b><br>" & vbCrLf
strbody = strbody & Request("adresse") & vbCrLf

If Request("telefon") <> "" Then
strbody = strbody & "<p><b>Telefon:</b><br>" & vbCrLf
strbody = strbody & Request("telefon") & vbCrLf

If Request("fodselsdag") <> "" Then
strbody = strbody & "<p><b>Fodselsdag:</b><br>" & vbCrLf
strbody = strbody & Request("fodselsdag") & vbCrLf

If Request("civilstand") <> "" Then
strbody = strbody & "<p><b>CivilStand:</b><br>" & vbCrLf
strbody = strbody & Request("civilstand") & vbCrLf

If Request("born") <> "" Then
strbody = strbody & "<p><b>Born:</b><br>" & vbCrLf
strbody = strbody & Request("born") & vbCrLf

If Request("arbejde") <> "" Then
strbody = strbody & "<p><b>Arbejde:</b><br>" & vbCrLf
strbody = strbody & Request("arbejde") & vbCrLf

If Request("pass") <> "" Then
strbody = strbody & "<p><b>Password:</b><br>" & vbCrLf
strbody = strbody & Request("pass") & vbCrLf

If Request("pass2") <> "" Then
strbody = strbody & "<p><b>BPassword:</b><br>" & vbCrLf
strbody = strbody & Request("pass2") & vbCrLf

If Request("bemerkninger") <> "" Then
strbody = strbody & "<p><b>Bemerkninger:</b><br>" & vbCrLf
strbody = strbody & Request("bemerkninger") & vbCrLf

End If

subject     = "Besked fra domæne.dk"
body         = strbody

If SendMail(emailapp, emailserver, fromname, fromaddress, toname, toemail, subject, body) Then
Msg =         "<font class=""text"">" & vbCrLf
Msg = Msg & "Hej "&fromname&"," & vbCrLf
Msg = Msg & "<p>" & vbCrLf
Msg = Msg & "Din besked er sendt til "&toname&"." & vbCrLf
Else
msg =      "<font class=""text"">The ""Send To A Friend"" form was <b>not</b> sent successfully.&nbsp;&nbsp;We could be experiencing temporary server problems.&nbsp;&nbsp;Please try again at a later time." & vbCrLf
msg = msg & "<p>" & vbCrLf
msg = msg & "<b>Error:</b> "&Err.Description&"" & vbCrLf
Msg = Msg & "</font>" & vbCrLf
End If
%>
                  <SCRIPT LANGUAGE="JAVASCRIPT" TYPE="text/javascript">
<!--
function TAFemailValidation(entered, alertbox)
{
with (entered)
{
apos=value.indexOf("@");
dotpos=value.lastIndexOf(".");
lastpos=value.length-1;
if (apos<1 || dotpos-apos<2 || lastpos-dotpos>3 || lastpos-dotpos<2)
{if (alertbox) {alert(alertbox);} return false;}
else {return true;}
}
}

function TAFconfirmValidation(entered, alertbox)
{
with (entered)
{
subjectlen = value.length;
if (subjectlen == "") {
if (alertbox) {alert(alertbox);} return false;}
else {return true;}
}
}

function TAFvalidation(thisform)
{
with (thisform)
{
if (TAFconfirmValidation(yname,"Please enter a value in the \"Your Name\" field!")==false) {yname.focus(); return false;};
if (TAFemailValidation(yemail,"The \"Your Email\" field contains an invalid email address or the field was left blank.")==false) {yemail.focus(); return false;};
if (TAFconfirmValidation(tname,"Please enter a value in the \"Their Name\" field!")==false) {tname.focus(); return false;};
if (TAFemailValidation(temail,"The \"Their Email\" field contains an invalid email address or the field was left blank.")==false) {temail.focus(); return false;};
}
}
//-->
</script>