Skicka meddelanden med Flash & ASP (ASP relaterat!!!)

Hej.

Har en liten Community, Flash & ASP

Nu har jag fixat en grejj, för att medlemmar skall kunna skicka SMÅ, korta mess till varann.

Men det funakr inte-...

För att skicka:

Response.Expires = -1000

anv = Request.Querystring("anv")

Dim pm_fran
Dim pm_till
Dim pm

pm_fran = Request.Form("pm_fran")
pm_till = Request.Form("pm_till")
pm = Request.Form("pm")
pm_datum = now()
pm_last = "0"

Dim oConn
Dim oRec
Dim strSQL

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../hemsida_db/db_forum.mdb"))

strSQL = "SELECT Anv_Namn FROM anv_data WHERE Anv_Namn = '" & anv & "'"

Set oRec = oConn.Execute(strSQL)

If oRec.EOF Then
	Response.Write("&finns=inte")
Else
	strSQL= "INSERT INTO pm_data (Pm, Pm_Till, Pm_Fran, Pm_Datum, Pm_Last) VALUES ('" & Replace(Replace(pm, "'", "''"), "&", "och") & "', '" & Replace(Replace(pm_till, "'", "''"), "&", "och") & "', '" & Replace(Replace(pm_fran, "'", "''"), "&", "och") & "', '" & Replace(datum, "'", "''") & "', '" & Replace(pm_last, "'", "''") & "');"

	Set oRec = oConn.Execute(strSQL)
	Response.Write("&finns=ja")
End If

Set oConn = NOTHING
Set oRec = NOTHING
Set strSQL = NOTHING

Response.Write("&loaded=true")

Och för att ta emot:

Response.Expires = -1000

anv = Request.Querystring("anv")

Dim pm_fran
Dim pm_till
Dim pm

Dim oConn
Dim oRec
Dim strSQL

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../hemsida_db/db_forum.mdb"))

strSQL= "SELECT * FROM pm_data WHERE Pm_Last = 0 AND Pm_Till = '" & anv & "'"
Set oRec = oConn.Execute(strSQL)

If Not oRec.EOF Then
	pm_fran = oRec("Pm_Fran")
	pm_till = oRec("Pm_Till")
	pm = oRec("Pm")
	pm_datum = oRec("Pm_Datum")
		Response.Write("&datum=" & pm_datum)
		Response.Write("&pm_fran=<b>" & pm_fran & "</b> säger:")
		Response.Write("&pm_svar_fran=" & pm_fran)
		Response.Write("&pm=" & pm)
		Response.Write("&stat=skickat")
			strSQL = "UPDATE pm_data SET Pm_Last = 1 WHERE Pm_Last = 0 AND Pm_Till = '" & anv & "'"
			Set oRec = oConn.Execute(strSQL)

Else
	Response.Write("Inget Nytt PM")
End If			

strSQL = ""
Set oConn = NOTHING
Set oRec = NOTHING
Set strSQL = NOTHING

Response.Write("&loaded=true")

In Flash I got a Frameloop, which check:

if (stat == "skickat" && loaded == "true") {
	gotoAndStop(_currentframe+2);
}

MEN...

Det funakr inte alls. Man kan skicka till db'n, har kollat, men kolla-delen funkar inte...

Hjälp !