Hvordan henter jeg request.form ?

strBesked = Request.Form(\"Besked\")
strSQL = \"Insert into besked Values(\'\" & strBesked & \"\')\"
Tror jeg nok

tester lige 2 sek

de bliver ik gemt ?

<%
If Request.QueryString(\"mode\") = \"skrive\" Then
StrFra = Request.Write(Session(\"Brugernavn\"))
StrTil = Request.Form(\"Til\")
StrBesked = Request.Form(\"Besked\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"chat.mdb\")
Conn.Open DSN

strSQL = \"Insert into Beskederne(Fra, Til, Besked) values(\'\" & StrFra & \"\',\'\" & StrTil & \"\',\'\" & StrBesked & \"\')\"

Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
End If
%>

hvis det ikke virker har jeg nogen scrip jeg lige kan hive frem!

Jeg tror fejlen ligger strSQL to sec.....

strSQL = \"Insert into personer (Fra, Til, Besked) values(\'\" & strFra & \"\',\'\" & strTil & \"\',\' \" strBesked & \"\')\"
Conn.Execute(strSQL)

Er du sikker på Fra er med stort????

strSQL = \"Insert into personer (Fra, Til, Besked) values(\'\" & strFra & \"\',\'\" & strTil & \"\',\' \" & strBesked & \"\')\"
Conn.Execute(strSQL)

der var den vist!

sql = \"INSERT INTO data (Fra, Til, Besked) values (\"
sql = sql & \"\'\" & strFra & \"\',\"
sql = sql & \"\'\" & strTil & \"\',\"
sql = sql & \"\'\" & strBesked & \"\')\"
Set rs3 = Conn2.ExeCute(sql)

DEN VIRKER BRUGER DEN SELV!!

Jeg får Siden kan ik vises ?
Være gang jeg sender noget !

freedom > prøve at lægge hele den kildekode ??

Forresten har du et :
Dim StrFra, StrTil, StrBesked i toppen ?

<%
    strBrugernavn = Request.Form(\"brugernavn\")
    strNavn = Request.Form(\"name\")
    strNummer = Request.Form(\"nummer\")
    strUdbyder = Request.Form(\"udbyder\")
    Set Conn1 = Server.CreateObject(\"ADODB.Connection\")

DSN1 = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN1 = DSN1 & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn1.Open DSN1
strsql2 = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\' or nummer = \" & strNummer
Set rs = Conn1.Execute(strsql2)
If Not rs.EOF Then
Response.Write (\"brugernavn eller nummer er registeret!!!\")
Else
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN

strSQL1 = \"SELECT * INTO \" & strBrugernavn  & \"  FROM tom;\"
Set rs1 = Conn1.Execute(strSQL1)
Randomize
int1 = Int(Rnd * 10)
Select Case int1 
case \"0\"
Tal1 = \"a\"
case \"1\"
Tal1 = \"b\"
case \"2\"
Tal1 = \"c\"
case \"3\"
Tal1 = \"d\"
case \"4\"
Tal1 = \"e\"
case \"5\"
Tal1 = \"f\"
case \"6\"
Tal1 = \"g\"
case \"7\"
Tal1 = \"h\"
case \"8\"
Tal1 = \"i\"
case \"9\"
Tal1 = \"j\"
End select

Randomize
int2 = Int(Rnd * 10)
Select Case int2
case \"0\"
Tal2 = \"0\"
case \"1\"
Tal2 = \"1\"
case \"2\"
Tal2 = \"2\"
case \"3\"
Tal2 = \"3\"
case \"4\"
Tal2 = \"4\"
case \"5\"
Tal2 = \"5\"
case \"6\"
Tal2 = \"6\"
case \"7\"
Tal2 = \"7\"
case \"8\"
Tal2 = \"8\"
case \"9\"
Tal2 = \"9\"
End select

Randomize
int3 = Int(Rnd * 10)
Select Case int3
case \"0\"
Tal3 = \"0\"
case \"1\"
Tal3 = \"1\"
case \"2\"
Tal3 = \"2\"
case \"3\"
Tal3 = \"3\"
case \"4\"
Tal3 = \"4\"
case \"5\"
Tal3 = \"5\"
case \"6\"
Tal3 = \"6\"
case \"7\"
Tal3 = \"7\"
case \"8\"
Tal3 = \"8\"
case \"9\"
Tal3 = \"9\"
End select

Randomize
int4 = Int(Rnd * 10)
Select Case int4
case \"0\"
Tal4 = \"0\"
case \"1\"
Tal4 = \"1\"
case \"2\"
Tal4 = \"2\"
case \"3\"
Tal4 = \"3\"
case \"4\"
Tal4 = \"4\"
case \"5\"
Tal4 = \"5\"
case \"6\"
Tal4 = \"6\"
case \"7\"
Tal4 = \"7\"
case \"8\"
Tal4 = \"8\"
case \"9\"
Tal4 = \"9\"
End select

Randomize
int5 = Int(Rnd * 10)
Select Case int5
case \"0\"
Tal5 = \"0\"
case \"1\"
Tal5 = \"1\"
case \"2\"
Tal5 = \"2\"
case \"3\"
Tal5 = \"3\"
case \"4\"
Tal5 = \"4\"
case \"5\"
Tal5 = \"5\"
case \"6\"
Tal5 = \"6\"
case \"7\"
Tal5 = \"7\"
case \"8\"
Tal5 = \"8\"
case \"9\"
Tal5 = \"9\"

End select
Select case strUdbyder
Case \"Oragne\"
strUdbyder = \"@mobilix.sms.dk\"
Case \"Teledanmark\"
strUdbyder = \"@teledanmark.sms.dk\"
Case \"TeleFona\"
strUdbyder = \"@TeleFona.sms.dk\"
Case \"Debitel\"
strUdbyder = \"@Debitel.sms.dk\"
Case \"Telia\"
strUdbyder = \"@Telia.sms.dk\"
End Select
strTal = Tal1 & Tal2 & Tal3 & Tal4 & Tal5
Set Conn2 = Server.CreateObject(\"ADODB.Connection\")
DSN3 = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN3 = DSN3 & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn2.Open DSN3
sql = \"INSERT INTO data (brugernavn, adgangskode, nummer, udbyder, points) values (\"
sql = sql & \"\'\" & strBrugernavn & \"\',\"
sql = sql & \"\'\" & strTal & \"\',\"
sql = sql & \"\'\" & strNummer & \"\',\"
sql = sql & \"\'\" & strUdbyder & \"\',\"
sql = sql & \"\'10\')\"
Set rs3 = Conn2.ExeCute(sql)
Response.write \"færdig!!\"
Conn1.Close
Set Conn1 = Nothing                                     
Conn.Close
Set Conn = Nothing
Conn2.Close
Set Conn2 = Nothing
End if
%>

Conn2.Open DSN3
sql = \"INSERT INTO data (brugernavn, adgangskode, nummer, udbyder, points) values (\"
sql = sql & \"\'\" & strBrugernavn & \"\',\"
sql = sql & \"\'\" & strTal & \"\',\"
sql = sql & \"\'\" & strNummer & \"\',\"
sql = sql & \"\'\" & strUdbyder & \"\',\"
sql = sql & \"\'10\')\"
Set rs3 = Conn2.ExeCute(sql)


Er æmdret til din kode!

Fixet :)

Fik det til at virke på en anden måd !

ok tak for de fem points