webForumDet fria alternativet
Logga in / Bli medlem

html & asp

ASPur ASP

14 svar · 320 visningar · startad av antar

antarMedlem sedan dec. 2001289 inlägg
#1

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
%>
roadyMedlem sedan jan. 2002473 inlägg
#2

vad exakt blir knas???

kanske vid kompanjoner och älskling eller???

antarMedlem sedan dec. 2001289 inlägg
#3

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

solbulleMedlem sedan mars 20015 287 inlägg
#4

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
%>
antarMedlem sedan dec. 2001289 inlägg
#5

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>
solbulleMedlem sedan mars 20015 287 inlägg
#6

Hm, hur ska det partiet se ut egentligen?

antarMedlem sedan dec. 2001289 inlägg
#7

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

solbulleMedlem sedan mars 20015 287 inlägg
#8

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

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

antarMedlem sedan dec. 2001289 inlägg
#9

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>

solbulleMedlem sedan mars 20015 287 inlägg
#10

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
%>
antarMedlem sedan dec. 2001289 inlägg
#11

nope blir helt fel!

solbulleMedlem sedan mars 20015 287 inlägg
#12

storsuck :(

solbulleMedlem sedan mars 20015 287 inlägg
#13

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
%>
antarMedlem sedan dec. 2001289 inlägg
#14

nope funkar inte
huller om buller hehe

CoolDudeMedlem sedan aug. 2000304 inlägg
#15
<%
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)

136 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
133 ms — hämta tråd, inlägg och bilagor (db)