Syntax fel!

Hej!

Försöker med paging här, men kör nu med mySQL, nytt för mig...

Får felmess på mina sql-satser...?

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=mysql;")

Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select from t_bryggsnack Order by datum desc"
response.write strSQL
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorlocation = 3
  .open strSQL, Connect
end with
If objRs.EOF then
	response.write "Inga inlägg..."
Else
with objRs
  .pagesize = 10
  .absolutepage = intPageId
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td>" & objRs( "namn" ) & "</td>" &_
    "<td>" & objRs( "meddelande" ) & "</td></tr>"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?page=bryggsnack&pageid=" & i & "'>" & i & "</a>"
next

response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td>" & strNavigation & "</td></tr></table>" 
End IF
%>

och sen sidan som tar emot...

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=mysql;")

namn = request.form("namn")
bryggplats = request.form("bryggplats")
meddelande = request.form("meddelande")
ip = request.form("ip")

If namn = "" OR meddelande = "" then
	session("error") = "Du har antingen inte fyllt i namn eller meddelande."
	response.redirect "default.asp?page=bryggsnack"
Else
	
strSQL = "Insert into t_bryggsnack "&_
			"(namn, datum, bryggplats, meddelande, ip) "&_
			"VALUES ('"&namn&"', #"&Date()&"#, '"&bryggplats&"', '"&meddelande&"','"&ip&"')"
Connect.execute strSQL,,128
response.redirect ("default.asp?page=bryggsnack")
End IF
%>

VA I!

Man använder inte brädgårdar för att omsluta datum.

Dessutom: bifoga alltid felmeddelande samt utskriven SQL-fråga.

Men får inte ut sql frågan i response....
får bara:

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[MySQL][ODBC 3.51 Driver][mysqld-4.0.18-nt]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near 'from t_bryggsnack Order by datum desc' at line 1
/kindes/sajten/bryggsnack.asp, line 37

Select [b][red]*[/red][/b] from t_bryggsnack Order by datum desc

oj... hade glömt * där i sqlsatsen.... ;)

Men får inte ut sql frågan i response....

Jodå. Kör en response.end direkt efter så körs inget mer på sidan, och det kan då inte heller bli fel.

jahaaaaaaa du tänker schåååååå!

ett annat problem....
försöker få in Föregående, Nästa oså....
placerar jag det fel nu?

do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td>" & objRs( "namn" ) & "</td>" &_
    "<td>" & objRs( "meddelande" ) & "</td></tr>"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?page=bryggsnack&pageid=" & i & "'>" & i & "</a>"
next

function getPreviousLink( intPageId )
  if intPageId > 1 then
    getPreviousLink = " <a href='?page=bryggsnack&pageid=" & intPageId - 1 & "'>&lt;&lt; Föregående</a> "
  end if
end function

function getNextLink( intPageId, intPageCount )
  if cint( intPageId ) < cint( intPageCount ) then
    getNextLink = " <a href='?pageid=" & intPageId + 1 & "'>Nästa &gt;&gt;</a> "
  end if
end function

response.write "<table>"& getPreviousLink &"</table>"
response.write "<table>"& getNextLink &"</table>"

Vad är det som inte funkar?

(Du kan f.ö. inte ha <table>-taggar runt länkarna)

edit: du skickar ju heller inte med några parametrar till funktionerna som ska skapa länkarna? Börja med det.

Vad menar du? Det gör jag väl?
Detta mess får jag:

Fel antal argument eller felaktig egenskapstilldelning.: 'getPreviousLink'

så de så!

crisse6 skrev:

Detta mess får jag:

Fel antal argument eller felaktig egenskapstilldelning.: 'getPreviousLink'

så de så!

Du skickar ju inga argument, då får du det felet, så det stämmer finfint det.

Okej, jag förstår nog inte riktigt....................... Vad vill du se? Förklara nu :P

crisse6 skrev:

Vad vill du se? Förklara nu :P

Jag vill se att du kallar på funktionerna på rätt sätt. Det sätt du själv har specificerat.

Det gör jag nog inte då? haha, fattar inget nu..... Kan du visa hur det ska se ut?

När du skapar funktionen så säger du ju att du ska skicka in en eller två parametrar till den:

function getPreviousLink[b]( intPageId )[/b]
..
function getNextLink[b]( intPageId, intPageCount )[/b]

Men när du kallar på funktionerna så struntar du i att skicka med parametrarna som du sagt att du ska skicka med.

response.write "<table>"& getPreviousLink[b](PARAMETER HÄR)[/b] &"</table>"
response.write "<table>"& getNextLink[b](PARAMETRAR HÄR)[/b] &"</table>"

jaaaaaaaha! okej..... då är jag med!
snygg kombination av kod och citat där @nders :P

Hej igen.....
Fick inte det att bli rätt där med Föregående och Nästa.... Det visas inte på sidan, bara om det e mer än 1 sida.. ?! Skulle liksom vilja ha dom där, fast inte klickbara om det inte finns fler sidor.. gärna också så det står "Nu visas posterna 1-10" osv..

Något har jag ju gjort skumt!

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("driver=mysql;server=mysql.webkonsulterna.com;user=xxx;password=xxxx;database=abkkindes;")

Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from t_bryggsnack Order by datum desc"

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorlocation = 3
  .open strSQL, Connect
end with
If objRs.EOF then
	response.write "<hr size=""1"" color=""black"">Inga inlägg...<hr size=""1"" color=""black"">"
Else
with objRs
  .pagesize = 10
  .absolutepage = intPageId
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

meddelande = replace(server.htmlencode(objRs("meddelande")),vbcrlf,"<br>")

do while not objRs.eof and intCurrentPost < objRs.pagesize
	meddelande = replace(server.htmlencode(objRs("meddelande")),vbcrlf,"<br>")
  strContents = strContents &_
    "<table cellspacing=""2"" cellpadding=""0"" border=""0"" class=""brod"" width=""700"">"&_
	"<tr><td><b>Namn:</b> " & objRs( "namn" ) & "</td></tr>" &_
    "<tr><td><b>Datum</b>: " & objRs( "datum" ) & "</td></tr>" &_
	"<tr><td><b>Bryggplats:</b> "&objRs("bryggplats") &"</td></tr>"&_
	"<tr><td><b>IP:</b> "&objRs("ip")&"</td></tr>"&_
	"<td><b>Meddelande:</b><br>"& meddelande &"</td></tr></table><hr size=""1"" color=""black"">"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a class=""lankar"" href='?page=bryggsnack&pageid=" & i & "'>" & i & "</a>"
next

function getPreviousLink( intPageId )
  if intPageId > 1 then
    getPreviousLink = " <a class=""lankar"" href='?page=bryggsnack&pageid=" & intPageId - 1 & "'>&lt;&lt; Föregående</a> "
  end if
end function

function getNextLink( intPageId, intPageCount )
  if cint( intPageId ) < cint( intPageCount ) then
    getNextLink = " <a class=""lankar"" href='?page=bryggsnack&pageid=" & intPageId + 1 & "'>Nästa &gt;&gt;</a> "
  end if
end function

response.write "<table class=""brod""><tr><td>"& getPreviousLink( intPageId )
response.write strContents
response.write strNavigation 
response.write getNextLink( intPageId, intPageCount ) &"</td></tr></table>"
End IF
%>