Notifikationer

Markér alle som læst Log ud

cdc Novice

04. april 2004 - 16:00 Der er 31 kommentarer og
1 løsning

Synes godt om

cdc Novice

04. april 2004 - 16:01 #1

denne er der selvfølgelig også:

<%
RS.MoveNext
loop
%>

Synes godt om

thesurfer Nybegynder

04. april 2004 - 16:07 #2

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 %>

Synes godt om

thesurfer Nybegynder

04. april 2004 - 16:07 #3

rettelse:

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

Synes godt om

thesurfer Nybegynder

04. april 2004 - 16:11 #4

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%>>

Synes godt om

cdc Novice

04. april 2004 - 16:16 #5

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

Synes godt om

thesurfer Nybegynder

04. april 2004 - 16:20 #6

- 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"?

Synes godt om

thesurfer Nybegynder

04. april 2004 - 16:21 #7

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

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

Synes godt om

cdc Novice

04. april 2004 - 16:25 #8

hvad betyder dette:

Expected statement

/tirsdag/udvalg.asp, line 61

end if

Synes godt om

thesurfer Nybegynder

04. april 2004 - 16:29 #9

Hvilken linie er linie 61?

Synes godt om

thesurfer Nybegynder

04. april 2004 - 16:29 #10

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

Synes godt om

cdc Novice

04. april 2004 - 16:36 #11

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>
 
</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> 
</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.  All rights
reserved Hillerød Golf Klub</td>
</tr>
</table>
</body>

Synes godt om

thesurfer Nybegynder

04. april 2004 - 17:00 #12

Prøv det her:

do while not RS.EOF
bgskift=bgskift + 1
MinKode = rs("navn")
MitIkon = " "

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>

Synes godt om

thesurfer Nybegynder

04. april 2004 - 17:01 #13

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

Synes godt om

cdc Novice

04. april 2004 - 17:05 #14

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'"

Synes godt om

thesurfer Nybegynder

04. april 2004 - 17:08 #15

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?

Synes godt om

thesurfer Nybegynder

04. april 2004 - 17:11 #16

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

Synes godt om

cdc Novice

04. april 2004 - 17:15 #17

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

Synes godt om

thesurfer Nybegynder

04. april 2004 - 17:23 #18

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..

Synes godt om

thesurfer Nybegynder

04. april 2004 - 17:26 #19

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

Synes godt om

thesurfer Nybegynder

04. april 2004 - 17:41 #20

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.

Synes godt om

cdc Novice

04. april 2004 - 18:16 #21

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)
%

Synes godt om

cdc Novice

04. april 2004 - 18:18 #22

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

Synes godt om

cdc Novice

04. april 2004 - 18:19 #23

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

Synes godt om

thesurfer Nybegynder

04. april 2004 - 18:24 #24

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.

Synes godt om

cdc Novice

04. april 2004 - 18:25 #25

ok kigger på det lidt sener

Synes godt om

thesurfer Nybegynder

04. april 2004 - 18:36 #26

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

MinKode = rs("navn")
MitIkon = " "

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 :-)

Synes godt om

cdc Novice

04. april 2004 - 19:12 #27

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

smid lige et svar :o)

Synes godt om

thesurfer Nybegynder

04. april 2004 - 19:13 #28

Og et svar er smidt :-)

Synes godt om

thesurfer Nybegynder

04. april 2004 - 19:17 #29

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

Synes godt om

cdc Novice

04. april 2004 - 19:30 #30

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)

Synes godt om

thesurfer Nybegynder

04. april 2004 - 19:47 #31

Takker for points :-)

Synes godt om

cdc Novice

04. april 2004 - 20:23 #32

selv tak :o)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS