Request.querysting

ame funkar inte

Nehe.

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

<%username = Request.QueryString("kompis")
Response.Write "<OPTION VALUE=""" & username & """>" & username
%>

så här eller

Japp.

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

skrivs texten istället

ska det inte va nån </option> ????

Behövs inte.
Hur ser html-koden ut då? (När du högerklickar och väljer "visa källa")

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

har fixat det vet inte hur men det funkar heheh

Det var på tiden. ;)

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

fyfan går inte och skicka mess står:

Typblandningsfel

Du blandar ihop två variabler som är av olika typer, exempelvis numerisk och sträng. Gör om med cStr (till sträng) eller cInt (till numerisk).

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

va ????

Du blandar ihop text med nummer!

num = 3
text = "3"
response.write num = text
... går ej.

response.write num = cInt(text)
... fungerar.

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

<!-- #include file="adovbs.inc" -->

<%
Set Connect2 = Server.CreateObject("ADODB.Connection") 
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"

Set RecSet2 = Server.CreateObject("ADODB.Recordset")

Addera2 = "Select * From members"
RecSet2.Open Addera2, Connect2, adOpenStatic, adLockOptimistic
%>

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/messages.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From message"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew
	
	RecSet("tillID") = Request.Form("to")
	RecSet("rubrik") = Request.Form("rubrik")
	RecSet("text") = Request.Form("text")
	RecSet("datum") = Date
	RecSet("read") = 0
	RecSet("namn") = Session("username")
	RecSet("fromID") = Session("id")
	
strSQL="UPDATE members SET poang = poang + 2 WHERE ID = " & Session("id")
Connect2.execute (strSQL)

	RecSet.Update
	RecSet.Close

Connect.close
	Set RecSet = nothing
	Set Connect = nothing

Session("nyapoang") = "Du har fått 2 nya friska poäng!"
Response.Redirect "meddelanden.asp"
%>

RecSet("read") = 0

Den raden skulle jag chansa på men jag vet inte. Felrad?

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

tog bort den funkade inte samma sak

det här felet:

RecSet("tillID") = Request.Form("to")

Vad innehåller Form-objektet då?

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

selectboxen

Request.Form("to")

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."