Fejl i script

Hej eksperter... kan jeg ikke få jer til at se dette efter for fejl ?

<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0
Dim strFirstname, strLastname
Dim strUnformattedMessage, strMessage
If Request.ServerVariables("QUERY_STRING") <> "" Then
    ' Retrieving Form Data from QueryString
    strFirstname = Trim(Request.QueryString("firstname"))
    strLastname = Trim(Request.QueryString("lastname"))
    strUnformattedMessage = Trim(Request.QueryString("message"))
    strMessage = Replace(strUnformattedMessage, vbcrlf, "<BR>" & vbcrlf)
%>
<html><body>
The script has recived the form data.<br><br>
First name: <%= strFirstname %><br><br>
Last name:    <%= strLastname %><br><br>
Unformatted Message: <%= strUnformattedMessage %><br><br>
Formatted Message: <%= strMessage %><br><br>
The submitted querystring<br>
<%= Request.ServerVariables("QUERY_STRING") %>
</body></html>
<%
Else
%>
<html><body>
Please provide youre name:<br>
<FORM ACTION="<%= Request.ServerVariables(SCRIPT_NAME) %>" METHOD="GET">
First name: <INPUT TYPE="Text" NAME="firstname"><br>
Last name: <INPUT TYPE="Text" NAME="lastname"><br>
Your message: <TEXTAREA NAME="message">Hello,
this is a text</TEXTAREA><br>
<INPUT TYPE="submit" NAME="submit" VALUE="Submit Form">
</FORM>
</body></html>
<% End If %>



Mvh.
questis.dk