webForumDet fria alternativet
Logga in / Bli medlem

ny tabell eller inte

ASP

28 svar · 529 visningar · startad av antar

antarMedlem sedan dec. 2001289 inlägg
Frågan#1

så ser koden ut i kompis.asp
Blir så här:

Kompisar:
antar
antar1
antar2

istället för:

Kompisar:
antar
------------------
antar1
------------------
antar2
--------------------

vill bara skriva ut nytt tabell när Kompisar = true!!
<%
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
%>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%"><%if recset("Relation") <> strRelation then
strRelation = recset("Relation")%>
<%=recset("Relation")%>
<%end if%> </td>
</tr>
<tr>
<td width="100%"><font size="1" face="Tahoma"><%=recset2("Anvandarnamn")%</font></td>

</tr>
</table><br> <%
RecSet.MoveNext
Loop
%>

Jesper Ts avatarJesper TMedlem sedan nov. 20017 144 inlägg
#2

Vad menar du? Det blir ju många tabeller nu.

antarMedlem sedan dec. 2001289 inlägg
#3

jag har laddat upp bild så kanske ni förstår bättre!!

namnlös.jpg
voigtann1s avatarvoigtann1Medlem sedan juni 20019 519 inlägg
#4

if recset("Relation") = "" then
response.write "ingen relation"
else
response.write recset("Relation")
en if

så eller?

Jesper Ts avatarJesper TMedlem sedan nov. 20017 144 inlägg
#5

Går det inte att skriva :where not null i sql:en?

antarMedlem sedan dec. 2001289 inlägg
#6

inte riktigt men ser du att den skapar ny tabell?
vill få bort tabellen om relationen e samma!!

en tabell:
Kompisar:
antar
antar
antar

istället för
Kompisar:
antar
Kompisar:
antar:
kompisar:
antar

antarMedlem sedan dec. 2001289 inlägg
#7

det skapas en extra tabell vill få bort extra tabellen nån som vet hur man gör?

solbulleMedlem sedan mars 20015 287 inlägg
#8

Inte för att jag har en susning om det fungerar, men du kan ju testa:

<%
 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
		response.write "</table><br>"
	End If

	response.write "<table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"">"
	response.write "<tr><td width=""100%"">"
	response.write recset("Relation")
	response.write "</td></tr>" 
End if

response.write "<tr><td width=""100%""><font size=""1"" face=""Tahoma"">" & recset2("Anvandarnamn") & "</font></td></tr>"

first = "no"
RecSet.MoveNext 
Loop
response.write "</table><br>"
%>
CatZs avatarCatZMedlem sedan jan. 20022 440 inlägg
#9

Du kan väl testa

SQL = "....... WHERE Något <> NULL
antarMedlem sedan dec. 2001289 inlägg
#10

det funkar ej med sql!!!
solbulle: får tom sida med källkoden:
</table> bara???

antarMedlem sedan dec. 2001289 inlägg
#11

jo nu funkar koden konstigt?

CatZs avatarCatZMedlem sedan jan. 20022 440 inlägg
#12

När du uppdaterar konstant och testar dina sidor kan det hända att inte webläsaren kollar om versionen som du uppdaterar är nyare. Hjälpen är då att stänga ner webläsaren helt och starta upp den på nytt.

antarMedlem sedan dec. 2001289 inlägg
#13

om jag vill göra så här da varför funkar inte recset.movenext då?

<%
 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="1" cellpadding="0" cellspacing="0" style="border-collapse: bordercolor="#111111" width="100%">
<tr><td width="100%"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%"><%=recset("Relation")%></td>
  </tr>
  <tr>
    <td width="100%"><%=recset("kompis1")%></td>
  </tr>
  </table>
  </td></tr>
<%End if%>
<%
first = "no"
RecSet.MoveNext 
Loop%></table><br>
antarMedlem sedan dec. 2001289 inlägg
#14

:OO

solbulleMedlem sedan mars 20015 287 inlägg
#15

Vad händer nu då? Får du ut något?

antarMedlem sedan dec. 2001289 inlägg
#16

nej men kan du kolla om det finns fel på koden asså html koden?

antarMedlem sedan dec. 2001289 inlägg
#17

det blir knas med cellerna?

solbulleMedlem sedan mars 20015 287 inlägg
#18

nej men kan du kolla om det finns fel på koden asså html koden?

Tyvärr har jag ingen möjlighet att kolla html-koden då jag inte har tillgång till din databas.
Har du en länk till sidan?

antarMedlem sedan dec. 2001289 inlägg
#19

så här ser html koden ut nu?

<html>
<head>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber5">
  <tr>

    <td width="451">

	<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%"><font size="1" face="Tahoma">
    &nbsp;<b>Gifta</b></font></td>
  </tr>
  <tr>
    <td width="100%">antar</td>
  </tr>

</table>
  </td></tr></td></table><img border="0" src="Bilder/1pxtrans.gif" width="1" height="4"><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%"><font size="1" face="Tahoma">
    &nbsp;<b>Kompanjoner</b></font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF">antar</td>
  </tr>

</table>
  </td></tr><td width="100%">antar</td>
  </tr>

</table>
  </td></tr></td></table><img border="0" src="Bilder/1pxtrans.gif" width="1" height="4"><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%"><font size="1" face="Tahoma">
    &nbsp;<b>Kompisar</b></font></td>
  </tr>
  <tr>
    <td width="100%">antar</td>
  </tr>

</table>
  </td></tr></td></table><img border="0" src="Bilder/1pxtrans.gif" width="1" height="4"><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%"><font size="1" face="Tahoma">
    &nbsp;<b>Tvillingar</b></font></td>
  </tr>
  <tr>
    <td width="100%">antar</td>
  </tr>

</table>
  </td></tr></td></table><img border="0" src="Bilder/1pxtrans.gif" width="1" height="4"><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%"><font size="1" face="Tahoma">
    &nbsp;<b>Älskling</b></font></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#FFFFFF">antar</td>
  </tr>

</table>
  </td></tr><td width="100%">antar</td>
  </tr>

</table>
  </td></tr>
</table></td>
  </tr>
  <tr>
    <td width="451" colspan="2">
    
    </td>
  </tr>
</table>
</html>
solbulleMedlem sedan mars 20015 287 inlägg
#20

Hm... inte är det väl den koden du har en bit upp som genererar den htmlkoden? Eller har du htmlkod i databasen?

271 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
141 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)