Når jeg skal opdater nogle specifikationer på min hjemmeside, så kan denne
fejl komme frem:
Error:
A Runtime Erroe has occurred.
Do you wish to Debug?
Linie: 0
Error: Invalid syntax
Når fejlen kommer, kan jeg fjerne nogle af specifikationerne og så opdater
uden problemer.
Jeg kan godt gå direkte ind i MS SQL databasen og opdater alle de
oplysninger jeg
vil der.
koden ser sådan her ud:
><% option explicit %>
><!-- #INCLUDE file="../../shop.asp" -->
><%
>dim Grp, Prd, result
>
>set Grp = new ProductGroup
>set Prd = new Product
>
>if Request.QueryString("mode") = "update" then
> result = Prd.SetSpecs(Request.QueryString)
> if result = true then
> Response.Redirect("default.asp?list=products&groupID=" &
Request.QueryString("group"))
> else
> Response.Redirect("default.asp?form=error")
> end if
>end if
>
>result = Prd.OpenRows(Request.QueryString)
>Grp.OpenSpecs(Request.QueryString)
>
>%>
>
> <TABLE cellpadding=0 cellspacing=0 border=0 align=center width=400>
> <FORM action="default.asp" method="GET" name=form1>
> <INPUT type=hidden name=form value="product_specs">
> <INPUT type=hidden name=mode value="update">
> <INPUT type=hidden name=ProductID value="<% =
Request.QueryString("productID") %>">
> <INPUT type=hidden name=group value="<% =
Request.QueryString("groupID") %>">
> <TR>
> <TD class=list colspan=3><b>Rediger: <%
= Prd.Rows("Name") %><HR noshade=true size=1><BR></TD>
> </TR>
>
><% while not Grp.Specs.Eof
>
>
>%>
>
> <TR>
> <TD class=list><% = Grp.Specs("FriendlyName") %></TD>
> </TD>
> <TD>
> <%
>
> select case (Grp.Specs("type"))
> case "BIT" %>
> <SELECT name=fld_spec<% = Grp.Specs("SpecID") %> class=form
style="width: 45">
> <OPTION value="0">nej</OPTION>
> <OPTION value="1" <% if Prd.GetSpec(Prd.Rows("ProductGroup"),
Prd.Rows("ProductID"), Grp.Specs("SpecID")) = true then
Response.Write("selected") %>>ja</OPTION>
> </SELECT> <%
> case "NVARCHAR" %>
> <INPUT type=text name=fld_spec<% = Grp.Specs("SpecID") %> class=form
style="width: 150" value="<% = Prd.GetSpec(Prd.Rows("ProductGroup"),
Prd.Rows("ProductID"), Grp.Specs("SpecID")) %>" maxlength=4000><%
> case "INTEGER" %>
> <INPUT type=text name=fld_spec<% = Grp.Specs("SpecID") %> class=form
style="width: 45" value="<% = Prd.GetSpec(Prd.Rows("ProductGroup"),
Prd.Rows("ProductID"), Grp.Specs("SpecID")) %>" maxlength=4><%
> end select
>
> %>
> </TD>
> <TD class=list>
> <%
>
> select case (Grp.Specs("type"))
> case "INTEGER"
> Response.Write("(heltal)")
> case "BIT"
> Response.Write("")
> case "NVARCHAR"
> Response.Write("(tekst)")
> case else
> Response.write("(undef)")
> end select
>
> %>
>
> </TR>
><% Grp.Specs.MoveNext
> wend
>%>
> </TR>
> <TR>
> <TD class=list colspan=3><BR><HR noshade=true size=1></TD>
> </TR>
> <TR>
> <TD class=list colspan=3 align=right>
> [ <A href="default.asp?list=products&groupID=<% =
Request.QueryString("GroupID") %>">annuller</A> | <A href="javascript: void
document.form1.submit()">opdater</A> ]
> </TD>
> </TR>
></FORM>
></TABLE>
><BR><BR>
--
Med venlig hilsen/Best regards
Michael Petersen
-------------------------------------------------
www.hifi-import.dk
Telefon 48 39 22 66