--- title: "ny tabell" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/57655-ny-tabell" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "antar" published: "2002-10-31T15:18:28.000Z" updated: "2002-11-02T00:05:45.000Z" replies: 5 views: 192 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/57655-ny-tabell" --- # ny tabell ## #1 — antar, 2002-10-31T15:18Z kan nån fixa koden åt mig har försökt hundra gånger funkar inte! blir extra tabel och \! ``` <% test = "antar" Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/kompisar.mdb")&"" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From Kompisar Where not accepterad=false and Kompis1 = '"&test&"' or kompis2 = '"&test&"' and not accepterad=false order by relation,Kompis1 ASC" RecSet.Open Addera, Connect, 3, 3 do until recset.eof Set Connect2 = Server.CreateObject("ADODB.Connection") Connect2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database/Medlemmar.mdb")&"" Set RecSet2 = Server.CreateObject("ADODB.Recordset") if recset("kompis1") = test then Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis2")&"'" end if if recset("kompis2") = test then Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis1")&"' " end if RecSet2.Open Addera, Connect2, 3, 3 if not recset("Relation") = strRelation then strRelation = recset("Relation") If first = "no" then%>
<%End If%>

<%end if%>

<%=recset("Relation")%>.

<%=recset2("Anvandarnamn")%>.

<% first = "no" RecSet.MoveNext Loop RecSet.Close set recset = nothing Connect.Close set connect = nothing recset2.Close set recset2 = nothing Connect2.Close set connect2 = nothing %> ``` så här blir html koden! ```

Gifta.

test.

Kompanjoner.

test.

Kompisar.

test.

Kusin.

test.

Tvillingar.

test.

Älskling.

test.

test. ``` Permalänk: https://www.webforum.nu/p/57655 ## #2 — crisse6, 2002-10-31T18:44Z det ar val bara att kolla i asp koden, det ar ju dar du begar vad som ska skrivas ut i html! Forsok beskriva battra, peka ut rad, eller ar det alla? Permalänk: https://www.webforum.nu/p/838913 ## #3 — antar, 2002-10-31T21:13Z spara html sidan och kolla hur det blir med cellerna vill få dem och funka vet ej hur jag ska ändra på koderna? Permalänk: https://www.webforum.nu/p/839009 ## #4 — CoolDude, 2002-11-01T22:35Z ``` if recset("kompis2") = test then Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis1")&"' " end if RecSet2.Open Addera, Connect2, 3, 3 if not recset("Relation") = strRelation then strRelation = recset("Relation") If first = "no" then%> [b][/b]
<%End If%> ``` Vart hör denna table hemma då??? Permalänk: https://www.webforum.nu/p/842670 ## #5 — antar, 2002-11-01T23:39Z jag vet inte fattar inget av koden? Permalänk: https://www.webforum.nu/p/842702 ## #6 — solbulle, 2002-11-02T00:05Z Starta med att visa den htmlkod som du vill uppnå alt. markera vad som egentligen är felaktigt. Sen är det nog lika bra att börja om från början så att säga med utskriften alltså. Permalänk: https://www.webforum.nu/p/842711 --- Tråden på webben: https://www.webforum.nu/amne/asp/57655-ny-tabell