ny tabell — webForum

antarMedlem sedan dec. 2001289 inlägg

Trådstart31 okt. 2002 15:18#1

kan nån fixa koden åt mig har försökt hundra gånger funkar inte! blir extra tabel och <tr>!

<%
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%>
</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>
  </tr>

    <%end if%>
  <tr>
    <td width="100%"><font size="1" face="Tahoma"><%=recset2("Anvandarnamn")%>.</font></td>
   
</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
%>

så här blir html koden!

<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">test.</font></td>
   
</table>

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

  <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">
    Kompanjoner.</font></b></td>
  </tr>

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

  <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">
    Kompisar.</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">
    Kusin.</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">
    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">test.</font></td>
   
</table>

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

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

crisse6Medlem sedan dec. 20002 526 inlägg

31 okt. 2002 18:44#2

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?

antarMedlem sedan dec. 2001289 inlägg

31 okt. 2002 21:13#3

spara html sidan och kolla hur det blir med cellerna vill få dem och funka vet ej hur jag ska ändra på koderna?

CoolDudeMedlem sedan aug. 2000304 inlägg

1 nov. 2002 22:35#4

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]</table>[/b]<br>
<%End If%>
<table border="0" cellspacing="1" style="border:1px solid #000000; border-collapse: collapse" width="100%">

Vart hör denna table hemma då???

antarMedlem sedan dec. 2001289 inlägg

1 nov. 2002 23:39#5

jag vet inte fattar inget av koden?

solbulleMedlem sedan mars 20015 287 inlägg

2 nov. 2002 00:05#6

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å.