Untitled

<% IF rs("e_id") = 1 THEN %> - "> <% ELSE %> <% call subVisaIkonOmBildFinns(rs("e_id")) %> "> <%=rs("e")%> <% END IF %> <% IF rs("ee_id") = 1 THEN %> - "> <% ELSE %> "> <%=rs("ee")%> <% END IF %> <% IF rs("eee_id") = 1 THEN %> - "> <% ELSE %> "> <%=rs("eee")%> <% END IF %> <% IF rs("eeee_id") = 1 THEN %> - "> <% ELSE %> "><%=rs("eeee")%> <% END IF %> <% IF rs("eeeee_id") = 1 THEN %> - "> <% ELSE %> "><%=rs("eeeee")%> <% END IF %> ..... <% sub subVisaIkonOmBildFinns(sNextPicId) 'sNextPicId anges där du anropar subben... sql = "SELECT bild_url FROM hast WHERE id = sNextPicId set rsNextPic = connect.execute(sql) if not rsNextPic.eof then varNextHorsePic = rsNextPic("bild_url") end if IF varNextHorsePic <>"" THEN %>

<%END IF end sub%> ``` Just nu är det felmeddelande: Unexpected end of line inside a string /databas/hast.asp, line 961, column 64 (961= sql = "SELECT bild_url FROM hast WHERE id = sNextPicId) Permalänk: https://www.webforum.nu/p/1802568 ## #10 — Mattias Nordin, 2006-04-21T12:17Z Det saknas en fnutt på sql frågan. Testa: ``` sql = "SELECT bild_url FROM hast WHERE id = " &sNextPicId ``` Permalänk: https://www.webforum.nu/p/1802577 ## #11 — Lorelie, 2006-04-21T12:24Z > **Mattias Nordin skrev:** > > Det saknas en fnutt på sql frågan. Testa: > > > ``` > sql = "SELECT bild_url FROM hast WHERE id = " &sNextPicId > ``` Object required: 'connect' /databas/hast.asp, line 962 (set rsNextPic = connect.execute(sql)) Permalänk: https://www.webforum.nu/p/1802578 ## #12 — Mattias Nordin, 2006-04-21T12:32Z Hur ser din connection string ut? Jag brukar använda följande: ``` ' Access 2003 ' Set Connect = Server.CreateObject( "Adodb.Connection" ) Connect.Provider = "Microsoft.Jet.OLEDB.4.0" MdbFilePath = Server.MapPath( "/min_katalog/database_2003.mdb" ) Connect.ConnectionString = "Data Source='" & MdbFilePath & "'" Connect.open ``` Antagligen så skiljer sig: Set **Connect** \= Server.CreateObject( "Adodb.Connection" ) från din connection string. Permalänk: https://www.webforum.nu/p/1802583 ## #13 — Lorelie, 2006-04-21T12:38Z ``` <% hast_id = Request.Querystring("hast_id") Set MinCon = Server.Createobject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Set rsAntAvk = Server.CreateObject("ADODB.Recordset") MinCon.Open "DRIVER={MySQL};SERVER=localhost;DATABASE=aramennoc_se;UID=aramennoc_se;PWD=XXXXXXXX;" %> ``` Permalänk: https://www.webforum.nu/p/1802587 ## #14 — Mattias Nordin, 2006-04-21T12:53Z Det går framåt ;) Byt: ``` set rsNextPic = connect.execute(sql) ``` mot: ``` set rsNextPic = MinCon.execute(sql) ``` Nu har jag nästan inte använt mig av MySql så om det är fel får vi hoppas att någon annan säger till. Din connectionstring ser för övrigt lite konstig ut. Permalänk: https://www.webforum.nu/p/1802597 ## #15 — Lorelie, 2006-04-21T13:01Z > **Mattias Nordin skrev:** > > Det går framåt ;) > > Byt: > > > ``` > set rsNextPic = connect.execute(sql) > ``` > > > mot: > > > ``` > set rsNextPic = MinCon.execute(sql) > ``` > > > > Nu har jag nästan inte använt mig av MySql så om det är fel får vi hoppas att någon annan säger till. Din connectionstring ser för övrigt lite konstig ut. Error Type: ADODB.Recordset.1 (0x80004005) SQLState: 4 Native Error Code: 1054 \[TCX\]\[MyODBC\]Unknown column 'id' in 'where clause' /databas/hast.asp, line 962 961 sql = "SELECT bild_url FROM hast WHERE id = " &sNextPicId 962 set rsNextPic = MinCon.execute(sql) 963 if not rsNextPic.eof then 964 varNextHorsePic = rsNextPic("bild_url") 965 end if Det är första gången jag använder MySql. Permalänk: https://www.webforum.nu/p/1802598 ## #16 — @nders, 2006-04-21T13:03Z Du måste se till att ändra så alla objekt-, tabell- och fältnamn stämmer överens med din miljö. Heter inte id-fältet hos dig *hast_id* eller något sådant? Permalänk: https://www.webforum.nu/p/1802599 ## #17 — Mattias Nordin, 2006-04-21T13:09Z Jag är glad att se våran trevliga Guru @nders på plats. Jag ska försöka engagera mig i att packa inför min resa till Tyskland nu. Tittar in lite senare. :) Permalänk: https://www.webforum.nu/p/1802602 ## #18 — Lorelie, 2006-04-21T13:18Z > **@nders skrev:** > > Du måste se till att ändra så alla objekt-, tabell- och fältnamn stämmer överens med din miljö. Heter inte id-fältet hos dig *hast_id* eller något sådant? Jo, men tydligen gick det ju inte använda hast_id, utan måste ta det som ska vara i just den cellen, dvs som exempel e_id och sen byta för varje cell. Den här biten har jag aldrig gjort förut: ``` <% sub subVisaIkonOmBildFinns(sNextPicId) 'sNextPicId anges där du anropar subben... sql = "SELECT bild_url FROM hast WHERE id = " &sNextPicId set rsNextPic = MinCon.execute(sql) if not rsNextPic.eof then varNextHorsePic = rsNextPic("bild_url") end if IF varNextHorsePic <>"" THEN %>

<%END IF end sub%> ``` och fattar ännu mindre än vanligt ;) Permalänk: https://www.webforum.nu/p/1802609 ## #19 — Mattias Nordin, 2006-04-21T13:56Z I din databas "aramennoc_se" vad har du döpt dina kolumner till? Antagligen har du inte någon kolumn som heter "id". Då behöver vi veta vad din id kolumn heter. Permalänk: https://www.webforum.nu/p/1802624 ## #20 — Lorelie, 2006-04-21T14:06Z Woho! Nu fungerar det =D såg inte det lilla "id" som igentligen skulle vara hast_id. Permalänk: https://www.webforum.nu/p/1802628 --- Tråden på webben: https://www.webforum.nu/amne/asp/145829-skriva-ut-att-bild-finns Nästa sida: https://www.webforum.nu/amne/asp/145829-skriva-ut-att-bild-finns/page2.md