Email link på side

denne er der selvfølgelig også:

<%
RS.MoveNext
loop
%>

Hvad med noget i den stil:

...
dim HarEmail
do while not RS.EOF
HarEmail = "nej"
if len(RS("email")) > 0 then HarEmail = "ja"
...

<td vAlign="top" class="copy" align="right" <% repsonse.write color & ">": if HarEmail = "ja" then %><% end if %>

rettelse:

<td vAlign="top" class="copy" align="right" <% repsonse.write color & ">": if HarEmail = "ja" then %><a href="mailto:<% response.write RS("email") %>"><% end if %>

en ligende metode:

dim MinKode
do while not RS.EOF
MinKode = ""
if len(RS("email")) > 0 then MinKode = "<a href="""mailto:'" & rs("email") & "'""">"

<td vAlign="top" class="copy" align="right" <% response.write color & ">" & MinKode %><img border="0" src="../images/iconer/mini_kuvert.gif" <%=color%>>

denne:
<td vAlign="top" class="copy" align="right" <% repsonse.write color & ">": if HarEmail = "ja" then %><a href="mailto:<% response.write RS("email") %>"><% end if %>

giver denne fejl

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/tirsdag/udvalg.asp, line 58

- Prøv med den anden..

- Ideen er simpel:
1) reset en variabel: minkode=""
2) check om der står noget i rs("email"), f.eks. med: if len() (hvis længden er større end 0 = der er noget)
3) sæt variablen til den koden, så den kan udskrives direkte: MinKode = "<a href="""mailto:'" & rs("email") & "'"">"
4) udskriv koden: <% response.write MinKode %>

- Det er nok antallet af """ der fejler..
- hvad har du i "color"?

hm.. der skalkun være 2 "":

MinKode = "<a href=""mailto:'" & rs("email") & "'"">"

hvad betyder dette:

Expected statement

/tirsdag/udvalg.asp, line 61

end if

Hvilken linie er linie 61?

Smid koden herind.. så er den nemmere at rette..

toppen er ikke taget med:

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Udvalg</title>
<LINK href="../eliten/herrer/profil/profiler/ss_wci.css" type=text/css rel=stylesheet>
<base target="_self">

</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">

<table cellSpacing="0" cellPadding="10" width="450" border="0">
  <tr>
    <td vAlign="top">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td vAlign="top" width="60%">
              <table cellSpacing="0" cellPadding="3" border="0">
                <tbody>
                  <tr>
                    <td vAlign="top" width="236" colspan="2">
                      <p class="copy"><img border="0" src="../images/maintext/udvalg.gif">
                      <br>
                      For at maile direkte til en i udvalget klik på den lille
                      ikon, eller det navn som er markeret med rødt.<br>
                      &nbsp;
                    </td>
                  </tr>
                  <tr>
                    <td vAlign="top" width="236" bgcolor="#294A7B" colspan="2">
                      <p class="rammetopBold">MEDLEMMER</p>
                    </td>
                  </tr>
                  <%
                bgskift=0
                do while not RS.EOF
                      bgskift=bgskift + 1

                    if bgskift = 2 then
                    bgskift = 0
                    end if

                    if bgskift = 0 then
                    color="bgcolor='#eeeeee'"
                else
                  color="bgcolor='#ffffff'"
        end if
                  %>
                  <tr>
                    <td vAlign="top" class="copy" <%=color%>><a href="mailto:<% response.write RS("email") %>"><% response.write RS("navn") %></a></td>
                    <td vAlign="top" class="copy" align="right" <%=color%>><a href="mailto:<% response.write RS("email") %>"><img border="0" src="../images/iconer/mini_kuvert.gif" <%=color%>>
                      </a>
                    </td>
                  </tr>
                    <%
    RS.MoveNext
    loop
  %>
  <%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
  %>
                </tbody>
              </table>
            </td>
            <td><img height="1" src="../eliten/herrer/profil/profiler/spacer.gif" width="15" border="0"></td>
            <td vAlign="top">
              <table cellSpacing="0" cellPadding="0" border="0">
                <tbody>
                  <tr>
                    <td colspan="2">
                      <img border="0" src="../images/night.jpg">
                    </td>
                  </tr>
                  <tr>
                    <td colspan="2">
                      <p class="copy"><img border="0" src="../eliten/herrer/profil/profiler/info.gif" vspace="3" width="170" height="30">
                    </td>
                  </tr>
                  <tr>
                    <td valign="top">
                      <p class="copy"><img border="0" src="../eliten/herrer/profil/profiler/bullet.gif" hspace="3" width="5" height="10">
                    </td>
                    <td valign="top">
                      <p class="copy">Brug damernes egen email adresse
                              for generel info:<br>
                              <a href="mailto:tirsdag@hillerodgolf.dk">tirsdag@hillerodgolf.dk</a>&nbsp;
                    </td>
                  </tr>
                </tbody>
              </table>
            </td>
          </tr>
        </tbody>
      </table>
    </td>
  </tr>
   
<font>
  </font>
</table>
<table cellSpacing="0" cellPadding="10" width="450" border="0">
  <tr>
    <td vAlign="top">
      <p align="center" class="copyright">Copyright © 2004.&nbsp; All rights
      reserved Hillerød Golf Klub</td>
  </tr>
</table>
</body>

Prøv det her:

              do while not RS.EOF
                      bgskift=bgskift + 1
                      MinKode = rs("navn")
                      MitIkon = "&nbsp;"
                     
                    if len(email) > 30 then
                      MinKode = "<a href=""mailto:" & email & """>" & rs("navn") & "</a>"
                      MitIkon = "<a href=""mailto:" & email & """><img border=""0"" src=""../images/iconer/mini_kuvert.gif""" & color
                    end if

og:

                  <tr>
                    <td vAlign="top" class="copy" <%=color%>><%=MinKode%></td>
                    <td vAlign="top" class="copy" align="right" <%=color%>><%=MitIkon%></td>
                  </tr>

jeg har brugt:
email = rs("email")

dvs, erstat email med rs("email") her:

                    if len(email) > 30 then
                      MinKode = "<a href=""mailto:" & email & """>" & rs("navn") & "</a>"
                      MitIkon = "<a href=""mailto:" & email & """><img border=""0"" src=""../images/iconer/mini_kuvert.gif""" & color

hvad med denne så den skifter bg farve for hver linie:

                    if bgskift = 2 then
                    bgskift = 0
                    end if

                    if bgskift = 0 then
                    color="bgcolor='#eeeeee'"
                else
                  color="bgcolor='#ffffff'"

Det er ikke noget jeg har lavet :-)
Jeg kopierede bare din kode..
Da jeg ikke har din database (incl koden til forbindelsen) har jeg ikke brugt en loop.
Min kode virker, da jeg har ersattet rs(noget-her) med variabler.

Jeg tog det med, for at vise, hvor jeg havde placeret IF-sætningen..

Eller, har jeg misforstået dit spm?

Jeg prøver lige at erstatte database med en array, og laver en test..

kigger på det lidt sener, skal lige lave noget mad

rettelse:
if len(email) > 30 then

skal være:
if len(email) > 0 then

..igen var det en test pga manglende database..
Men det har jeg klaret med en array..

Ordner lige koden, og smider den ind..

Venligst lad vær med at oplyse stien til databasen, brugernavn, password, eller andre følsomme data.

Jeg har lavet koden og uploadet den til: http://frip.dk/thesurfer/e/q/485696/index.asp
Du kan også se selve kildekoden, på urlen.

database forbindelsen ser således ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("tirsdag.mdb")
SQL = "SELECT * FROM udvalg order by Navn ASC"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
%

da jeg ikke helt fårstår denne:
users = "Mr. X,Jones Jones,Arnold Mark,Hans Hansen,Olga Jensen,Sidste Mand"
emails = "mr@x.com,,arnold@mark.com,hans@hansen.dk,,sidste@mand.dk"

da man i admin modulet kan tilføje rette og slette udvalgsmedlemmer, uden at jeg blander mig, er det ikke klogt at man indsætter dem direkte i koden, da jeg så skal lave det. De er lidt "EDBmongole" :o) og derfor tør jeg ikke at overlade dem rettigheder til at rette direkte i koden

smider med glæde dobbelt op hvis du kan forklare mig hvad jeg skal gøre, eller forklaring på hvad du har gjort

Min kode er baseret på variabler og arrays, fordi jeg ikke har din database :-)
Dvs, variablerne, arrays, for-next løkker, osv, bruger jeg for at "simulerer" en database.

ok kigger på det lidt sener

Når man ser bort fra min simulation af "databasen", er det her det eneste du skal bruge:

                      MinKode = rs("navn")
                      MitIkon = "&nbsp;"
                     
                    if len(rs("email")) > 0 then
                      MinKode = "<a href=""mailto:" & rs("email") & """>" & rs("navn") & "</a>"
                      MitIkon = "<a href=""mailto:" & rs("email") & """><img border=""0"" src=""mini_kuvert.gif""" & color & "</a>"
                    end if


                  <tr>
                    <td vAlign="top" class="copy" <%=color%>><%=MinKode%></td>
                    <td vAlign="top" class="copy" align="right" <%=color%>><%=MitIkon%></td>
                  </tr>


Min asp kode skal bare så i "do while not rs.eof"-loopen, og før <td>-koderne.
Det er bare det.. tænk ikke på resten af koden :-)

sådan så var den der, se under udvalg: http://www.hillerodgolf.dk/tirsdag/

smid lige et svar :o)

Og et svar er smidt :-)

by the way.. "den lille ikon" skal være "det lille ikon" :-)

texten redigerer de selv jeg har bare smidt noget hurtigt ind :o) så jeg tager mig ikke så meget af retskrivningen, da den ikke er officiel endnu, og først bliver det når de har fået den redigeret :o)

Takker for points :-)

selv tak :o)