Presenterar kod

Var är felet i denna kod? Är en aning ringrostig :r

    				<%If not RS.EOF Then 
					If int(adag) = int(RS("dd")) Then 
						bgColor = "#CCCCCC" 
						skriv = "true"
						End If
						End If%>
						
	<%If skriv = "true" Then
    response.write "<center><font size='2'><b>' & =RS(""dd"") & ' -' & =RS(""mm"") & '-' & =RS(""yyyy"") & '</center></font></b><br>"
    response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse; border-width: 0' bordercolor='#111111' width='100%' id='AutoNumber2'>"
    response.write " & Do Until RS.EOF & "
    response.write "<tr>"
    response.write "<td width='175' style='border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: dotted; border-bottom-width: 1'><center><b> & =RS(""title"") & </b></center></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td width='175'> & =RS(""text"") & <br><br></td>"
    response.write "</tr>"
    response.write " & RS.MoveNext Loop & "
    
    Else 
    response.write "Nothing to present" 
    End If %>

När SKRIV=TRUE skrivs bara koden ut, hur ändrar jag snuttarn av aspkod till kod som skrivs ut som just kod, så att de gör sin funktion?

Du tar bort response.write framför koden.
ex.

response.write " & Do Until RS.EOF & "
'ska vara
Do Until RS.EOF

För det första är text ett dåligt fältnamn, eftersom det är reserverat av de flesta dbms då det är en datatyp. Du bör byta namn på fältet.

Om du lagrar asp-kod i db så måste det vara ren asp-kod, utan context-switchar och annat skräp. Du kan använda ex. Execute för detta.

Re: Presenterar kod

Coccozz skrev:

Var är felet i denna kod? Är en aning ringrostig :r

    				<%If not RS.EOF Then 
					If int(adag) = int(RS("dd")) Then 
						bgColor = "#CCCCCC" 
						skriv = "true"
						End If
						End If%>
						
	<%If skriv = "true" Then
    response.write "<center><font size='2'><b>' & =RS(""dd"") & ' -' & =RS(""mm"") & '-' & =RS(""yyyy"") & '</center></font></b><br>"
    response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse; border-width: 0' bordercolor='#111111' width='100%' id='AutoNumber2'>"
    response.write " & Do Until RS.EOF & "
    response.write "<tr>"
    response.write "<td width='175' style='border-left-width: 1; border-right-width: 1; border-top-width: 1; border-bottom-style: dotted; border-bottom-width: 1'><center><b> & =RS(""title"") & </b></center></td>"
    response.write "</tr>"
    response.write "<tr>"
    response.write "<td width='175'> & =RS(""text"") & <br><br></td>"
    response.write "</tr>"
    response.write " & RS.MoveNext Loop & "
    
    Else 
    response.write "Nothing to present" 
    End If %>

När SKRIV=TRUE skrivs bara koden ut, hur ändrar jag snuttarn av aspkod till kod som skrivs ut som just kod, så att de gör sin funktion?

du kan rensa koden utan att behöva så många response.write
kör med <%=rs("dinKolumn")%>

din loop kan du gör med
<%If rs.eof then%>
din kod
<%rs.MoveNext
Loop%>