Opdaterings script

\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"DIN DATABASE.mdb\")
Conn.Open DSN

strSQL = \"Update Medlemmer Set Alias = \'\"&request(\"alias\")&\"\', navn = \'\"&request(\"navn\")&\"\', email = \'\"&request(\"email\")&\"\' where navn = session(\"navn\")
set rs = conn.execute(strSQL)

session(\"navn\") til sidst var bare et eksempel! Er det sådan du mener?

ja jeg tjkker lige om det virker så får du dine point!

Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/smokers/retinfo.asp, line 14

strSQL = \"Update Medlemmer Set Alias = \'\"&request(\"alias\")&\"\', om = \'\"&request(\"om\")&\"\', pic = \'\"&request(\"pic\")&\"\', map = \'\"&request(\"map\")&\"\', item = \'\"&request(\"item\")&\"\', vaben = \'\"&request(\"vaben\")&\"\', navn = \'\"&request(\"navn\")&\"\', icq = \'\"&request(\"icq\")&\"\', mail = \'\"&request(\"mail\")&\"\' where id = session(\"login\")


--------------- Så dan her jeg lavet det!! ---------------

<%
IF request.querystring(\"update\") = \"1\" THEN


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

strSQL = \"Update Medlemmer Set Alias = \'\"&request(\"alias\")&\"\', om = \'\"&request(\"om\")&\"\', pic = \'\"&request(\"pic\")&\"\', map = \'\"&request(\"map\")&\"\', item = \'\"&request(\"item\")&\"\', vaben = \'\"&request(\"vaben\")&\"\', navn = \'\"&request(\"navn\")&\"\', icq = \'\"&request(\"icq\")&\"\', mail = \'\"&request(\"mail\")&\"\' where id = session(\"login\")
set rs = conn.execute(strSQL)

%>

<% END IF %>

undskyld det skal bare være conn.execute(strSQL)

Hvilken linie giver den fejlen i?

ups, der mangler et \" efter session(\"login\")

14

<%
IF request.querystring(\"update\") = \"1\" THEN


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

strSQL = \"Update Medlemmer Set Alias = \'\"&request(\"alias\")&\"\', om = \'\"&request(\"om\")&\"\', pic = \'\"&request(\"pic\")&\"\', map = \'\"&request(\"map\")&\"\', item = \'\"&request(\"item\")&\"\', vaben = \'\"&request(\"vaben\")&\"\', navn = \'\"&request(\"navn\")&\"\', icq = \'\"&request(\"icq\")&\"\', mail = \'\"&request(\"mail\")&\"\' where id = session(\"login\")\"
conn.execute(strSQL)

%>

<% END IF %>

er alle kolonnerne i databasen tekstfelter?

virker ikke!!!
du kan selv prøve at se
www.friserverplads.dk/smkers/login.asp
login men username: snata
pass: d12345
og vælg ret din bruger!

nej der er notat, text, klokkeslet og en id som er auto!

den siger at der er fej i

strSQL = \"Update Medlemmer Set Alias = \'\"&request(\"alias\")&\"\', om = \'\"&request(\"om\")&\"\', pic = \'\"&request(\"pic\")&\"\', map = \'\"&request(\"map\")&\"\', item = \'\"&request(\"item\")&\"\', vaben = \'\"&request(\"vaben\")&\"\', navn = \'\"&request(\"navn\")&\"\', icq = \'\"&request(\"icq\")&\"\', mail = \'\"&request(\"mail\")&\"\' where id = session(\"login\")\"

Når det er notat og tekst, så skal det være \'\"&request(\"\")&\"\' når det er dato, skal det være #\"&request(\"\")&\"# og når det er tal skal det være \"&request(\"\")&\"

der mangler forøvrigt noget omkring session
\"&session(\"login\")&\"

virker stadig ikke!!!

Har du indstillet sat alle variablene rigtigt, som jeg sagde?
Hvilke fejl giver den?

ehh lukker og slukker