Oprette alertboks i en asp

Jeg vil gerne indsætte en alertboks i stedet for en fejl meddelelse i form af en "ny" side.

Jeg har prøvet med denne: http://html.dk/scripts/javascript/00013/

Men jeg får stadig min nuværende fejl meddelelse, jeg går ud fra at der skal rettes i min kode og jeg har også prøvet at fjerne det jeg tror som skal fjernes, men det virker ikke eller jeg får en fejl. I kan se min kode her:


IP = Request.ServerVariables("REMOTE_ADDR")
FIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If ((FIP <> "") And (FIP <> "unknown")) Then
    IP = FIP
End If

If Request.Form("Gem") <> "" Then
    strError = ""
    strNavn = Trim(Request.Form("Navn"))
    strEmail = Trim(Request.Form("Email"))
    strOverskrift = Trim(Request.Form("Overskrift"))
    strKommentar = Trim(Request.Form("Kommentar"))

if strOverskrift = "Overskrift" then
        strError = "<li>Du skal skrive en overskrift!</li>"
    if strnavn = "Navn" then
        strError = "<li>Du skal skrive dit navn!</li>"
end if
    ElseIf validateEmail(strEmail) = False Then
        strError = "<li>Du skal skrive en gyldig e-mail adresse!</li>"
    ElseIf Len(strKommentar) = 0 Then
        strError = "<li>Du skal skrive en kommentar!</li>"
    End If

    If Len(strError) = 0 Then
        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"

        rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
        If (rs.BOF Or rs.EOF) Then
            rs.AddNew
            rs("Navn") = Server.HTMLEncode(strNavn)
            rs("Email") = Server.HTMLEncode(strEmail)
            rs("Overskrift") = Server.HTMLEncode(strOverskrift)
            rs("Kommentar") = Server.HTMLEncode(strKommentar)
            rs("Dato") = Now()
            rs("IP") = IP
            rs.Update
        End If
        rs.Close
        Set rs = Nothing

        Response.Redirect("gb.asp")
    Else
        strError = "<font color=#FF0000>" & strError & "</font>"
        strMode = "add"
    End If
End If

%>