Hvorfor virker dette ikke?

<%
ElseIf mode = "BrevkasseRec" then
Set Con = Server.CreateObject("ADODB.Connection")
Con.open Data

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * FROM Brevkasse WHERE ID = " & Request("ID")

Rs.Open Sql, Con, 1, 3

Rs.AddNew
Rs("Svar") = "Yes"
Rs("Svar-Person") = SESSION("username")
Rs("Svar-Time") = Now()
Rs("Svar-Besked") = Request.Form("Svar")
Rs.Update

Response.Write("Du har hermed svaret på indlægget!")
%>

Den opretter bare en ny linie:(