Presenterar kod

[Coccozz]

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?

[Peeer]

Du tar bort response.write framför koden.
ex.response.write " & Do Until RS.EOF & "
'ska vara
Do Until RS.EOF

[@nders]

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 (http://www.devguru.com/technologies/wml/vbscript/quickref/Execute.html) för detta.

[WebbisNet]

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