<% id=ld_checknum(request("id"),1,"ID") set rs=server.createobject("adodb.recordset") sql="select * from koba_products where id="&id rs.open sql,conn,1,1 title=rs("title_jp") code=rs("code") pic=rs("pic") ddate=rs("ddate") hits=rs("hits") price=rs("price") memo=rs("memo_jp") Artist=rs("Artist_jp") content=rs("content_jp") ProductsClass=rs("ProductsClass") keywords=rs("keywords") rs.close set rs=nothing conn.execute("update koba_products set hits=hits+1 where id="&id) classname=conn.execute("select [name_jp] from koba_ProductsClass where id="&ProductsClass)(0) if keywords<>"" then web_keyword=keywords end if Objrs=Conn.Execute("Select Max(id) From koba_products Where id < "& id & " and ProductsClass=" & ProductsClass )(0) Objrs1=Conn.Execute("Select Min(id) From koba_products Where id > "& id & " and ProductsClass=" & ProductsClass )(0) If Not Objrs="" Then MaxID=Objrs Else MaxID=0 End If If Not Objrs1="" Then MinID=Objrs1 Else MinID=0 End If if request.Form("addly")="OK" then productid=int(request.Form("productid")) gname=request("gname") gtel=request("gtel") gemail=request("gemail") content=request("content") Fy=ld_check(trim(request.form("adminy")),4,4,"入力して下さい") ld_ycode=trim(session("GetCode")) if Trim(ld_ycode)=Fy then set rs=server.createobject("adodb.recordset") sql="select * from koba_guestbook" rs.open sql,conn,1,3 rs.addnew rs("name")=gname rs("tel")=gtel rs("email")=gemail rs("content")=content rs("GuestbookClass")=1 rs("ip")=GetIP rs("productid")=productid rs("memberid")=0 rs("flag")=0 rs.update rs.close set rs=nothing response.write "" & Chr(13) Response.End else call LD_error("Incorrect verification code",0) end if end if%> <%=web_title%>