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 %>
Annonceindlæg fra Computerworld
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
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?
01. december 2003 - 14:42
#3
Jamen hvad er det du vil lave? //>Rune
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!
01. december 2003 - 14:46
#5
Øhh ja?! -vil du ha' det med i din mail eller hvad er det du vil? //>Rune
01. december 2003 - 14:47
#6
Ja, det skal med i mailen !
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
01. december 2003 - 14:48
#8
Altså det er ikke selve koden der skal med i mailen men resultatet af koden...
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
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
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><% -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
01. december 2003 - 16:03
#12
medions > Kan du hjælpe mig?
01. december 2003 - 20:43
#13
Jeg løste det hele på en anden måde...
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
Kurser inden for grundlæggende programmering