18. januar 2002 - 10:45Der er
9 kommentarer og 1 løsning
ASP sammenligning i db og tælle op med 1
jeg har lavet dette lille program, der henter text fra tre textfelter og smider dem i en db. Det virker fint. Nu er det jeg gerne vil sammenligne indholdet i de tre textfelter, med det der står i db. Hvis det der står i db er = det i textfelterne skal den ikke tilføje til db men lægge +1 til recordfeltet \"votes\", der hvor textfelterne = recordset. Hvordan gør man det???? Jeg har ikke så meget forstand på ASP, men jeg prøver.. Findes der en side med et eksempel, eller kan en af jer hurtigt lave et eksempel på hvordan man gør dette??? Her er min Kode: Her er felterne: <% Set DataConn = Server.CreateObject(\"ADODB.Connection\") Set strRecSet = server.CreateObject(\"ADODB.Recordset\") DBSti = \"DBQ=\" & Server.Mappath(\"Awarddb.mdb\") DataConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti %>
her bliver de tilføjet til db: <% Set DataConn = Server.CreateObject(\"ADODB.Connection\") Set strRecSet = server.CreateObject(\"ADODB.Recordset\") DBSti = \"DBQ=\" & Server.Mappath(\"Awarddb.mdb\") DataConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti %>
<%
mySQL = \"INSERT INTO Nominees ( Nominee, SongName, SongLink)\" mySQL = mySQL & \" VALUES (\'\" & request.form(\"Nominee\") & \"\',\'\" & request.form(\"SongName\") & \"\',\'\" & request.form(\"SongLink\") & \"\')\" Dataconn.execute(mySQL)
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
if not rs(\"nominee\") = request.form(\"nominee\") then mySQL = \"INSERT INTO Nominees ( Nominee, SongName, SongLink)\" mySQL = mySQL & \" VALUES (\'\" & request.form(\"Nominee\") & \"\',\'\" & request.form(\"SongName\") & \"\',\'\" & request.form(\"SongLink\") & \"\')\" Dataconn.execute(mySQL)
response.write \"your vote is registered.\"
else
mySQL = \"UPDATE Nominees (votes)\" mySQL = mySQL & \" VALUES (rs(\"votes\")+1)\" Dataconn.execute(mySQL)
response.write \"your vote is registered.\" end if
Fejltype: Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401) Slut på sætning var ventet /AwardAnswer.asp, line 19, column 30 mySQL = mySQL & \" VALUES (rs(\"votes\")+1)\" -----------------------------^
sådan <% Set DataConn = Server.CreateObject(\"ADODB.Connection\") Set strRecSet = server.CreateObject(\"ADODB.Recordset\") DBSti = \"DBQ=\" & Server.Mappath(\"Awarddb.mdb\") DataConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBSti \'sæt denne linie ind her set rs = DataConn.execute(\"SELECT votes from nominees\")
Jeg får desværre stadig samme fejl :( Fejltype: Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401) Slut på sætning var ventet /AwardAnswer.asp, line 20, column 30 mySQL = mySQL & \" VALUES (rs(\"votes\")+1)\" -----------------------------^
det er ikke rs det er galt med nu, det er vist i (\"votes\") det er galt fejlen så sådan ud, sorry: mySQL = mySQL & \" VALUES (rs(\"votes\")+1)\" -----------------------------^
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.