webForumDet fria alternativet
Logga in

html & asp

5 svar · 192 visningar · startad av antar

antarMedlem sedan dec. 2001289 inlägg
#1

så här ser html koden ut
Vill få bort det som är fetmarkerad!

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

Och ASP koden här

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

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">test.</font></td>
   
</table>
<%
first = "no"
RecSet.MoveNext
Loop

RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
%>
@ndersMedlem sedan juni 200032 969 inlägg
#2

Du har ju utskriften av </td> och </table> inne i loopen. Väck, väck väck?

antarMedlem sedan dec. 2001289 inlägg
#3

hur gör jag då?

Jesper TMedlem sedan nov. 20017 144 inlägg
#4
<%
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 

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">test.</font> <%
first = "no"
RecSet.MoveNext
Loop

RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
%>
</td>
   
</table>
antarMedlem sedan dec. 2001289 inlägg
#5

nu ser html koden ut så här det funkar inte med Jesper T's kod

<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>
  <tr>
    <td width="100%"><font size="1" face="Tahoma">test.</font>
  <tr>
    <td width="100%"><font size="1" face="Tahoma">test.</font>
</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>
  <tr>
    <td width="100%"><font size="1" face="Tahoma">test.</font>
</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>
</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>
</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>
</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>
  <tr>
    <td width="100%"><font size="1" face="Tahoma">test.</font>
  <tr>
    <td width="100%"><font size="1" face="Tahoma">test.</font> 
</td>
</table>
jboy_87Medlem sedan aug. 20011 099 inlägg
#6

testa det här da!

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

if not recset("Relation") = strRelation then 
strRelation = recset("Relation")
If first = "no" then%>
</td></table></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">test.</font>
<%
first = "no"
RecSet.MoveNext
Loop

RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
%>
</table>
137 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)