I am trying to save arabic text from Flash 8 to an Access table through ASP.
Please help me fix this issue.

I am using the following code in Flash 8
var questionData:LoadVars = new LoadVars();
questionData.addRequestHeader("Content-Type",
"application/x-www-form-urlencoded; charset=utf-8");

questionData.id = 3
questionData.data = "???? 2";

//questionData.sendAndLoad("http://localhost/newart/writedata.asp",
questionData, "POST");
questionData.send("http://localhost/newart/test.asp", "_blank", "POST");

and following in 'Test.asp'
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Write(Request.QueryString("test"))
%>

and what i am getting in web page or in database (when saved using
sendAndLoad) is this
???????? 2

just in case, following is the code in WriteData.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
'// Open database connection
Dim conn
Set conn = Application.Contents("dbConnection")
If (conn.State = adStateClosed) Then conn.Open

'// Get posted data
intEditMode = Request("editMode")
lngQuestionID = Request("questionID")
lngCategoryID = Request("categoryID")
strQuestion = Request("question")
strQuestionType = Request("questionType")
strChoice1 = Request("choice1")
strChoice2 = Request("choice2")
strChoice3 = Request("choice3")
strAnswer = Request("answer")
intDisplaySize = Request("displaySize")
blnEnabled = Request("enabled")

Dim cmn
Set cmn = Server.CreateObject("ADODB.Command")
With cmn
Set .ActiveConnection = conn

If (intEditMode = "1") Then
.CommandText = _
"INSERT INTO QuestionBank (" & _
"CategoryID, QuestionType, Question, Choice1, Choice2, Choice3, Answer,
DisplaySize, Enabled) " & _
"VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
ElseIf (intEditMode = "2") Then
.CommandText = _
"UPDATE QuestionBank " & _
"SET CategoryID = ?, QuestionType = ?, Question = ?, " & _
"Choice1 = ?, Choice2 = ?, Choice3 = ?, Answer = ?, " & _
"DisplaySize = ?, Enabled = ? " & _
"WHERE (QuestionID = ?)"
ElseIf (intEditMode = "3") Then
.CommandText = _
"DELETE FROM QuestionBank " & _
"WHERE (QuestionID = ?)"
End If

If (intEditMode = "1") Or (intEditMode = "2") Then
.Parameters.Append .CreateParameter("CategoryID", adInteger, adParamInput, ,
CLng("0" & lngCategoryID))
.Parameters.Append .CreateParameter("QuestionType", adVarChar, adParamInput,
6, strQuestionType)
.Parameters.Append .CreateParameter("Question", adVarChar, adParamInput,
255, strQuestion)
.Parameters.Append .CreateParameter("Choice1", adVarChar, adParamInput, 255,
strChoice1)
.Parameters.Append .CreateParameter("Choice2", adVarChar, adParamInput, 255,
strChoice2)
.Parameters.Append .CreateParameter("Choice3", adVarChar, adParamInput, 255,
strChoice3)
.Parameters.Append .CreateParameter("Answer", adVarChar, adParamInput, 255,
strAnswer)
.Parameters.Append .CreateParameter("DisplaySuze", adSmallInt, adParamInput,
, CInt("0" & intDisplaySize))
.Parameters.Append .CreateParameter("Enabled", adBoolean, adParamInput, ,
blnEnabled)
End If

If (intEditMode = "2") Or (intEditMode = "3") Then
.Parameters.Append .CreateParameter("QuestionID", adInteger, adParamInput, ,
CLng("0" & lngQuestionID))
End If

On Error Resume Next
.Execute
If (Err.Number > 0) Then Response.Write("errMessage=" & Err.Message & "&");
On Error GoTo 0
End With

'// Close database connection
If (conn.State = adStateOpen) Then conn.Close
Set conn = Nothing
%>