Finde bestemte tegn i en streng.

Prøv med:

Response.write Execute(streng)

... eller:

Response.write Eval(streng)

Lidt uddybning:

http://www.attention-to-details.com/newslog/389-eval-and-execute-commands-in-asp.asp

hvis jeg bruger Response.write Execute(streng) så kommer den med en fejl, så jeg skal finde min asp kald i koden, og eksekveredem på deres plads.
Skal gøre det på en eller anden smart måde, men jeg ved ikke helt lige hvordan jeg skal det.

Har du nogle andre ideer nielle. ?

Jeg paster lige noget af min kode.
Function Skabelon(tmpl_valg)
tmpl_sql="select * from SKABELON_TBL where name='"&tmpl_valg&"'"
Set tmpl_data = Rsconn.execute(tmpl_sql)
Tmpl_code = tmpl_data("WEB_CODE")
Response.write execute(tmpl_code)
End Function

Det er i den funktion at jeg skal hente html kode og eksekvere den asp kode der ligger i tmpl_code

og indholdet af tmpl_code ser sådanne ud :

<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" cellspacing="0">
        <tr>
          <td width="100%" colspan="2" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">&nbsp;</td>
        </tr>
        <tr>
          <td width="18%" style="border: 1px dotted #FF0000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"><% call menu_gen(tmpl,1)%></td>
          <td width="82%" style="border: 1px solid #0000FF; padding: 2"><%menu_gen(tmpl,2)%>"</td>
        </tr>
      </table>

Hele ideen er at jeg ikke ved hvor <% befinder sig i koden og hvilken funktion det er .. håber det hjælper lidt mere.

Har du prøvet med Eval() endnu? Det ser ud til at det er den du skal bruge.

Deuden skal din funktion menu_gen() være tilgængelig på den dide hvor du kalder Eval().

Det er den også for det er den side der indeholder alle mine funktioner, som jeg kalder process.asp, som i øvrigt er included i min default fil.

Men jeg kigger på eval funktionen lige om et øje blik

Hvis jeg bruger eval kommer den også med en fejl, så det er ikke nogle af dem jeg kan bruge rent til det, ikke i direkte forbindelse Response.write, men på en anden måde måske..

Det er første gang jeg er nødtil at bruge en database til html og asp i samme streng, så jeg ved ikke helt hvordan

Ikke desto mindre er det en af dem der er den rigtige ... hvordan ser din fejlbesked ud?

Microsoft VBScript compilation error '800a03ea'

Syntax error

/process.asp, line 67

og linie 67 er Response.write Eval(tmpl_code)

Og jeg fik samme fejl da jeg brugte Response.write execute(tmpl_code)

Hvad fpr du hvis du skriver:

Response.write Eval("Bare en test")

Microsoft VBScript compilation error '800a03ea'

Syntax error

/process.asp, line 68
har udkommenteret det andet og sat det ind på den næste linie, så det er Response.write Eval("Bare en Test") virker heller ikke

Skal lige sige at fejlen jeg får med Execute er
Microsoft VBScript compilation error '800a0400'

Expected statement

/process.asp, line 67

Nogen måde hvorpå jeg kan se hvor det er at den Expecter ?

Er du selv herre over template'e? Altså har du mulighed for at lave dem lidt om hvis det er det der skal til?

Ja det er jeg
men det skal være så andre også kan lave templates, også bruge nogle funktioner jeg har lavet.. til menu generering osv..

Har du mulighed for at ændre den sådan at den ser sådan her ud:

<table border='0' cellpadding='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber2' cellspacing='0'>
    <tr>
        <td width='100%' colspan='2' style='border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1'>&nbsp;</td>
    </tr>
    <tr>
        <td width='18%' style='border: 1px dotted #FF0000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1'>"" & menu_gen(tmpl,1) & ""</td>
        <td width='82%' style='border: 1px solid #0000FF; padding: 2'>"" & menu_gen(tmpl,2) & ""'</td>
    </tr>
</table>

Ja, også skal jeg bruge hvad til at gøre det med ?

bare response.write ?

Tror fejlen ligger i min menu_gen
Man kna altså ikke lave en Function i Vbscript / asp ligesom i Visual Basic med
Function Menu_gen(tmpl,nr)
bla bla bla
End Function

??

Den kommer nemlig med følgende fejl :

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

/process.asp, line 62

Hvis det der er indholdet i din tmpl_code, så burde dette her gøre tricket:

<% Execute("Response.Write """ & tmpl_code & """") %>

... og med "det der" menes selvfølgeligt templaten fra 11/01-2006 20:30:17 :^)

Jeps det er også den jeg kører med nu

Fandt også lige ud af jeg skal bruge call foran, for at den vil bruge min sub værdi i min function.. så nu ser det ud ti at gå den rigtige vej :D

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/process.asp, line 68

Er den fejl jeg får nu, men jeg kan da mærke jeg er tættere på nu end jeg var tidligere.

Den der fejl betyder at du har glemt at afslutte en streng. Det er sikkert den som er i templaten.

Tjaa tror lige jeg kigger den igennem og ser om det er der fejlen ligger...
For den ser ellers rigtig nok ud, men det er det i asp er det et tegn der kan ødelægge alt.

Indtil videre takker jeg mange gange for din hjælp og tålmodighed :D

Prøv med en:

Response.Write tmpl_code

- og post resultatet her.

http://test1.udrykning.info/

Der kan du se hvad den gør nu.. og det er med templaten, som du har skrevet her og med Execute("........"""")

Og det er det samme som bare at bruge response.write

Den der er der nu er med response.write

Prøv lige at fjerne de call's du har set foran.

sådanne

Hvad gover:

<% Execute("Response.Write """ & tmpl_code & """") %>

- så nu?

Sådan som den ser ud nu bare med et " mindre end med Response.write

Den forstod jeg ikke. Prøv lige at forklare en gang til.

når du bruger Execute("Response.write......)

Er der et " mindre synligt end hvis du bruger Response.write
altså response.write : "" & menu_gen(tmpl,1) & ""
Ecxecute("response.write.....) : " & menu_gen(tmpl,1) & "

Der er noget mystisk på færde hvios Execute-versionen udskriver "menu_gen(tmpl,1)" i stedet fro det resultat menu_gen(tmpl,1) skulle give.

Jeg er helt enig, For jeg havde siddet og bokset med problemet et par dage inden jeg skrev her inde, for tænkte der må være en måde at gøre det på, og jeg har kigget rundt omkring, og set om der var andre måder man evt kunne kringle dette problem på.

Men det ser ud til at jeg må løse det på en anden måde eller eksperimentere i løbet af weekenden, eller lidt i morgen, for har desværre ikke så meget tid resten af ugen eller i morgen. grundet julefrokost og Leder Seminar

Denne lille demo viser at det kan lade sig gøre:

<%
Function menu_gen(A, B)
    menu_gen = "Bare en demo at princippet"
End Function

tmpl_code = "aaa "" & menu_gen(1,2) & "" bbb"
Response.Write tmpl_code & "<br>"

Execute("Response.Write """ & tmpl_code & """")
%>

Ja, men hvad er det så der får det til at glippe når det er at det sker via databasens indhold, som ellers ser helt normalt ud ?
Det er mere det der undrer mig.

aaahhh tror jeg har luret den.
for i min funktion response.writer jeg også..
tror det er der min fejl den ligger.

Tester lige.

du kan kigge lidt i denne tråd http://www.eksperten.dk/spm/633430
hvis du ønsker lidt inspiration til at få afviklet inlejret asp

nej det kan det ikke være for så langt når den jo slet ikke, så det er endnu mere underligt..

Hvad nu hvis man lavede :

<%
Function menu_gen1(A, B)
    menu_gen1 = "<table border='0' cellpadding='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber2' cellspacing='0'><tr><td width='100%' colspan='2' style='border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1'>&nbsp;</td></tr><tr><td width='18%' style='border: 1px dotted #FF0000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1'>" & menu_gen(tmpl,1) & "</td><td width='82%' style='border: 1px solid #0000FF; padding: 2'>" & menu_gen(tmpl,2) & "</td></tr></table>"
End Function

Function menu_gen(A, B)
    menu_gen = "Test1"
End Function


tmpl_code = "aaa "" & menu_gen1(1,2) & "" bbb"
Response.Write tmpl_code & "<br>"

Execute("Response.Write """ & tmpl_code & """")
%>

Der er 1 " mindre end den anden, og den virker

Sådan problem løst.

Sådan ser det ud :

Function Skabelon(tmpl_valg)
tmpl_sql="select * from SKABELON_TBL where name='"&tmpl_valg&"'"
Set tmpl_data = Rsconn.execute(tmpl_sql)
Tmpl_code = tmpl_data("WEB_CODE")%>
<% Execute("Response.Write """ & tmpl_code & """") %>
<%'Response.Write tmpl_code
End Function
Function menu_Gen(tmpl,menu_type)
'1 = Normal tabel ned Menu, 2 er Menu vandret tabel.
' Generere menu udfra database, og ud fra hvad der står i tmpl
if menu_type = 1 Then
Menu_sql="select * from menu_tbl where TMPL='"&tmpl&"' and Parent=true and TMPL_MENU=FALSE"
Set Menu_data = Rsconn.execute(menu_sql)
Menu_gen = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"" id=""Main_menu"">"&vbcrlf
Menu_gen = menu_gen & "<tr>"&vbcrlf
Menu_gen = menu_gen & "<td width=""100%"">"&menu_data("HD_LINE")&"</td>"&vbcrlf
Menu_gen = menu_gen & "</tr>"&vbcrlf
Menu_sql="Select * from menu_tbl where Parent=False and Parent_id="&menu_data("ID")&""
Set Menu_data = Rsconn.execute(menu_sql)
While not menu_data.eof
Menu_gen = menu_gen & "<tr>"&vbcrlf
Menu_gen = menu_gen & "<td width=""100%"">"&menu_data("HD_LINE")&"</td>"&vbcrlf
Menu_gen = menu_gen & "</tr>"&vbcrlf
menu_data.movenext
wend
Menu_gen = menu_gen & "</table>"&vbcrlf
End if
if menu_type = 2 Then
menu_gen =""
Menu_sql="select * from menu_tbl where TMPL='"&tmpl&"' and Parent=True and TMPL_MENU=True"
Set Menu_data = Rsconn.execute(menu_sql)
menu_gen =  "<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""100%"" id=""Main_menu"">"&vbcrlf
Menu_gen = menu_gen & "<tr>"&vbcrlf
Menu_gen = menu_gen & "<td>"&menu_data("HD_LINE")&"</td>"&vbcrlf
Menu_sql="Select * from menu_tbl where Parent=False and Parent_id="&menu_data("ID")&""
Set Menu_data = Rsconn.execute(menu_sql)
While not Menu_data.eof
Menu_gen = menu_gen & "<td>"&menu_data("HD_LINE")&"</td>"&vbcrlf
menu_data.movenext
wend
Menu_gen = menu_gen & "</tr>"&vbcrlf
Menu_gen = menu_gen & "</table>"&vbcrlf
End if
End Function

Indhold i WEB_CODE :

<table border='0' cellpadding='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber2' cellspacing='0'><tr><td width='100%' colspan='2' style='border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1'>&nbsp;</td></tr><tr><td width='18%' style='border: 1px dotted #FF0000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1'>" & menu_gen(tmpl,1) & "</td><td width='82%' style='border: 1px solid #0000FF; padding: 2'>" & menu_gen(tmpl,2) & "</td></tr></table>

Så Nielle Smid et svar og du får point, som tak for hjælpen, og god tålmodighed.

Så skulle der også være mulighed for at andre med samme skøre ide som jeg kan få det til at lykkes i første hug :D Dejligt med Eksperten.dk

God aften til alle Senge tid.

Den burde nu se sådan her ud:

Sub Skabelon(tmpl_valg)
    tmpl_sql="select * from SKABELON_TBL where name='" & tmpl_valg & "'"
    Set tmpl_data = Rsconn.execute(tmpl_sql)
    Tmpl_code = tmpl_data("WEB_CODE")
    Execute("Response.Write """ & tmpl_code & """")
    'Response.Write tmpl_code
End Sub