Avatar billede madssaw2000 Nybegynder
20. maj 2001 - 12:34 Der er 13 kommentarer og
1 løsning

2 i 1

Hej
Jeg har 2 spørgsmål.

1: Jeg kan sagtens få alle poster fra \"Username\" til at ligge alfabetisk under hinanden...MEN I EN CELLE. Jeg ville gerne hvis hvert \"Username\" kunne hentes med loop ind i HVER SIN CELLE, under hinanden.
Her er hvad jeg bruger og som virker i samme celle:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../log/personale.mdb\")
Conn.Open DSN

strSQL = \"Select * From users Order by Username\"
Set rs = Conn.Execute(strSQL)

Do
  Response.Write rs(\"Username\") & \" <br><br>\"
rs.MoveNext
 
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>


2: Jeg bruger den samme til e-mails. Hvordan får alle poster under \"Email\" til at linke til samme e-mail?
Jeg har noget som ikke virker:

<a href=mailto:<%=RS(\"Email\")%></a>
Avatar billede ahl Nybegynder
20. maj 2001 - 12:42 #1
Hvad mener du med i hver sin celle?
Avatar billede a-torsten Nybegynder
20. maj 2001 - 12:45 #2
1:

<table>
<tr>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../log/personale.mdb\")
Conn.Open DSN

strSQL = \"Select * From users Order by Username\"
Set rs = Conn.Execute(strSQL)

Do
Response.Write \"<td>\"& rs(\"Username\") & \" </td>\"
rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
</tr>
</table>

2:
Hvorfor skriver du den ikke bare ind direkte hvis den alligevel er den samme...??
Der er da vist ingen grund til at bruge database-kraft på det...


-Anders
Avatar billede madssaw2000 Nybegynder
20. maj 2001 - 12:59 #3
a-torsten:
Response.Write \"<td>\"& rs(\"Username\") & \" </td>\"
Det virker men det pladserer cellerne horisontalt...Cellerne skal oprettes under hinanden.

...og der er noget i denne retning m.h.t. e-mail systemet...
<a href=mailto:<%=RS(\"Email\")%>> <%=RS(\"Email\")%> </a>

Man kan rette, tilføje og slette brugere i databasen og derfor ville det være nemmere hvis \"mailto\" sættes på automatisk
Avatar billede perla Nybegynder
20. maj 2001 - 12:59 #4
</tr>
</table>


2. Forstår ikke helt..

-Per
Avatar billede perla Nybegynder
20. maj 2001 - 13:00 #5
1.
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../log/personale.mdb\")
Conn.Open DSN

strSQL = \"Select * From users Order by Username\"
Set rs = Conn.Execute(strSQL)
%>
<table>
<tr>
<%
Do
Response.Write \"<tr><td>\"& rs(\"Username\") & \" </td></tr>\"
rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
</tr>
</table>
Avatar billede ahl Nybegynder
20. maj 2001 - 13:01 #6
du skal bruger <tr> istedet for <td>
Avatar billede a-torsten Nybegynder
20. maj 2001 - 13:03 #7
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../log/personale.mdb\")
Conn.Open DSN

strSQL = \"Select * From users Order by Username\"
Set rs = Conn.Execute(strSQL)
%>
<table>
<%
Do
Response.Write \"<tr><td>\"& rs(\"Username\") & \" </td></tr>\"
rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
</table>


Så burde den være korrekt...

-Anders
Avatar billede a-torsten Nybegynder
20. maj 2001 - 13:04 #8
Jeg forstår egentlig heller ikke nr 2 helt.....

Vi du have at det er samme email der står hele vejen ned ???

_Anders
Avatar billede madssaw2000 Nybegynder
20. maj 2001 - 13:06 #9
Øjeblik!!!
Avatar billede madssaw2000 Nybegynder
20. maj 2001 - 13:09 #10
Dette er det bedste jeg kan komme op med...Den er jo lige ved at være der..ok
Her er E-mail sektionen...men det virker ikke :-(
 
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../log/personale.mdb\")
Conn.Open DSN

strSQL = \"Select * From users Order by Username\"
Set rs = Conn.Execute(strSQL)

Do
  Response.Write \"<tr><td><a href=mailto:\"& rs(\"Email\") & \" </a></td></tr><br><br>\"

rs.MoveNext
 
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
Avatar billede a-torsten Nybegynder
20. maj 2001 - 13:13 #11
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../log/personale.mdb\")
Conn.Open DSN

strSQL = \"Select * From users Order by Username\"
Set rs = Conn.Execute(strSQL)

Do
Response.Write \"<tr><td><a href=\'mailto:\"& rs(\"Email\") & \"\'>\"& rs(\"Email\") & \" </a></td></tr>\"

rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
Avatar billede madrich Nybegynder
20. maj 2001 - 15:57 #12
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../log/personale.mdb\")
Conn.Open DSN
strSQL = \"Select * From users Order by Username\"
Set rs = Conn.Execute(strSQL)
Do
StrHtml = strHtml & \"<tr><td><a href=\'mailto:\"& rs(\"Email\") & \"\'>\"& rs(\"Email\") & \" </a></td></tr>\"
rs.MoveNext
Loop While Not rs.EOF
strHtml = \"<table>\"&strhtml&\"</table>\"
conn.Close
Set Conn = Nothing
%>


og så smider du bare!

<%= strHtml %> lige der i koden hvor du har lyst!
Avatar billede madssaw2000 Nybegynder
20. maj 2001 - 17:05 #13
madrich...Jeg var for hurtig til at uddele pointene...sorry
Avatar billede perla Nybegynder
20. maj 2001 - 17:16 #14
ja, sad og var ved at poste email løsningen, men..

-Per
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester