Can't use Frontpage?

Results 1 to 4 of 4

Thread: Can't use Frontpage?

  1. #1
    Chad Franklin Guest

    Default Can't use Frontpage?

    Everytime I try to open this page in frontpage editor version 3.0.2.926 I get an error message, "This program has preformed an illegal operation and will be terminated"<BR>Why can&#039t I edit this code in the editor?<BR><BR>&#060;%@ Language=VBScript &#037;&#062;<BR>&#060;% Option Explicit &#037;&#062;<BR>&#060;!-- #include file="db.inc" --><BR>&#060;%<BR>Dim prodid<BR>Dim quantity<BR>Dim arrCart<BR>Dim scartItem<BR>prodid = Request.Form("fproductid")<BR>quantity = Request.Form("fquantity")<BR>arrCart = Session("MyCart")<BR>scartItem = Session("cartItem")<BR><BR>If scartItem = "" Then<BR> Response.Redirect "error.asp?msg=" & Server.URLEncode ("We noticed you do not accept cookies. Please enable cookies to shop.")<BR>End If<BR><BR>If prodid &#060;> "" Then<BR> If scartItem &#060; maxCartItems Then<BR> scartItem = scartItem + 1<BR> End If<BR> Session("cartItem") = scartItem<BR> Dim rsItem<BR> Set rsItem = Server.CreateObject("ADODB.Recordset")<BR> rsItem.Open "products", dbc, adOpenForwardOnly,adLockReadOnly,adCmdTable<BR> rsItem.Filter = "catalogID = " & prodid<BR> If Not rsItem.EOF Then<BR> arrCart(cProductid,scartItem) = rsItem("catalogID")<BR> arrCart(cProductCode,scartItem) = rsItem("ccode")<BR> arrCart(cProductname,scartItem) = rsItem("cname")<BR> arrCart(cQuantity,scartItem) = CInt(quantity)<BR> arrCart(cUnitPrice,scartItem) = rsItem("cprice")<BR> Session("MyCart") = arrCart<BR> rsItem.Close<BR> dbc.Close<BR> End If<BR>Else<BR><BR>Dim strAction<BR>strAction = UCase(Left(Request.Form("action"),5))<BR><BR>Selec t Case strAction<BR><BR>Case "CONTI"<BR> Response.Redirect "Default.asp"<BR> <BR>Case "RECAL"<BR><BR> For i = 1 To scartItem<BR> Dim tquantity<BR> tquantity = Request.Form("Quantity" & Cstr(i))<BR> arrCart(cQuantity,i) = CInt(tquantity)<BR> Next<BR> <BR> For i = 1 to scartItem<BR> Dim confirm<BR> confirm = Request.Form("selected" & CStr(i))<BR> If confirm &#060;> "yes" Then<BR> scartItem = scartItem - 1<BR> Dim x<BR> For x = 1 to UBound(arrCart,1)<BR> arrCart(x,i) = ""<BR> Next<BR> Dim n<BR> n = i<BR> while n &#060; UBound(arrCart,2)<BR> For x = 1 to UBound(arrCart,1)<BR> arrCart(x,n) = arrCart(x,n + 1)<BR> arrCart(x,n + 1) = ""<BR> Next<BR> n = n + 1<BR> wend <BR> end If<BR> Next<BR> Session("cartItem") = scartItem<BR> Session("MyCart") = arrCart<BR><BR><BR>Case "PROCE"<BR> Response.Redirect "customer.asp"<BR><BR>End Select<BR>End If<BR><BR><BR>&#037;&#062;<BR><BR>&#060;HTML><BR>& #060;HEAD><BR>&#060;title>Shopping cart items&#060;/title><BR><BR>&#060;/HEAD><BR>&#060;BODY><BR>&#060;h3>&#060;font face="Arial">Shopping Cart Items:&#060;/font>&#060;/h3><BR>&#060;FORM action="addprod.asp" method="POST"><BR>&#060;TABLE border=0 cellPadding=3 cellSpacing=2 width=100&#037;&#062;<BR> &#060;TR bgColor=darkblue><BR> &#060;TD>&#060;FONT color=white face="" <BR> style="BACKGROUND-COLOR: #00008b">Product <BR> code&#060;/FONT>&#060;/TD><BR> &#060;TD>&#060;FONT color=white face="" <BR> style="BACKGROUND-COLOR: #00008b">Product name&#060;/FONT>&#060;/TD><BR> &#060;TD>&#060;FONT color=white face="" <BR> style="BACKGROUND-COLOR: #00008b">Quantity&#060;/FONT>&#060;/TD><BR> &#060;TD>&#060;FONT color=white face="" style="BACKGROUND-COLOR: #00008b">Unit <BR> Price&#060;/FONT>&#060;/TD><BR> &#060;TD>&#060;FONT color=white face="" <BR> style="BACKGROUND-COLOR: #00008b">Total&#060;/FONT>&#060;/TD>&#060;/TR><BR>&#060;%<BR>Dim isubtotal, i<BR>isubtotal = 0<BR>For i = 1 to scartItem<BR>&#037;&#062;<BR> &#060;TR bgColor=navajowhite><BR> &#060;TD>&#060;INPUT name=selected&#060;%= Cstr(i)&#037;&#062; type=checkbox value="yes" checked>&#060;%= arrCart(cProductCode,i) &#037;&#062;&#060;/TD><BR> &#060;TD>&#060;%= arrCart(cProductname,i) &#037;&#062;&#060;/TD><BR> &#060;TD>&#060;INPUT type="text" name=quantity&#060;%= CStr(i) &#037;&#062; value="&#060;%= arrCart(cQuantity,i) &#037;&#062;">&#060;/TD><BR> &#060;TD>&#060;%= FormatCurrency(arrCart(cUnitPrice,i),2) &#037;&#062;&#060;/TD><BR> &#060;TD>&#060;%= FormatCurrency(arrCart(cUnitPrice,i) * arrCart(cQuantity,i),2) &#037;&#062;&#060;/TD>&#060;/TR><BR>&#060;%<BR> isubtotal = isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i))<BR> Next<BR>&#037;&#062; <BR> &#060;TR><BR> &#060;TD>&#060;/TD><BR> &#060;TD>&#060;/TD><BR> &#060;TD>&#060;/TD><BR> &#060;TD bgColor=darkblue>&#060;FONT color=white face="" style="BACKGROUND-COLOR: #00008b">Total&#060;/FONT>&#060;/TD><BR> &#060;TD bgColor=lightgoldenrodyellow>&#060;%= FormatCurrency(isubtotal,2) &#037;&#062;&#060;/TD>&#060;/TR>&#060;/TABLE>&#060;/P><BR>&#060;P>&#060;INPUT name="action" type=submit value="Continue shopping"> <BR>&#060;INPUT name=action type=submit value="Recalculate"> <BR><BR>&#060;INPUT name=action type=submit value="Proceed to check out"><BR><BR><BR>&#060;/P>&#060;/FORM><BR><BR><BR>&#060;/BODY><BR>&#060;/HTML>

  2. #2
    Join Date
    Dec 1969
    Posts
    2,849

    Default RE: Can't use Frontpage?

    Ugh. I&#039d try uninstalling Front Page, then reinstalling it.

  3. #3
    Chad Franklin Guest

    Default RE: Can't use Frontpage?

    Every other page that I created is fine. Its just this one particular page that FrontPage doesn’t like.

  4. #4
    Join Date
    Dec 1969
    Posts
    36

    Default RE: Can't use Frontpage?

    You got lucky! even if you were able to open this page in the editors html view you would have had a very frustrating experiance - the editor likes to reformat the text (every time you save)and that will drive you crazy - don&#039t even try it.<BR>It&#039s better to use notepad or you can get frontpage 2000 (they got rid of this problem)<BR>Ariel


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •