whats wrong with this? get a syntax error the code below is for a text area

If Len (Request.Form("additional")) > 0 Then
strSQL = strSQL & AddSQLQuotes(Request.Form("additional"), "'") & ","
strSQL = strSQL & Cstr(Request.Form("additional")) & "'"
End If

<textarea rows="5" cols="68" name="additional" value="<%If VehicleID <> 0 Then Response.Write(rsData.Fields("additional")) end if%>"></textarea>