Avatar billede langfinger Nybegynder
01. december 2003 - 14:32 Der er 12 kommentarer og
2 løsninger

ASP kode i variabel

Hej

Jeg prøver at smide noget ASP kode ind i en variabel,
men det kan man ikke.

Jeg gør dette da jeg vil sende min variabel som en E-Mail.

Kode:

<%
tekst = "<font size=2 color=08377B><strong>Top 10 sites</strong><br><table width=400 cellspacing=0 cellpadding=0><tr><td width=25><font size=1 color=08377B>Nr</td><td width=350><font size=1 color=08377B>Titel</td><td width=25><font size=1 color=08377B>Count</td></tr><%
count = 1

strSQL = "Select Top 10 * From [count] Order by [count] DESC"
Set rs = Conn.Execute(strSQL)

Do While Not RS.EOF
%><tr><td width=25><font size=1 color=08377B><% response.write count %></td><td width=350><font size=1 color=08377B><%=rs("side")%></td><td width=25><font size=1 color=08377B><%=rs("count")%></td></tr>
<%
count = count + 1
RS.MoveNext
Loop
%></table>"

Dim Mailer
Set Mailer = Server.CreateObject("MEMail.Message")
Mailer.MailFromDisplayName = "****"
Mailer.MailFrom = "****"
Mailer.MailTo = "****"
Mailer.ContentType = "text/html"
Mailer.Subject = "****"
Mailer.MessageBody = tekst

if not Mailer.SendMessage then
Response.Write "Kontaktformularen kunne ikke gennemføres...<p>Husk venligst at udfylde alle felter.</p><br><br><p>Fejlmeddelelse:</p>"
Response.Write Mailer.Response
else
Response.Write "<br>"
end if

set Mailer = Nothing
%>
Avatar billede medions Nybegynder
01. december 2003 - 14:35 #1
Det kan du godt, men så skla du bare eksekvere den sådan her:

strVariabel = "Hej med dig<%= ""Rune"" %>"
Execute(strVariabel)

//>Rune
Avatar billede langfinger Nybegynder
01. december 2003 - 14:39 #2
Hej,

jeg får fejlen:
Unterminated string constant

Fordi jeg laver mellemrum i asp-koden, hvordan kan jeg undgå dette?
Avatar billede medions Nybegynder
01. december 2003 - 14:42 #3
Jamen hvad er det du vil lave?

//>Rune
Avatar billede langfinger Nybegynder
01. december 2003 - 14:43 #4
><%
count = 1

strSQL = "Select Top 10 * From [count] Order by [count] DESC"
Set rs = Conn.Execute(strSQL)

Do While Not RS.EOF
%>

Vil jo skrive nogle poster ud fra en database!
Avatar billede medions Nybegynder
01. december 2003 - 14:46 #5
Øhh ja?! -vil du ha' det med i din mail eller hvad er det du vil?

//>Rune
Avatar billede langfinger Nybegynder
01. december 2003 - 14:47 #6
Ja, det skal med i mailen !
Avatar billede medions Nybegynder
01. december 2003 - 14:48 #7
Ahh ok, så skal du gøre sådan her:

<%
tekst = "<font size=2 color=08377B><strong>Top 10 sites</strong><br><table width=400 cellspacing=0 cellpadding=0><tr><td width=25><font size=1 color=08377B>Nr</td><td width=350><font size=1 color=08377B>Titel</td><td width=25><font size=1 color=08377B>Count</td></tr><%
count = 1

strSQL = "Select Top 10 * From [count] Order by [count] DESC"
Set rs = Conn.Execute(strSQL)

Do While Not RS.EOF

tekst = tekst & "<tr><td width=25><font size=1 color=08377B>" & response.write count & "</td><td width=350><font size=1 color=08377B>" & rs("side") & "</td><td width=25><font size=1 color=08377B>" & rs("count") & "</td></tr>"
<%
count = count + 1
RS.MoveNext
Loop
tekst = tekst & "</table>"
%>

//>Rune
Avatar billede langfinger Nybegynder
01. december 2003 - 14:48 #8
Altså det er ikke selve koden der skal med i mailen men resultatet af koden...
Avatar billede medions Nybegynder
01. december 2003 - 14:49 #9
Hov, lige en lille fejl, men rettet her:
<%
tekst = "<font size=2 color=08377B><strong>Top 10 sites</strong><br><table width=400 cellspacing=0 cellpadding=0><tr><td width=25><font size=1 color=08377B>Nr</td><td width=350><font size=1 color=08377B>Titel</td><td width=25><font size=1 color=08377B>Count</td></tr><%
count = 1

strSQL = "Select Top 10 * From [count] Order by [count] DESC"
Set rs = Conn.Execute(strSQL)

Do While Not RS.EOF

tekst = tekst & "<tr><td width=25><font size=1 color=08377B>" & count & "</td><td width=350><font size=1 color=08377B>" & rs("side") & "</td><td width=25><font size=1 color=08377B>" & rs("count") & "</td></tr>"
<%
count = count + 1
RS.MoveNext
Loop
tekst = tekst & "</table>"
%>

//>Rune
Avatar billede medions Nybegynder
01. december 2003 - 14:50 #10
Ahhhh sådan her, undskylder forviringen!

<%
tekst = "<font size=2 color=08377B><strong>Top 10 sites</strong><br><table width=400 cellspacing=0 cellpadding=0><tr><td width=25><font size=1 color=08377B>Nr</td><td width=350><font size=1 color=08377B>Titel</td><td width=25><font size=1 color=08377B>Count</td></tr><%
count = 1

strSQL = "Select Top 10 * From [count] Order by [count] DESC"
Set rs = Conn.Execute(strSQL)

Do While Not RS.EOF

tekst = tekst & "<tr><td width=25><font size=1 color=08377B>" & count & "</td><td width=350><font size=1 color=08377B>" & rs("side") & "</td><td width=25><font size=1 color=08377B>" & rs("count") & "</td></tr>"

count = count + 1
RS.MoveNext
Loop
tekst = tekst & "</table>"
%>

//>Rune
Avatar billede langfinger Nybegynder
01. december 2003 - 14:51 #11
Unterminated string constant

tekst = "<font size=2 color=08377B><strong>Top 10 sites</strong><br><table width=400 cellspacing=0 cellpadding=0><tr><td width=25><font size=1 color=08377B>Nr</td><td width=350><font size=1 color=08377B>Titel</td><td width=25><font size=1 color=08377B>Count</td></tr><%
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
Avatar billede langfinger Nybegynder
01. december 2003 - 16:03 #12
medions > Kan du hjælpe mig?
Avatar billede langfinger Nybegynder
01. december 2003 - 20:43 #13
Jeg løste det hele på en anden måde...
Avatar billede medions Nybegynder
02. december 2003 - 08:28 #14
Nå, du fandt ud af det...
Du kunne jo oxo lige ha' ventet lidt så kunne jeg ha' hjulpet dig færdig :)
Men. Thx 4 Poinz

//>Rune
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