--- title: "På bredden istället för neråt?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/90690-på-bredden-istället-för-neråt" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Thresher" published: "2003-11-18T12:43:09.000Z" updated: "2003-11-20T09:37:09.000Z" replies: 12 views: 337 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/90690-på-bredden-istället-för-neråt" --- # På bredden istället för neråt? ## #1 — Thresher, 2003-11-18T12:43Z Har en standard-gästbok som varje inlägg läggs under varandra i en tabell med 1 column. Hur ska man göra för att t.ex. få så att inläggen läggs två på bredden (2 columner) istället och sedan byggs på så nedåt? Vart ska man lägga rsQuery.MoveNext och hur ska den se ut? Permalänk: https://www.webforum.nu/p/90690 ## #2 — Engine^, 2003-11-18T12:55Z Det finns många lösningar på det, en kan vara såhär ``` strSQL = "SELECT strMessage FROM tblGuestbook" objRS.Open strSQL, objConn, 1 Response.Write "" blnNewRow = False While Not objRS.EOF If blnNew Row Then Response.Write "" Response.Write "" blnNewRow = Not blnNewRow objRS.MoveNext Wend Response.Write "
Gästbok
" & objRS("strMessage") & "
" ``` **red.** Jag kom genast på att om det är ett ojämnt antal poster , så måste den sista utskrivna cellen ha en colspan=2 annars blir tabellen knasig. En lösning för det med min kod är att innan den sista Response.Write lägga till följande ``` If objRS.RecordCount Mod 2 = 1 Then Response.Write "" ``` Permalänk: https://www.webforum.nu/p/1207300 ## #3 — Thresher, 2003-11-18T13:06Z Om man skulle göra likadant på "varusidan" vart ska det läggas in i denna kod: ``` "> <% Set rsQuery = Con.Execute("SELECT * FROM Products WHERE CatID=" & Int(request.Querystring("catid")) & " ORDER BY SortID DESC") If rsQuery.EOF Then %> <% Else c = 0 While Not rsQuery.EOF %> <% c = c + 1 rsQuery.MoveNext Wend End If %>
<%= TraceHistory %>
  Produkt information
Inga varor
<% If rsQuery("Picture") = "-" THen %> <% Else %> " width="120" height="120" border="1" heigth="50"> <% End If %> <%= rsQuery("Productname") %> <% If IsAuth Then %> [">Ta bort] [&catid=<%= rsQuery("CatID") %>">Ändra] <% End If %>
<%= rsQuery("ProductIngress") %>

Pris: <%= rsQuery("Price") %> :-
<% If rsQuery("ProductText") <> "" Then %> &item=<%= rsQuery("ID") %>">Mer information » <% End If %>

Antal " type="text" class="formfield" id="<%= rsquery("ID") %>" value="<%= GetByVareID(rsQuery("ID")) %>" size="1" maxlength="5"> st.
``` Permalänk: https://www.webforum.nu/p/1207309 ## #4 — Engine^, 2003-11-18T13:32Z ``` <% Else c = 0 Response.Write "" While Not rsQuery.EOF If c Mod 2 = 1 Then Response.Write "" Response.Write "" If rsQuery("Picture") = "-" Then Response.Write "" Else Response.Write "" End If Response.Write "" & rsQuery("Productname") If IsAuth Then Response.Write "Ta bort]" Response.Write "[Ändra]" End If Response.Write "
" & rsQuery("ProductIngress") & "

" Response.Write "Pris:" & rsQuery("Price") & " :-

" If rsQuery("ProductText") <> "" Then Response.Write "Mer information »" End If Response.Write "

Antal st." Response.Write "" c = c + 1 rsQuery.MoveNext Wend End If If c Mod 2 = 1 Then Response.Write "" ``` Så möjligen... Permalänk: https://www.webforum.nu/p/1207324 ## #5 — Thresher, 2003-11-18T13:58Z ``` Microsoft VBScript compilation error '800a0401' Expected end of statement /test/include_listitems.asp, line 42 Response.Write "Pris:" & rsQuery("Price") & " :-

" ----------------------------------^ ``` Ingen som vet vad som är fel eller hur koden ska vara? Permalänk: https://www.webforum.nu/p/1207341 ## #6 — Thresher, 2003-11-18T19:12Z Ingen? Permalänk: https://www.webforum.nu/p/1207519 ## #7 — @nders, 2003-11-18T19:42Z Du kan inte ha citationstecken rakt av inne i strängen, då tolkar ASP-tolken det som att strängen avslutas. Citationstecken escapear du med citationstecken. ``` Response.Write "Pris:" & rsQuery("Price") & " :-

" ``` Mvh Permalänk: https://www.webforum.nu/p/1207536 ## #8 — Thresher, 2003-11-19T10:15Z Själva scriptet jag fick av dig engine^ fungerar tyvärr inte. Det blir precis som innan (att det byggs på nedåt) + att ingen \ fungerar. Permalänk: https://www.webforum.nu/p/1210721 ## #9 — Engine^, 2003-11-19T10:42Z Att ingen font fungerar beror väl på det **@nders** sa och att det byggs på neråt beror på något annat :) Jag har väl som vanligt missat något som egentligen är enkelt. ``` <% Else c = 0 Response.Write "" While Not rsQuery.EOF If c Mod 2 = 1 Then Response.Write "" Response.Write "" c = c + 1 rsQuery.MoveNext Wend End If If c Mod 2 = 1 Then Response.Write "" Response.Write "
" If rsQuery("Picture") = "-" Then Response.Write "" Else Response.Write "" End If Response.Write "" & rsQuery("Productname") If IsAuth Then Response.Write "Ta bort]" Response.Write "[Ändra]" End If Response.Write "
" & rsQuery("ProductIngress") & "

" Response.Write "Pris:" & rsQuery("Price") & " :-

" If rsQuery("ProductText") <> "" Then Response.Write "Mer information »" End If Response.Write "

Antal st." Response.Write "
" ``` Nu har jag lagt till några citationstecken, som fattades och jag har även bakat in den här produktlistan i en egen tabell i tron att det ska synas bättre hur jag tänkt. Vill du köra utan denna tabell måste du tänka på att varje rad består av fyra celler. Alltså kan dom som är ovan och under behöva colspan=*i*. Jag hoppas att det här fungerar bättre. Permalänk: https://www.webforum.nu/p/1210731 ## #10 — Thresher, 2003-11-19T12:32Z Fonterna är tillbaka , men ingen skillnad i "rad bygget" Permalänk: https://www.webforum.nu/p/1210768 ## #11 — Engine^, 2003-11-19T12:54Z Ett tips: Kolla igenom den html som genereras, så kanske du kan förklara vad som inte stämmer eller lösa det själv. Permalänk: https://www.webforum.nu/p/1210775 ## #12 — Thresher, 2003-11-19T16:40Z Första raderna i koden som jag angav i \>\> \<\< \+ din kod ger följande html : \ \\ \" ``` till strax ovanför ``` c = c + 1 ``` Permalänk: https://www.webforum.nu/p/1211138 --- Tråden på webben: https://www.webforum.nu/amne/asp/90690-på-bredden-istället-för-neråt
\Home\ \> \test\\ \ \ \ \ \Produkt information\ \ \\\\\\\testvara2\\Lite\\Pris:\\100 :-\\\\\Mer information »\\\Antal \st.\\\\\\\\\testvara\\lite mindre info här\\Pris:\\100 :-\\\\\Mer information »\\\Antal \st.\\\\ \ \ \ \ Permalänk: https://www.webforum.nu/p/1210918 ## #13 — Engine^, 2003-11-20T09:37Z Du kan väl testa flytta denna rad ``` If c Mod 2 = 1 Then Response.Write "