---
title: "Meddelande script prob."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82295-meddelande-script-prob"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Melea"
published: "2003-07-18T22:19:00.000Z"
updated: "2003-07-18T23:00:25.000Z"
replies: 11
views: 225
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/82295-meddelande-script-prob"
---

# Meddelande script prob.

## #1 — Melea, 2003-07-18T22:19Z

Hejsan!

Nu är jag tillbaka med ett problem jag inte hittar ngt svar till :)

Jag håller på att fixa ett meddelande system till en sida jag jobbar på. Folk ska alltså kunna skicka meddelanden till varandra och det var absolut inga problem att fixa, men! När jag ska skriva en kod som gör att det inte går att skicka ett meddelande till en viss person om personen inte existerar i databasen så får jag ett problem. Själva Session meddeladet visas även om jag skriver till en person som finns i databasen. Min nuvarande kod ser ut såhär:

```
MySQL = "SELECT * FROM members" 
Set RecSet = Connect.Execute(MySQL)

Do Until RecSet.EOF

If Request.Form("userTO") <> RecSet("username") then
Session("nouser") = "Det finns ingen med det användarnamnet"
Response.Redirect "../message_send.asp"
End If

RecSet.Movenext
Loop
```

Vore ytterst tacksam om någon kunde hjälpa mig med det här.

Tack på förhand

//Jonas "Mellow" Stenberg

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

## #2 — Jesper T, 2003-07-18T22:36Z

Jag skulle nog ha gjort så här:

```
sql = "SELECT * FROM members WHERE username = '" & Request.Form("userTO") &"'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

if not rsUser.EOF then

'uppdatera databasen med nytt meddelande

else 

Session("nouser") = "Det finns ingen med det användarnamnet"
Response.Redirect "../message_send.asp"

end if
```

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

## #3 — Melea, 2003-07-18T22:39Z

Nu hänger jag inte med riktigt, beror antagligen på min "trötthet" :OO

Men...

Såhär lyder hela koden:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=xxx;pwd=xxx;database=xxx" 
Set RecSet = Server.CreateObject("ADODB.Recordset")

MySQL = "SELECT * FROM members" 
Set RecSet = Connect.Execute(MySQL)

Do Until RecSet.EOF

If Request.Form("userTO") <> RecSet("username") then
Session("nouser") = "Det finns ingen med det användarnamnet"
Response.Redirect "../message_send.asp"
End If

RecSet.Movenext
Loop

dim struserTO, struserFROM, strTopic, strText, strDatum, strIP
struserTO = Request.Form("userTO")
struserFROM = Request.Form("userFROM")
strtopic = Request.Form("topic")
strtext = Request.Form("text")
strdatum = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
strIP = Request.ServerVariables("REMOTE_ADDR")
sql = " insert into message(userTO, userFROM, Topic, Text, Datum, IP) "  & " values('" & struserTO & "','" & struserFROM & "', '" & strtopic & "','" & strtext & "','" & strdatum & "','" & strIP & "') "
Connect.Execute sql,,128

Session("sent") = "Meddelandet är nu skickat till " & Request.Form("userTO") & ". "
Response.Redirect("../message_send.asp")
%>
```

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

## #4 — Jesper T, 2003-07-18T22:47Z

Som princip:

```
 <%
dim struserTO, struserFROM, strTopic, strText, strDatum, strIP
struserTO = Request.Form("userTO")
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;uid=xxx;pwd=xxx;database=xxx" 
Set RecSet = Server.CreateObject("ADODB.Recordset")

MySQL = "SELECT * FROM members where username = '"& struserTO &"'"
Set RecSet = Connect.Execute(MySQL)

if not RecSet.EOF then

struserFROM = Request.Form("userFROM")
strtopic = Request.Form("topic")
strtext = Request.Form("text")
strdatum = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)
strIP = Request.ServerVariables("REMOTE_ADDR")
sql = " insert into message(userTO, userFROM, Topic, Text, Datum, IP) "  & " values('" & struserTO & "','" & struserFROM & "', '" & strtopic & "','" & strtext & "','" & strdatum & "','" & strIP & "') "
Connect.Execute sql,,128

Session("sent") = "Meddelandet är nu skickat till " & Request.Form("userTO") & ". "
Response.Redirect("../message_send.asp")
else 
Session("nouser") = "Det finns ingen med det användarnamnet"
Response.Redirect "../message_send.asp"
end if
%>
```

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

## #5 — Jesper T, 2003-07-18T22:49Z

Att skapa två sessioner är onödigt, du kan ju lägga in olika meddelanden i samma session med samma namn som du sedan skriver ut på sidan message_send.asp

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

## #6 — Melea, 2003-07-18T22:51Z

Feltyp:
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/creative/counter-strike/admin/message_send.asp, line 10

```
sql = "SELECT * FROM members WHERE username = '" & Request.Form("userTO") &"'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3 'HÄR ÄR RAD 10
```

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

## #7 — Jesper T, 2003-07-18T22:53Z

Det är för en annan connection. Testa koden jag limmade in senast i stället.

```
...
MySQL = "SELECT * FROM members where username = '"& struserTO &"'"
Set RecSet = Connect.Execute(MySQL)
...
```

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

## #8 — Melea, 2003-07-18T22:56Z

Aa nog e jag trött :) Men trodde inte jag var så här trött...

Allt funkar perfekt nu, tack så hemskt mkt för din uthållighet :e

MVH Jonas "Mellow" Stenberg

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

## #9 — Jesper T, 2003-07-18T22:58Z

Vad funkar?
Din gamla kod?

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

## #10 — Melea, 2003-07-18T22:58Z

Din nya kod ;)

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

## #11 — Jesper T, 2003-07-18T22:59Z

Puuuhh. Grattis! :bire

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

## #12 — Melea, 2003-07-18T23:00Z

cheers mate :birp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/82295-meddelande-script-prob