---
title: "html & asp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56219-html-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-10-16T17:24:44.000Z"
updated: "2002-10-17T03:34:24.000Z"
replies: 14
views: 332
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/56219-html-asp"
---

# html & asp

## #1 — antar, 2002-10-16T17:24Z

blir knas med tabellerna
så här ser det ut i html:

```
<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    Gifta.</font></b></td>
  </tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma">antar2.</font></td>
</table>
</table><br>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    Kompanjoner.</font></b></td>
  </tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma">antarnet.</font></td>
[b]</table></tr>[/b]
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma">antar.</font></td>
</table>
</table><br>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    Kompisar.</font></b></td>
  </tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma">fisen.</font></td>
</table>
</table><br>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    Tvillingar.</font></b></td>
  </tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma">test.</font></td>
</table>
</table><br>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    Älskling.</font></b></td>
  </tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma">antar.</font></td>
[b]</table></tr>[/b]
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma">antar.</font></td>
</table>
```

ASP:

```
<%
first = "yes"
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 = 'antar' or kompis2 = 'antar' 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") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis2")&"'" 
end if 

if recset("kompis2") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis1")&"' " 
end if 

RecSet2.Open Addera, Connect2, 3, 3 

if recset("Relation") <> strRelation then 
	strRelation = recset("Relation")

	If first <> "yes" then%>
</table><br>
<%End If%>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    <%=recset("Relation")%>.</font></b></td>
  <%End if%></tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma"><%=recset2("Anvandarnamn")%>.</font></td>
<%
response.write "</table>"
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
%>
```

Permalänk: https://www.webforum.nu/p/56219

## #2 — roady, 2002-10-16T17:59Z

vad exakt blir knas???

kanske vid kompanjoner och älskling eller???

Permalänk: https://www.webforum.nu/p/822549

## #3 — antar, 2002-10-16T18:10Z

så nu har jag redigerat inlägget där det är fetmarkerad e det fel på?

Permalänk: https://www.webforum.nu/p/822561

## #4 — solbulle, 2002-10-16T18:19Z

Finns iofs fler fel tror jag. 
**Kanske** att detta kan vara bättre:

```
<%
first = "yes"
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 = 'antar' or kompis2 = 'antar' 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") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis2")&"'" 
end if 

if recset("kompis2") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis1")&"' " 
end if 

RecSet2.Open Addera, Connect2, 3, 3 

if recset("Relation") <> strRelation then 
	strRelation = recset("Relation")

	If first <> "yes" then%>
</td></tr></table><br>
<%End If%>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    <%=recset("Relation")%>.</font></b></td>
  <%End if%></tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma"><%=recset2("Anvandarnamn")%>.</font></td></tr>
<%
response.write "</table>"
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
%>
```

Permalänk: https://www.webforum.nu/p/822583

## #5 — antar, 2002-10-16T18:23Z

näe funkar inte med 
det blir så här nu!

```
  <tr>
    <td width="100%"><font size="1" face="Tahoma">antar.</font></td></tr>
</table>
</td></tr></table><br>
```

Permalänk: https://www.webforum.nu/p/822591

## #6 — solbulle, 2002-10-16T18:26Z

Hm, hur ska det partiet se ut egentligen?

Permalänk: https://www.webforum.nu/p/822597

## #7 — antar, 2002-10-16T18:30Z

så här ska det se ut!
\<tr\>
    \<td width="100%"\>\<font size="1" face="Tahoma"\>antar.\</font\>\</td\>
\</table\>\<br\>

Permalänk: https://www.webforum.nu/p/822604

## #8 — solbulle, 2002-10-16T18:37Z

\<tr\> 
\<td width="100%"\>\<font size="1" face="Tahoma"\>antar.\</font\>\</td\>**\</tr\>**
\</table\>\<br\>

**\</tr\>** ska väl in också?

Permalänk: https://www.webforum.nu/p/822617

## #9 — antar, 2002-10-16T18:43Z

så här ska det se ut!
\<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%"\>
\<tr\>\<td width="100%"\>
\<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%"\>
  \<tr\>
    \<td width="100%"\>\<b\>\<font size="1" face="Tahoma"\>
    Kompanjoner.\</font\>\</b\>\</td\>
  
  \</tr\>
    \<tr\>
    \<td width="100%"\>\<font size="1" face="Tahoma"\>antar1.\</font\>\</td\>\</tr\>
    \<tr\>
    \<td width="100%"\>\<font size="1" face="Tahoma"\>antar2.\</font\>\</td\>\</tr\>\</table\>

  \</tr\>
    \</table\>\<br\>

Permalänk: https://www.webforum.nu/p/822632

## #10 — solbulle, 2002-10-16T18:55Z

Ytterligare ett försök :)

```
<%
first = "yes"
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 = 'antar' or kompis2 = 'antar' 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") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis2")&"'" 
end if 

if recset("kompis2") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis1")&"' " 
end if 

RecSet2.Open Addera, Connect2, 3, 3 

if recset("Relation") <> strRelation then 
	strRelation = recset("Relation")

	If first <> "yes" then%>
</table><br>
<%End If%>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    <%=recset("Relation")%>.</font></b></td>
  <%End if%></tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma"><%=recset2("Anvandarnamn")%>.</font></td></tr>

<%
first = "no"
RecSet.MoveNext 
Loop
response.write "</table><br>"

RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
recset2.Close
set recset2 = nothing
Connect2.Close
set connect2 = nothing
%>
```

Permalänk: https://www.webforum.nu/p/822656

## #11 — antar, 2002-10-16T19:00Z

nope blir helt fel!

Permalänk: https://www.webforum.nu/p/822665

## #12 — solbulle, 2002-10-16T19:01Z

storsuck :(

Permalänk: https://www.webforum.nu/p/822666

## #13 — solbulle, 2002-10-16T19:06Z

Sista försöket, sen får du sluta bry dig om allt jag någonsin skriver:

```
<%
first = "yes"
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 = 'antar' or kompis2 = 'antar' 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") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis2")&"'" 
end if 

if recset("kompis2") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis1")&"' " 
end if 

RecSet2.Open Addera, Connect2, 3, 3 

if recset("Relation") <> strRelation then 
	strRelation = recset("Relation")

	If first <> "yes" then%>
</table><br>
<%End If%>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    <%=recset("Relation")%>.</font></b></td>
  <%End if%></tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma"><%=recset2("Anvandarnamn")%>.</font></td></tr>

<%
first = "no"
RecSet.MoveNext 
Loop
response.write "</table><br></td></tr></table><br>"

RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
recset2.Close
set recset2 = nothing
Connect2.Close
set connect2 = nothing
%>
```

Permalänk: https://www.webforum.nu/p/822681

## #14 — antar, 2002-10-16T19:08Z

nope funkar inte
huller om buller hehe

Permalänk: https://www.webforum.nu/p/822683

## #15 — CoolDude, 2002-10-17T03:34Z

```
<%
first = "yes"
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 = 'antar' or kompis2 = 'antar' 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") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis2")&"'" 
end if 

if recset("kompis2") = "antar" then 
Addera = "Select * From Medlemmar Where Anvandarnamn = '"&recset("kompis1")&"' " 
end if 

RecSet2.Open Addera, Connect2, 3, 3 

if recset("Relation") <> strRelation then 
	strRelation = recset("Relation")

	If first <> "yes" then%>
[b]</table><br>[/b] 
<%End If%>

<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">
<tr><td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><b><font size="1" face="Tahoma">
    <%=recset("Relation")%>.</font></b></td>
  <%End if%></tr>
  
  <tr>
    <td width="100%"><font size="1" face="Tahoma"><%=recset2("Anvandarnamn")%>.</font></td></tr>

<%
first = "no"
RecSet.MoveNext 
Loop
response.write "</table><br></td></tr></table><br>"

RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
recset2.Close
set recset2 = nothing
Connect2.Close
set connect2 = nothing
%>
```

Vad e det? (fetmarkerat)

Permalänk: https://www.webforum.nu/p/822887

---

Tråden på webben: https://www.webforum.nu/amne/asp/56219-html-asp