Søg
Avatar billede jr40 Nybegynder
29. marts 2005 - 17:29 Der er 8 kommentarer og
1 løsning

Syntax error, hjælp..

Jeg for denne her fejl, når jeg køre min side.asp

Microsoft VBScript compilation error '800a03ea'

Syntax error

/side.asp, line 264

elseif mode="update" then
^

Linje 264 ser sådan her ud:
elseif mode="update" then


Den nederste kodestump på min side.asp

<%
elseif mode="update" then
bord1 = Trim(Replace(request.form("bord1"),"'","`" ))
bord1 = replace(bord1, vbCrLF, "<br>")
bord2 = Trim(Replace(request.form("bord2"),"'","`" ))
bord2 = replace(bord2, vbCrLF, "<br>")
bord3 = Trim(Replace(request.form("bord3"),"'","`" ))
bord3 = replace(bord3, vbCrLF, "<br>")
bord4 = Trim(Replace(request.form("bord4"),"'","`" ))
bord4 = replace(bord4, vbCrLF, "<br>")
bord5 = Trim(Replace(request.form("bord5"),"'","`" ))
bord5 = replace(bord5, vbCrLF, "<br>")
bord6 = Trim(Replace(request.form("bord6"),"'","`" ))
bord6 = replace(bord6, vbCrLF, "<br>")
bord7 = Trim(Replace(request.form("bord7"),"'","`" ))
bord7 = replace(bord7, vbCrLF, "<br>")
bord8 = Trim(Replace(request.form("bord8"),"'","`" ))
bord8 = replace(bord8, vbCrLF, "<br>")
box1 = Trim(Replace(request.form("box1"),"'","`" ))
box1 = replace(box1, vbCrLF, "<br>")
box2 = Trim(Replace(request.form("box2"),"'","`" ))
box2 = replace(box2, vbCrLF, "<br>")
box3 = Trim(Replace(request.form("box3"),"'","`" ))
box3 = replace(box3, vbCrLF, "<br>")

SQL2 = "update indhold set [bord1] ='" & bord1 & "', bord2='" & bord2 & "', bord3='" & bord3 & "', bord4='" & bord4 & "', bord5='" & bord5 & "', bord6='" & bord6 & "', bord7='" & bord7 & "', bord8='" & bord8 & "', box1='" & box1 & "', box2='" & box2 & "', box3='" & box3 & "' where side = 1;"
rs = Conn.Execute(SQL2)
response.redirect("side.asp")

end if
%>
Avatar billede skyggen2000 Nybegynder
29. marts 2005 - 17:34 #1
har du en if XX= X then inden. Det er jo en syntaks fejl som den skriver:)

Ellers så fyr hele siden ud.
Avatar billede skyggen2000 Nybegynder
29. marts 2005 - 17:34 #2
og er du sikker på du ikke har en end if før din elseif
Avatar billede jr40 Nybegynder
29. marts 2005 - 17:38 #3
hele siden her:

<%
dim conn, strconnect, sql, rs, bord1, bord2, bord3, bord4, bord5, bord6, bord7, bord8, box1, box2, box3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/cms.mdb")

set rs = server.createobject("ADODB.Recordset")
sql = "select * from indhold where side=1;"

rs.open sql, conn

while not rs.eof
bord1 = rs("bord1")
bord2 = rs("bord2")
bord3 = rs("bord3")
bord4 = rs("bord4")
bord5 = rs("bord5")
bord6 = rs("bord6")
bord7 = rs("bord7")
bord8 = rs("bord8")
box1 = rs("box1")
box2 = rs("box2")
box3 = rs("box3")
rs.movenext
wend
%>
<HTML>
<HEAD>
  <TITLE>weee</TITLE>
      <script type="text/javascript">
billede1 = new Image();
billede1.src = "images/fisk.gif";

billede2 = new Image();
billede2.src = "images/fisk1.gif";


function skiftbillede(img_name,img_src) {
document[img_name].src=img_src;
}

</script>
      <link href="style/akstyle.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY BGCOLOR="#FFFFFF" LINK="#000099" ALINK="#009900" VLINK="#009900">
<P><TABLE BORDER=0 WIDTH=1116><form name='FormName' action='om_bord_admin.asp?mode=update' method='post'>
  <TR>
      <TD ALIGN=center VALIGN=bottom WIDTH=218 HEIGHT=90>
        <P>
            <IMG SRC="images/mari24.gif" WIDTH=124 HEIGHT=47 BORDER=0 ALIGN=bottom>&nbsp;</P>
      </TD>
      <TD ALIGN=right VALIGN=bottom WIDTH=872 HEIGHT=90>
        <P align="right">
            <font color="#6699CC" size="7"><strong><span class="alm_text">Her skriver
            du overkskriften:</span>
            <input name="bord1"  style="width: 200px;"  type="bord1" value="<% =replace(bord1,"<br>",vbCrLf,1,-1,1) %>">
            </strong></font></P>
    </TD>
      <TD ALIGN=right VALIGN=bottom WIDTH=12>&nbsp;</TD>
  </TR>
  <TR>
    <TD WIDTH=218 height="933" ALIGN=center VALIGN=top>
        <P>
        <br>
        <br>
        <br>       
        <table width="218" height="101" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="299"><img src="images/nyheder.jpg" width="207" height="23" border="0"></td>
            <td width="1" height="23"></td>
          </tr>
          <tr>
            <td height="54" valign="top"><table width=217 border=0 align="left" cellpadding=2 cellspacing=3>
                <tr>
                  <td valign=bottom height=30><a href="default.asp" onMouseOver="skiftbillede('eksempel6','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel6','images/fisk.gif')"><img src="images/fisk.gif" alt="Om Marianne-F" name="eksempel6" border="0" align="middle" style="border:none;" /></a></td>
                  <td height=30><font size="-2" face="Verdana" color="#000000"><b>1.</b></font></td>
                </tr>
                <tr>
                  <td valign=bottom width=40 height=30>
                    <p><a href="om_we.asp" onMouseOver="skiftbillede('eksempel1','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel1','images/fisk.gif')"> <img src="images/fisk.gif" alt="Om Marianne-F" name="eksempel1" border="0" align="middle" style="border:none;" /></a> </p>
                  </td>
                  <td width=160 height=30>
                    <p><font size="-2" face="Verdana" color="#000000"><b>2.</b></font></p>
                  </td>
                </tr>
                <tr>
                  <td valign=bottom width=40 height=30>
                    <p><a href="ture.asp" onMouseOver="skiftbillede('eksempel2','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel2','images/fisk.gif')"><img src="images/fisk.gif" alt="Fisketure med Marianne-F" name="eksempel2" border="0" align="middle" style="border:none;" /></a></p>
                  </td>
                  <td width=160 height=30>
                    <p><font size="-2" face="Verdana" color="#000000"><b>3.</b></font></p>
                  </td>
                </tr>
                <tr>
                  <td valign=bottom width=40 height=30>
                    <p><a href="om_bord.asp" onMouseOver="skiftbillede('eksempel3','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel3','images/fisk.gif')"><img src="images/fisk.gif" alt="bord p&aring; Marianne-F" name="eksempel3" border="0" align="middle" style="border:none;" /></a></p>
                  </td>
                  <td width=160 height=30>
                    <p><font size="-2" face="Verdana" color="#6699CC"><b>4.</b></font></p>
                  </td>
                </tr>
                <tr>
                  <td valign=bottom width=40 height=30> <a href="wee.htm"> </a><a href="kontakt.asp" onMouseOver="skiftbillede('eksempel4','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel4','images/fisk.gif')"><img src="images/fisk.gif" alt="Skriv til Marianne-F" name="eksempel4" border="0" align="middle" style="border:none;" /></a></td>
                  <td valign=bottom width=160 height=30> <font size="-2" face="Verdana" color="#000000"><b>5.</b></font></td>
                </tr>
              </table>
            </td>
          </tr>
          <tr>
            <td><img src="images/bund2.jpg" width="213" height="14" border="0"></td>
            <td width="1" height="14"></td>
          </tr>
        </table></TD>
    <TD colspan="2" VALIGN=top>
        <P><TABLE BORDER=0>
            <TR>
              <TD HEIGHT=20 colspan="4"><div align="center"><font color="#6699CC" size="7"><strong>
                <input name="bord2"  style="width: 200px;"  type="bord2" value="<% =replace(bord2,"<br>",vbCrLf,1,-1,1) %>">
              </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#6699CC"></FONT></div></TD>
            </TR>
            <TR>
              <TD WIDTH=426>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="bord3" cols="50" rows="3" id="bord3" ><% =replace(bord3,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#6699CC"></FONT></P>
              </TD>
              <TD WIDTH=1>
                  <P></P>
              </TD>
              <TD colspan="2" VALIGN=bottom>
                  <P align="left"><font color="#6699CC" size="7"><strong>
                    <textarea name="bord4" cols="50" rows="3" id="bord4" ><% =replace(bord4,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#6699CC"></FONT></P>
              </TD>
            </TR>
            <TR>
              <TD ALIGN=right VALIGN=top WIDTH=426>
                  <P align="left"><FONT SIZE="-2" FACE="Verdana" COLOR="#6699CC"><img src="images/fiskere4.jpg" width=190 height=190 border=0 align=bottom></FONT></P>
              </TD>
              <TD WIDTH=1>
                  <P></P>
              </TD>
              <TD valign="top" WIDTH=328>
                  <P align="left">
                    <IMG SRC="images/fiskere1.jpg" WIDTH=280 HEIGHT=142 ALIGN=bottom></P>
              </TD>
              <TD valign="top" WIDTH=163><table width="163" height="101" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="213"><img src="images/nyheder.jpg" width="162" height="23" border="0"></td>
                  <td width="1" height="23"></td>
                </tr>
                <tr>
                  <td height="54" valign="top"><TABLE WIDTH=148 HEIGHT=192 BORDER=0 align="center">
                      <TR>
                        <TD WIDTH=20 HEIGHT=105>
                          <P></P>
                        </TD>
                        <TD VALIGN=top WIDTH=118 HEIGHT=105>
                          <P><font color="#6699CC" size="7"><strong>
                            <textarea name="box1" cols="25" rows="5" id="box1" ><% =replace(box1,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                          </strong></font></P>
                        </TD>
                      </TR>
                      <TR>
                        <TD WIDTH=20 HEIGHT=38>
                          <P></P>
                        </TD>
                        <TD VALIGN=bottom WIDTH=118 HEIGHT=38>
                          <P><font color="#6699CC" size="7"><strong>
                            <textarea name="box2" cols="25" rows="2" id="box2" ><% =replace(box2,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                          </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#000000"></FONT></P>
                        </TD>
                      </TR>
                      <TR>
                        <TD WIDTH=20 HEIGHT=35>
                          <P></P>
                        </TD>
                        <TD VALIGN=bottom WIDTH=118 HEIGHT=35>
                          <P><font color="#6699CC" size="7"><strong>
                            <textarea name="box3" cols="25" rows="2" id="box3" ><% =replace(box3,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                          </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#6699CC"><B> </B></FONT></P>
                        </TD>
                      </TR>
                    </TABLE>
                  </td>
                </tr>
                <tr>
                  <td><img src="images/bund2.jpg" width="162" height="14" border="0"></td>
                  <td width="1" height="14"></td>
                </tr>
              </table>
                <P></P>
                <P></P></TD>
            </TR>
            <TR>
              <TD ALIGN=right WIDTH=426>
                  <P align="left"><font color="#6699CC" size="7"><strong>
                    <textarea name="bord5" cols="50" rows="3" id="bord5" ><% =replace(bord5,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font></P>
              </TD>
              <TD WIDTH=1>
                  <P></P>
              </TD>
              <TD colspan="2" VALIGN=bottom>
                  <P align="left"><font color="#6699CC" size="7"><strong>
                    <textarea name="bord6" cols="50" rows="3" id="bord6" ><% =replace(bord6,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#6699CC"></FONT></P>
              </TD>
            </TR>
            <TR>
              <TD ALIGN=right VALIGN=bottom WIDTH=426 HEIGHT=12>
                  <P align="left"><FONT SIZE="-2" FACE="Verdana" COLOR="#6699CC"><img src="images/fiskere5.jpg" width=331 height=191 border=0 align=bottom></FONT></P>
              </TD>
              <TD WIDTH=1 HEIGHT=12>
                  <P></P>
              </TD>
              <TD HEIGHT=12 colspan="2" VALIGN=top>
                  <P align="left">
                    <IMG SRC="images/fiskere2.jpg" WIDTH=195 HEIGHT=195 BORDER=0 ALIGN=bottom></P>
              </TD>
            </TR>
            <TR>
              <TD ALIGN=right VALIGN=bottom><div align="left"><font color="#6699CC" size="7"><strong>
                <textarea name="bord7" cols="50" rows="3" id="bord7" ><% =replace(bord7,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
              </strong></font></div></TD>
              <TD>&nbsp;</TD>
              <TD colspan="2"><div align="left"><b><font color="#6699CC" size="7"><strong>
                <textarea name="bord8" cols="50" rows="3" id="bord8" ><% =replace(bord8,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
              </strong></font></b></div></TD>
            </TR>
            <TR>
              <TD WIDTH=426 height="337" ALIGN=right VALIGN=top><P><font size="-2" face="Verdana" color="#6699CC"><b><img border="0" src="images/hygge.jpg" width="426" height="292" alt=""></b></font></P>
              </TD>
              <TD WIDTH=1>
                  <P></P>
              </TD>
              <TD colspan="2"><P><img border="0" src="images/fladfisk.jpg" width="418" height="297"></P>
                    <P><b></b></P>
              </TD>
            </TR>
        </TABLE>
        </P>
        <input name="submitButtonName" type="submit" value="Opdater">
</TD>
  </TR>
</TABLE>
</P>
</BODY>
</HTML>

<%
elseif mode="update" then
bord1 = Trim(Replace(request.form("bord1"),"'","`" ))
bord1 = replace(bord1, vbCrLF, "<br>")
bord2 = Trim(Replace(request.form("bord2"),"'","`" ))
bord2 = replace(bord2, vbCrLF, "<br>")
bord3 = Trim(Replace(request.form("bord3"),"'","`" ))
bord3 = replace(bord3, vbCrLF, "<br>")
bord4 = Trim(Replace(request.form("bord4"),"'","`" ))
bord4 = replace(bord4, vbCrLF, "<br>")
bord5 = Trim(Replace(request.form("bord5"),"'","`" ))
bord5 = replace(bord5, vbCrLF, "<br>")
bord6 = Trim(Replace(request.form("bord6"),"'","`" ))
bord6 = replace(bord6, vbCrLF, "<br>")
bord7 = Trim(Replace(request.form("bord7"),"'","`" ))
bord7 = replace(bord7, vbCrLF, "<br>")
bord8 = Trim(Replace(request.form("bord8"),"'","`" ))
bord8 = replace(bord8, vbCrLF, "<br>")
box1 = Trim(Replace(request.form("box1"),"'","`" ))
box1 = replace(box1, vbCrLF, "<br>")
box2 = Trim(Replace(request.form("box2"),"'","`" ))
box2 = replace(box2, vbCrLF, "<br>")
box3 = Trim(Replace(request.form("box3"),"'","`" ))
box3 = replace(box3, vbCrLF, "<br>")

SQL2 = "update indhold set [bord1] ='" & bord1 & "', bord2='" & bord2 & "', bord3='" & bord3 & "', bord4='" & bord4 & "', bord5='" & bord5 & "', bord6='" & bord6 & "', bord7='" & bord7 & "', bord8='" & bord8 & "', box1='" & box1 & "', box2='" & box2 & "', box3='" & box3 & "' where side = 1;"
rs = Conn.Execute(SQL2)
response.redirect("om_bord_admin.asp")

end if
%>
Avatar billede skyggen2000 Nybegynder
29. marts 2005 - 17:43 #4
Der er ingen "if" sætning. Du glemmer at tjekke om du skal opdatere eller ej.
Som fx.

if mode="show" then
elseif mode="update" then
end if
Avatar billede jr40 Nybegynder
29. marts 2005 - 18:02 #5
den skrev fejl i den sidste linje: end if
men har prøvet at slette den også tjekke siden ud,,, men så vil den slet ikke åbne siden.


bare sjovt fordi har andre sider som virker fint.
Avatar billede skyggen2000 Nybegynder
30. marts 2005 - 09:23 #6
Der er noget der ikke stemmer, i denne side der er forskellige fra dine andre.

Har du også bygget dem op med 

elseif mode="update" then

til sidst?

Hvis du fjerner denne sætningen og dens tilhørende end if, så bliver den kørt hver gang siden loades... Det må være i de tilfælde hvor brugeren har trykket opdater eller lign. du ønsker den skal opdatere noget i databasen omkring dine borde right?

Hvis du helt specifikt siger hvad du ønsker, kan jeg bedre hjælpe dig mod den rigtige løsning.
Avatar billede jr40 Nybegynder
30. marts 2005 - 17:22 #7
Du kan se den anden admin side som virker uden problemer:

<%

mode = request("mode")
dim conn, strconnect, sql, rs, omoverskrift, om1, om2, om3, om4, om5, om6, om7, box1, box2, box3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/cms.mdb")

set rs = server.createobject("ADODB.Recordset")
sql = "select * from indhold where side=1;"

rs.open sql, conn

while not rs.eof
omoverskrift = rs("omoverskrift")
om1 = rs("om1")
om2 = rs("om2")
om3 = rs("om3")
om4 = rs("om4")
om5 = rs("om5")
om6 = rs("om6")
om7 = rs("om7")
box1 = rs("box1")
box2 = rs("box2")
box3 = rs("box3")
rs.movenext
wend

if mode = "" then

rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<HTML>
<HEAD>
  <TITLE>wee</TITLE>
  <script type="text/javascript">
billede1 = new Image();
billede1.src = "images/fisk.gif";

billede2 = new Image();
billede2.src = "images/fisk1.gif";


function skiftbillede(img_name,img_src) {
document[img_name].src=img_src;
}

</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style/akstyle.css" rel="stylesheet" type="text/css">
</HEAD>

<BODY LINK="#6699CC" ALINK="#6699CC" VLINK="#6699CC">
<P><TABLE BORDER=0 WIDTH=970>  <form name='FormName' action='om_wee_admin.asp?mode=update' method='post'>
  <TR>
      <TD WIDTH=0 HEIGHT=90>
        <P></P>
      </TD>
      <TD ALIGN=center VALIGN=bottom WIDTH=218 HEIGHT=90>
        <P>
            <IMG SRC="images/mari24.gif" WIDTH=124 HEIGHT=47 BORDER=0 ALIGN=bottom>&nbsp;</P>
      </TD>
      <TD ALIGN=right VALIGN=bottom WIDTH=571 HEIGHT=90>
        <P>
            <font color="#6699CC" size="7"><strong>
               
                    <span class="alm_text">Her skriver du overkskriften:</span>
                    <input name="omoverskrift"  style="width: 200px;"  type="omoverskrift" value="<% =replace(omoverskrift,"<br>",vbCrLf,1,-1,1) %>">
            </strong></font></P>
    </TD>
      <TD WIDTH=296 HEIGHT=90>
        <P></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH=0 HEIGHT=12>
        <P></P>
      </TD>
      <TD ALIGN=center VALIGN=top WIDTH=218 HEIGHT=12>
        <P></P>
      </TD>
      <TD VALIGN=bottom WIDTH=571 HEIGHT=12>
        <P></P>
      </TD>
      <TD WIDTH=296 HEIGHT=12>
        <P></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH=0>
        <P></P>
      </TD>
    <TD VALIGN=top WIDTH=218><P>
        <div align="left">
          <table width="218" height="101" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="299"><img src="images/nyheder.jpg" width="207" height="23" border="0"></td>
              <td width="1" height="23"></td>
            </tr>
            <tr>
              <td height="54" valign="top"><table width=217 border=0 align="left" cellpadding=2 cellspacing=3>
                  <tr>
                    <td valign=bottom height=30><a href="default.asp" onMouseOver="skiftbillede('eksempel6','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel6','images/fisk.gif')"><img src="images/fisk.gif" alt="wee" name="eksempel6" border="0" align="middle" style="border:none;" /></a></td>
                    <td height=30><font size="-2" face="Verdana" color="#000000"><b>wee.</b></font></td>
                  </tr>
                  <tr>
                    <td valign=bottom width=40 height=30>
                      <p><a href="om_wee.asp" onMouseOver="skiftbillede('eksempel1','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel1','images/fisk.gif')"> <img src="images/fisk.gif" alt="wee" name="eksempel1" border="0" align="middle" style="border:none;" /></a> </p>
                    </td>
                    <td width=160 height=30>
                      <p><font size="-2" face="Verdana" color="#6699CC"><b>wee.</b></font></p>
                    </td>
                  </tr>
                  <tr>
                    <td valign=bottom width=40 height=30>
                      <p><a href="ture.asp" onMouseOver="skiftbillede('eksempel2','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel2','images/fisk.gif')"><img src="images/fisk.gif" alt="wee" name="eksempel2" border="0" align="middle" style="border:none;" /></a></p>
                    </td>
                    <td width=160 height=30>
                      <p><font size="-2" face="Verdana" color="#000000"><b>wee.</b></font></p>
                    </td>
                  </tr>
                  <tr>
                    <td valign=bottom width=40 height=30>
                      <p><a href="om_bord.asp" onMouseOver="skiftbillede('eksempel3','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel3','images/fisk.gif')"><img src="images/fisk.gif" alt="Ombord p&aring; wee" name="eksempel3" border="0" align="middle" style="border:none;" /></a></p>
                    </td>
                    <td width=160 height=30>
                      <p><font size="-2" face="Verdana" color="#000000"><b>wee.</b></font></p>
                    </td>
                  </tr>
                  <tr>
                    <td valign=bottom width=40 height=30> <a href="wee.htm"> </a><a href="kontakt.asp" onMouseOver="skiftbillede('eksempel4','images/fisk1.gif')" onMouseOut="skiftbillede('eksempel4','images/fisk.gif')"><img src="images/fisk.gif" alt="Skriv til -F" name="eksempel4" border="0" align="middle" style="border:none;" /></a></td>
                    <td valign=bottom width=160 height=30> <font size="-2" face="Verdana" color="#000000"><b>wee.</b></font></td>
                  </tr>
                </table>
              </td>
            </tr>
            <tr>
              <td><img src="images/bund2.jpg" width="213" height="14" border="0"></td>
              <td width="1" height="14"></td>
            </tr>
                    </table>
        </div></TD>
    <TD VALIGN=top WIDTH=571>
        <P><TABLE BORDER=0 width="571">
            <TR>
              <TD WIDTH=271 HEIGHT=20>
                  <P></P>
              </TD>
              <TD WIDTH=30 HEIGHT=20>
                  <P></P>
              </TD>
              <TD WIDTH=376 HEIGHT=20>
                  <P></P>
              </TD>
            </TR>
            <TR>
              <TD WIDTH=271>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="om1" cols="25" rows="2" id="om1" ><% =replace(om1,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#990000"></FONT></P>
              </TD>
              <TD WIDTH=30>
                  <P></P>
              </TD>
              <TD WIDTH=376>
                  <P></P>
              </TD>
            </TR>
            <TR>
              <TD VALIGN=bottom WIDTH=271 HEIGHT=127>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="om2" cols="45" rows="15" id="om2" ><% =replace(om2,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font></P>
              </TD>
              <TD WIDTH=30 HEIGHT=127>
                  <P></P>
              </TD>
              <TD ALIGN=right WIDTH=376 HEIGHT=127>
                  <P>
                    <img border="0" src="images/Mennesker2.jpg" width="369" height="164"></P>
              </TD>
            </TR>
            <TR>
              <TD WIDTH=271 HEIGHT=25>
                  <P></P>
              </TD>
              <TD WIDTH=30 HEIGHT=25>
                  <P></P>
              </TD>
              <TD VALIGN=top WIDTH=376 HEIGHT=25>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="om3" cols="25" rows="2" id="om3" ><% =replace(om3,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#990000"></FONT></P>
              </TD>
            </TR>
            <TR>
              <TD WIDTH=271 HEIGHT=12>
                  <P></P>
              </TD>
              <TD WIDTH=30 HEIGHT=12>
                  <P></P>
              </TD>
              <TD WIDTH=376 HEIGHT=12>
                  <P></P>
              </TD>
            </TR>
            <TR>
              <TD WIDTH=271 HEIGHT=89>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="om4" cols="45" rows="15" id="om4" ><% =replace(om4,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font></P>
              </TD>
              <TD WIDTH=30 HEIGHT=89>
                  <P></P>
              </TD>
              <TD WIDTH=376 HEIGHT=89>
                  <P>
                    <img border="0" src="images/MS-5-1.jpg" width="376" height="231"></P>
              </TD>
            </TR>
            <TR>
              <TD WIDTH=271 HEIGHT=12>
                  <P></P>
              </TD>
              <TD WIDTH=30 HEIGHT=12>
                  <P></P>
              </TD>
              <TD WIDTH=376 HEIGHT=12>
                  <font color="#990000" face="Verdana" style="font-weight: 700" size="1">&nbsp;
                </font><font color="#6699CC" size="7"><strong>
                    <textarea name="om5" cols="25" rows="2" id="om5" ><% =replace(om5,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                    </strong></font></TD>
            </TR>
            <TR>
              <TD VALIGN=bottom WIDTH=271 HEIGHT=127>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="om6" cols="45" rows="15" id="om6" ><% =replace(om6,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font></P>
              </TD>
              <TD WIDTH=30 HEIGHT=127>
                  <P></P>
              </TD>
              <TD ALIGN=right WIDTH=376 HEIGHT=127>
                  <P align="center"><img border="0" src="images/Skoletogt.jpg" width="352" height="256"></P>
                    <P align="left"><b>
                    <font color="#6699CC" size="7"><strong>
                    <textarea name="om7" cols="25" rows="2" id="om7" ><% =replace(om7,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                    </strong></font></b></P>
                    <P>&nbsp;</P>
              </TD>
            </TR>
        </TABLE>
        </P>
        <input name="submitButtonName" type="submit" value="Opdater">
</TD>
      <TD valign="top" WIDTH=296>
        <table width="163" height="101" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="213"><img src="images/nyheder.jpg" width="162" height="23" border="0"></td>
            <td width="1" height="23"></td>
          </tr>
          <tr>
            <td height="54" valign="top"><TABLE WIDTH=148 HEIGHT=192 BORDER=0 align="center">
              <TR>
                <TD WIDTH=20 HEIGHT=105>
                  <P></P>
                </TD>
                <TD VALIGN=top WIDTH=118 HEIGHT=105>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="box1" cols="25" rows="5" id="box1" ><% =replace(box1,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font></P>
                </TD>
              </TR>
              <TR>
                <TD WIDTH=20 HEIGHT=38>
                  <P></P>
                </TD>
                <TD VALIGN=bottom WIDTH=118 HEIGHT=38>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="box2" cols="25" rows="2" id="box2" ><% =replace(box2,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#000000"></FONT></P>
                </TD>
              </TR>
              <TR>
                <TD WIDTH=20 HEIGHT=35>
                  <P></P>
                </TD>
                <TD VALIGN=bottom WIDTH=118 HEIGHT=35>
                  <P><font color="#6699CC" size="7"><strong>
                    <textarea name="box3" cols="25" rows="2" id="box3" ><% =replace(box3,"<br>",vbCrLf,1,-1,1) %>
                    </textarea>
                  </strong></font><FONT SIZE="-2" FACE="Verdana" COLOR="#6699CC"><B>
                    </B></FONT></P>
                </TD>
              </TR>
            </TABLE></td>
          </tr>
          <tr>
            <td><img src="images/bund2.jpg" width="162" height="14" border="0"></td>
            <td width="1" height="14"></td>
          </tr>
        </table>
        <P></P>
    </TD>
  </TR>
</TABLE>
</P>
</BODY>
</HTML>
<%
elseif mode="update" then
omoverskrift = Trim(Replace(request.form("omoverskrift"),"'","`" ))
omoverskrift = replace(omoverskrift, vbCrLF, "<br>")
om1 = Trim(Replace(request.form("om1"),"'","`" ))
om1 = replace(om1, vbCrLF, "<br>")
om2 = Trim(Replace(request.form("om2"),"'","`" ))
om2 = replace(om2, vbCrLF, "<br>")
om3 = Trim(Replace(request.form("om3"),"'","`" ))
om3 = replace(om3, vbCrLF, "<br>")
om4 = Trim(Replace(request.form("om4"),"'","`" ))
om4 = replace(om4, vbCrLF, "<br>")
om5 = Trim(Replace(request.form("om5"),"'","`" ))
om5 = replace(om5, vbCrLF, "<br>")
om6 = Trim(Replace(request.form("om6"),"'","`" ))
om6 = replace(om6, vbCrLF, "<br>")
om7 = Trim(Replace(request.form("om7"),"'","`" ))
om7 = replace(om7, vbCrLF, "<br>")
box1 = Trim(Replace(request.form("box1"),"'","`" ))
box1 = replace(box1, vbCrLF, "<br>")
box2 = Trim(Replace(request.form("box2"),"'","`" ))
box2 = replace(box2, vbCrLF, "<br>")
box3 = Trim(Replace(request.form("box3"),"'","`" ))
box3 = replace(box3, vbCrLF, "<br>")

SQL2 = "update indhold set [omoverskrift] ='" & omoverskrift & "', om1='" & om1 & "', om2='" & om2 & "', om3='" & om3 & "', om4='" & om4 & "', om5='" & om5 & "', om6='" & om6 & "', om7='" & om7 & "', box1='" & box1 & "', box2='" & box2 & "', box3='" & box3 & "' where side = 1;"
rs = Conn.Execute(SQL2)
response.redirect("om_wee_admin.asp")

end if
%>
Avatar billede skyggen2000 Nybegynder
31. marts 2005 - 09:05 #8
Det kan jeg godt forstå for der er denne linie til forskel der er nødvendig for at starte din if else sætning:
if mode = "" then

plus du har heller ikke denne med:
mode = request("mode")

Dem skal du også have med i den side der ikke funker. Og så skal du huske at fyre "mode" som parameter i din URL request fx. url?mode=update
Avatar billede jr40 Nybegynder
03. april 2005 - 11:25 #9
Yes nu funker det... mange tak.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »