Udskriv 5 hyppigste poster

Undskyld titlen... Men den beskriver det, jeg skal bruge den til!

UPDATE tabel SET felt = felt + 1 WHERE id = 1

Det virker ikke... Hvad gør jeg galt her:

<%
set conn = server.createobject("adodb.connection")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../admin/db/database.mdb")
conn.open strDSN
UPDATE [favorit] SET antal = antal + 1, id2 = '"& request.querystrin("id") &"' WHERE id = '"& request.querystring("id") & "'
conn.execute(sql)
%>
_______________________________________
Den siger "Expected End of statement"

Der mangler en " tilsidst i linjen, så det bliver & "'"

Desværre... Jeg får stadig samme fejl...

hmm ja det overså jeg lige ;) du skal også skriver det sådan her så du ligger det ind i en variable

sql = "UPDATE [favorit] SET antal = antal + 1, id2 = '"& request.querystrin("id") &"' WHERE id = '"& request.querystring("id") & "'"

Er Id2 io id tal kolonner skal du ikke hvade ' omkring med mindre du bruger mySQL.

Så virker det vist nogenlunde... Men nu er der et nyt problem... Jeg rettede lidt i koden, sådan at flere querystrings blev gemt... En af disse querystrings hed "link" og indeholdt naturligvis et link... Men det så får jeg fejl... Ka' det have noget at gøre med skråstregerne, kolonnet eller punktummerne? Og hvad kan gøres, får at den alligevel kan gemme dette? (http://www.miniclip.com/bushshootout.htm)

"Syntax error in update statement"

sql = "UPDATE [favorit] SET antal = antal + 1, id2 = "& request.querystring("id") &", link = '"& request.querystring("link") &"', picture = '"& request.querystring("picture") &"', WHERE id2 = "& request.querystring("id") & ""

Ja når du laver QueryStringen kan du prøve at sætte Server.URLEncode omkring linket:

link = "http://www.miniclip.com/bushshootout.htm"

..&link="& Server.URLencode(link)&"...

Hmmm... Jeg prøvede lige at fjerne alle specialtegn, og den gav mig alligevel den fejl...

Hvilken fejl får du?

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/web-gamez/spilprofil.asp, line 12

Prøv at udskrive sql i stedet for udføre den så kan det være lettere at se syntax fejl.

sql = "UPDATE [favorit] SET antal = antal + 1, id2 = "& request.querystring("id") &", link = '"& request.querystring("link") &"', picture = '"& request.querystring("picture") &"', WHERE id2 = "& request.querystring("id") & ""
Response.Write sql
Response.End

UPDATE [favorit] SET antal = antal + 1, id2 = 1, link = 'http//wwwminiclipcom/bushshootouthtm', picture = 'bushshootoutgamesmallicongif', WHERE id2 = 1

ok, der er kommet et komma ind før WHERE det må der ikke være så prøv at fjerne det komma der er før WHERE og slet de to ekstra linjer om det så virker

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/web-gamez/spilprofil.asp, line 12

Så prøv at vise linjerne, det skulle ikke gøre det.

Hvilke linjer?

(Altså linje tolv er update-sætningen...)

Ok så prøv at vise den

Sådan her:
sql = "UPDATE [favorit] SET antal = antal + 1, id2 = "& request.querystring("id") &", link = '"& request.querystring("link") &"', picture = '"& request.querystring("picture") &"' WHERE id2 = "& request.querystring("id") & ""

Eller skal jeg udskrive sætningen?

hmm det forstår jeg ikke helt, det eneste object er request.querystring og det er skrevet rigtigt så vidt jeg kan se.

Hvorfor vil du opdatere id2 ?
Det må nødvendigvis være det samme, ellers kan du jo ikke bruge det i where kriteriet

Ja, det er sandt... Hmmm... Det kom nok af, at jeg senere ville ændre koden til, at hvis der ikke var nogen i forvejen, skulle den oprettes... Ka' i hjælpe med det, tror i, så det virker? Altså den skal kun opdatere, hvis der allerede er en post, hvor "Id2" = querystringen "Id", og ellers skal den oprette posten...

Der er to metoder:

1. Lav en select som henter id2=querystringn. Er recordsetet tomt så findes id'et ikke og man laver en Insert ellers laves en update.

2. Lav en Update og brug et tjek på recordaffected fra connection hvis det er 0 så findes ID'et ikke og man laver så en Insert.

Ok, endnu engang må jeg nok indrømme at jeg er temmelig (totalt) spasser til ASP...
Er det noget i denne stil:
_________________________________

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/database.mdb")

strSQL = "SELECT * FROM [favorit] where [id2] = "& request.querystring("id") &""

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

sql = "UPDATE [favorit] SET [antal] = [antal] + 1, [link] = '"& request.querystring("link") &"', [picture] = '"& request.querystring("picture") &"' WHERE [id2] = "& request.querystring("id") &""
Set rs = myConn.Execute(strSQL)

    Else
    ' Hvis der ikke er skrevet noget
   
      rs.Open strSQL, strDSN, 2, 2
  rs.AddNew

  rs("link") = Request.Querystring("link")
  rs("picture") = Request.Querystring("picture")
  rs("id2") = Request.Querystring("id")

  rs.Update

  'lukker pænt igen
  rs.Close
  set rs = Nothing

End If

myConn.Close
Set Conn = Nothing
%>

Ja det er det, dog skal du lige havde styr på vaiable navne sql og strSQL så de rigtige bliver udført. Jeg ville lave det sådan her:

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/database.mdb")

strSQL = "SELECT * FROM [favorit] where [id2] = "& request.querystring("id") &""

Set rs = myConn.Execute(strSQL)
If Not rs.EOF Then

  sql = "UPDATE [favorit] SET [antal] = [antal] + 1, [link] = '"& request.querystring("link") &"', [picture] = '"& request.querystring("picture") &"' WHERE [id2] = "& request.querystring("id") &""
  myConn.Execute(SQL)

Else
    ' Hvis der ikke er skrevet noget
   
  sql = "INSERT INTO (link, picture, id2) VALUES ("
  sql = sql & "'" & Request.Querystring("link") & "', "
  sql = sql & "'" & Request..Querystring("picture") & "', "
  sql = sql & Request.Querystring("id")
  sql = sql & ")"
 
  myConn.Execute(sql)
End If

myConn.Close
Set Conn = Nothing
%>

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/web-gamez/spilprofil.asp, line 28

ok, der mangler tabel angivelse så prøv at rette:

sql = "INSERT INTO (link, picture, id2) VALUES ("

Til denne:

sql = "INSERT INTO [favorit] (link, picture, id2) VALUES ("

YES! Jaaaaa... :-) Det virker... Juhu... Nu har du jo hjulpet mig en del Eagleeye, så pointene må gå til dig...

Ok :) Så laver jeg lige et svar.