\
\
\
\\\
Gifta.\\\
\
\
\\test.\**\
\**
\
\\test.\**\
\**
\
\\test.\\
\
\\
\
\\
\
\
\\\
Kompanjoner.\\\
\
\
\\test.\**\
\**
\
\\test.\\
\
\ \
\\
\
\
\\\
Älskling.\\\
\
\
\\test.\**\
\**
\
\\test.\**\
\**
\
\| \test.\\\
**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%>
| | | |
<%End If%>
|
<%=recset("Relation")%>. |
<%end if%>
| test. |
<%
first = "no"
RecSet.MoveNext
Loop
RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
%>
```
Permalänk: https://www.webforum.nu/p/57817
## #2 — @nders, 2002-11-02T17:23Z
Du har ju utskriften av \ och \ inne i loopen. Väck, väck väck?
Permalänk: https://www.webforum.nu/p/842995
## #3 — antar, 2002-11-02T17:26Z
hur gör jag då?
Permalänk: https://www.webforum.nu/p/842998
## #4 — Jesper T, 2002-11-02T17:42Z
```
<%
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%>
|
<%End If%>
|
<%=recset("Relation")%>. |
<%end if%>
| test. <%
first = "no"
RecSet.MoveNext
Loop
RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
%>
|
```
Permalänk: https://www.webforum.nu/p/843007
## #5 — antar, 2002-11-02T17:47Z
nu ser html koden ut så här det funkar inte med Jesper T's kod
```
|
Älskling. |
| test.
|
| test.
|
| test.
|
```
Permalänk: https://www.webforum.nu/p/843013
## #6 — jboy_87, 2002-11-02T17:52Z
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%>
| |
<%End If%>
|
<%=recset("Relation")%>. |
<%end if%>
| test.
<%
first = "no"
RecSet.MoveNext
Loop
RecSet.Close
set recset = nothing
Connect.Close
set connect = nothing
%>
|
```
Permalänk: https://www.webforum.nu/p/843015
---
Tråden på webben: https://www.webforum.nu/amne/asp/57817-html-asp
| | | | | | | | | | | | | | | |