---
title: "Skicka meddelanden med Flash & ASP (ASP relaterat!!!)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75616-skicka-meddelanden-med-flash-asp-asp-relaterat"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2003-05-01T16:28:20.000Z"
updated: "2003-05-01T16:28:20.000Z"
replies: 0
views: 151
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/75616-skicka-meddelanden-med-flash-asp-asp-relaterat"
---

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

## #1 — MickeA.com, 2003-05-01T16:28Z

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 !

Permalänk: https://www.webforum.nu/p/75616

---

Tråden på webben: https://www.webforum.nu/amne/asp/75616-skicka-meddelanden-med-flash-asp-asp-relaterat