9 svar · 271 visningar · startad av da97enla
Hej
Jag lägger in smileys mha av asp. Nu vill jag fixa så som det är här på forumet mha javascript får då det här meddelandet.
*Active Server Pages error 'ASP 0138'
/admin/news/edit.asp, line 2
A script block cannot be placed inside another script block. Nested Script Block*
Varför?
mvh
enla
Du har förmodligen nånting sånt här i din kod:
<%
'lite kod
'lite mer kod
<%
'lite kod
'lite mer kod
%>
'kod
' annan kod
%>
Du kan inte nästla contextswitchar (<% / %>) på det sättet, och inte på något annat sätt heller igentligen. Ta bort alla utom de som är ytterst. Du ska bara öppna / stänga med switcharna när du ska byta mellan att skriva asp-kod och html.
Mvh,
Inte riktigt men nästan
*<% IF session("x_userID") = "" THEN response.redirect "/admin/login.asp" %>
<!-- #INCLUDE VIRTUAL="/admin/open.asp" -->
<% öppnar databasen %>
<html>
<% kod %>
<html>
<% mera kod %>
<slut html>
<!-- #INCLUDE VIRTUAL="/admin/close.asp" -->*
Ska jag inte stänga mellan översta asp och include filen?
Jo, koden du har är korrekt. Skulle du kunna visa fullständig kod?
Speciellt rad 2.
Oj det blir rätt mycket kod men här är koden där jag får felmeddelandet.
*<%
IF session("x_userID") = "" THEN response.redirect "/admin/login.asp"
%>
<!-- #INCLUDE VIRTUAL="/admin/open.asp" -->
<%
' ## SELECT THE SELECTED POST
SQL = "SELECT * FROM [news] WHERE [intId] = " & request("ID") & ";"
set mySQL = Conn.Execute(SQL)
on error resume next
' ## ERRORHANDLING
' ## CHECK FOR FALSE ID, NOT IN THE DATABASE
IF mySQL.EOF THEN
Conn.close
set Conn = nothing
response.redirect "index.asp"
END IF
' ## COLLECT NAMES
intId = mySQL("intId")
dteCreated = mySQL("dteCreated")
strSubject = mySQL("strSubject")
strMessage = mySQL("strMessage")
%>
<HTML>
<HEAD>
<TITLE>edit</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META name="ROBOTS" content="NOINDEX, NOFOLLOW">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" VLINK="#000000" ALINK="#000000">
<!-- #INCLUDE VIRTUAL="/admin/menu.asp" --> <BR>
<TABLE WIDTH="400" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="50"> </TD>
<TD WIDTH="100"><A HREF="/admin/news/index.asp"><IMG SRC="/admin/pics/icons/back.gif" WIDTH="15" HEIGHT="15" BORDER="0" TITLE="Tillbaka"></A></TD>
<TD WIDTH="250"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1"><B>REDIGERA
Nyheterna</B> </FONT></TD>
</TR>
</TABLE>
<%
tmp = tmp & "<TABLE WIDTH=""500"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCRLF
tmp = tmp & "<TR>" & vbCRLF
' ## DATE
tmp = tmp & "<TD WIDTH=""140"" VALIGN=""TOP"" ALIGN=""RIGHT"">" & myFont1 & mySQL("intId")
tmp = tmp & "</FONT></TD>" & vbCRLF
tmp = tmp & "<TD WIDTH=""10"">__</TD>" & vbCRLF
' ## MESSAGE
tmp = tmp & "<TD WIDTH=""350"" VALIGN=""TOP"">" & myFONT1 & "<B>" & mySQL("strSubject")
tmp = tmp & "</B><BR>" & replace(mySQL("strMessage"), vbCRLF, "<BR>" & vbCRLF ) & "</FONT></TD>" & vbCRLF
tmp = tmp & "</TR></TABLE><BR>" & vbCRLF
' ## COMMENT
' ## SELECT THE SELECTED POST
SQL2 = "SELECT * FROM [comments] WHERE [intNewsId] = " & mySQL("intId") & ";"
set mySQL2 = Conn.Execute(SQL2)
on error resume next
DO UNTIL mySQL2.EOF
tmp = tmp & "<TABLE WIDTH=""500"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCRLF
tmp = tmp & "<TR>" & vbCRLF
tmp = tmp & "<TD WIDTH=""150"" VALIGN=""TOP"" ALIGN=""CENTER"">" & myFont1 & formatDateTime(mySQL2("dteCreated"),2) _
& " " & formatDateTime(mySql2("dteCreated"), 4)
tmp = tmp & "</FONT></TD>" & vbCRLF
tmp = tmp & "<TD WIDTH=""350"" VALIGN=""TOP"">" & myFONT1 & "<B>" & mySQL2("strPath")
tmp = tmp & "</B><BR>" & replace(mySQL2("strMessage"), vbCRLF, "<BR>" & vbCRLF ) & "</FONT></TD>" & vbCRLF
tmp = tmp & "</TR></TABLE><BR>" & vbCRLF
mySQL2.MoveNext
LOOP
response.write tmp
tmp = ""
%> <BR>
<FORM NAME="edit" METHOD="post" ACTION="/admin/news/confirm.asp">
<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="50"> </TD>
<TD WIDTH="100"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">Datum:</FONT></TD>
<TD WIDTH="900" COLSPAN="2"> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">
<INPUT TYPE="text" NAME="dteCreated" SIZE="10" VALUE="<%=dteCreated%>">
</FONT></TD>
</TR>
<TR>
<TD WIDTH="50"> </TD>
<TD WIDTH="100"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">Rubrik:</FONT></TD>
<TD WIDTH="900" COLSPAN="2"> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">
<INPUT TYPE="text" NAME="strsubject" SIZE="40" VALUE="<%=replace(strSubject, """", """)%>">
</FONT></TD>
</TR>
<TR>
<TD WIDTH="50"> </TD>
<TD WIDTH="100"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">Text:</FONT></TD>
<TD WIDTH="300"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">
<TEXTAREA NAME="strMessage" COLS="50" ROWS="10" WRAP="VIRTUAL"><%=strMessage%></TEXTAREA>
</FONT></TD>
<TD WIDTH="150" VALIGN="TOP" ALIGN="CENTER">
<TABLE WIDTH="100" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD><FONT FACE="Verdana, Georgia, Arial" SIZE="1"><B>Smileys</B></FONT></TD>
</TR>
</TABLE>
<TABLE WIDTH="100" BORDER="0" CELLSPACING="2" CELLPADDING="0">
<TR>
<TD WIDTH="34" ALIGN="CENTER"><FONT FACE="Verdana, Georgia, Arial" SIZE="1">:)</FONT></TD>
<TD WIDTH="60"><a href="#" onClick="insertSmiley(':)'); return false;"><IMG SRC="/admin/pics/smileys/happy.gif" WIDTH="15" HEIGHT="15" BORDER="0"></a></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34"><FONT FACE="Verdana, Georgia, Arial" SIZE="1">:></FONT></TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/vhappy.gif" WIDTH="15" HEIGHT="15"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34"><FONT FACE="Verdana, Georgia, Arial" SIZE="1">:n</FONT></TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/note.gif" WIDTH="15" HEIGHT="15"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34"><FONT FACE="Verdana, Georgia, Arial" SIZE="1">x(</FONT></TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/angryorange.gif" WIDTH="15" HEIGHT="15"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34"><FONT FACE="Verdana, Georgia, Arial" SIZE="1">:b</FONT></TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/bire.gif" WIDTH="26" HEIGHT="17"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34">:r</TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/shame.gif" WIDTH="15" HEIGHT="15"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34"><FONT FACE="Verdana, Georgia, Arial" SIZE="1">:x</FONT></TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/dead.gif" WIDTH="15" HEIGHT="15"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34"><FONT FACE="Verdana, Georgia, Arial" SIZE="1">:(</FONT></TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/frown.gif" WIDTH="15" HEIGHT="15"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34"><FONT FACE="Verdana, Georgia, Arial" SIZE="1">;)</FONT></TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/wink.gif" WIDTH="15" HEIGHT="15"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34">:k</TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/kiss.gif" WIDTH="18" HEIGHT="15"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" WIDTH="34">;o</TD>
<TD WIDTH="60"><IMG SRC="/admin/pics/smileys/winkorange.gif" WIDTH="15" HEIGHT="15"></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD WIDTH="50"> </TD>
<TD WIDTH="100"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1"></FONT></TD>
<TD WIDTH="900" COLSPAN="2"> <FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1">
<BR>
<BR>
<INPUT TYPE="hidden" NAME="dbaction" VALUE="update">
<INPUT TYPE="hidden" NAME="ID" VALUE="<%=intId%>">
<INPUT TYPE="submit" NAME="Submit" VALUE="Spara">
</FONT></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
<!-- #INCLUDE VIRTUAL="/admin/close.asp" -->*
Hur ser koden ut i /admin/open.asp?
Använd gärna [kod]-taggar så blir in kod lättare att läsa.
Mvh,
Ok här är koden i open.asp
<KOD>
<%
'## GENERIC FONTS
myFont1 = "<FONT FACE=""Verdana, Helvetica, Geneva, Arial, Sans-Serif"" SIZE=""1"" COLOR=""#666666"">"
myFont2 = "<FONT FACE=""Verdana, Helvetica, Geneva, Arial, Sans-Serif"" SIZE=""2"">"
myFont3 = "<FONT FACE=""Verdana, Helvetica, Geneva, Arial, Sans-Serif"" SIZE=""3"" COLOR=""#6699CC"">"
'## OPEN THE DATABASE
Set Conn = Server.CreateObject("ADODB.Connection")
'## SELECT SERVER
IF Request.ServerVariables("SERVER_NAME") = "192.168.1.44" THEN
' ## LOCAL SERVER
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Data\webadmin.mdb")
ELSE
' ## WEBSERVER
Conn.Open "DSN=d6525-webadmin;Password=@01#$nacmcmbcklbbjp"
END IF
'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Data\webadmin.mdb")
' ## SESSION LCID = SWEDEN
session.LCID=1053
' ## TRIM VARS
FUNCTION trimVars(myVar)
tmp = request(myVar)
tmp = replace(tmp, "|", "")
tmp = replace(tmp, "'", "''")
trimVars = tmp
END FUNCTION
FUNCTION trimMyIcons(myVar)
tmp = replace(myVar, vbCRLF, "<BR>" & vbCRLF )
tmp = replace(tmp, ":)", "<img src=""/own/bilder/smileys/happy.gif"">" )
tmp = replace(tmp, ":>", "<img src=""/own/bilder/smileys/vhappy.gif"">" )
tmp = replace(tmp, "x(", "<img src=""/own/bilder/smileys/angryorange.gif"">" )
tmp = replace(tmp, ":(", "<img src=""/own/bilder/smileys/frown.gif"">" )
tmp = replace(tmp, ":r", "<img src=""/own/bilder/smileys/shame.gif"">" )
tmp = replace(tmp, ":x", "<img src=""/own/bilder/smileys/dead.gif"">" )
tmp = replace(tmp, ":b", "<img src=""/own/bilder/smileys/bire.gif"">" )
tmp = replace(tmp, ":n", "<img src=""/own/bilder/smileys/note.gif"">" )
tmp = replace(tmp, ";)", "<img src=""/own/bilder/smileys/wink.gif"">" )
tmp = replace(tmp, ":k", "<img src=""/own/bilder/smileys/kiss.gif"">" )
trimMyIcons = tmp
END FUNCTION
%></KOD>
da97enla skrev:
Oj det blir rätt mycket kod men här är koden där jag får felmeddelandet.
Massa kod
Är det dära verkligen filen /admin/news/edit.asp?