ASP/VB If ElseIf End If

Does anyone know how to re-write this so that it actually
works? Can't seem
to find anythingthat gives me a solid enough clue even if I
simplify it.
Thanks,
Craig
SELECT *
FROM notice
IF jobtype = 'MMColParam' AND onoff=-1 AND ndate >= date()
THEN
ORDER BY ndate ASC
ELSEIF 'MMColParam'='old' AND onoff=-1 AND ndate <= date()
THEN
ORDER BY ndate DESC
END IF

Probably because queries are part of the database and as such
are written in
SQL, not VBScript.
Look up the CASE statement. In an SQL resource, not a VB
site.
"Craig" <[email protected]> wrote in message
news:f49ei8$21p$[email protected]..
> Does anyone know how to re-write this so that it
actually works? Can't
> seem to find anythingthat gives me a solid enough clue
even if I simplify
> it.
>
> Thanks,
> Craig
>
> SELECT *
> FROM notice
> IF jobtype = 'MMColParam' AND onoff=-1 AND ndate >=
date() THEN
> ORDER BY ndate ASC
> ELSEIF 'MMColParam'='old' AND onoff=-1 AND ndate <=
date() THEN
> ORDER BY ndate DESC
> END IF
>

Similar Messages

If - elseif end if condition

Hi i have a situation where I have display a field in my rtf like this
if (inv_trx_type feild)= 'Regular' then (REGULAR_DESCRIPTION feild)
else if (inv_trx_type feild)= 'Training' then Training_DESCRIPTION feild)
else if (inv_trx_type feild)= 'Contract' then contract_DESCRIPTION feild)
else DESCRIPTION feild
end if.
I am kind of new to XML coding. Can any body please help me out.

Please go through XMLP User Guide page 2/57 Conditional Formatting.

Convert ASP to PHP

Any recommendations to convert this asp to php/mysql?

Yes, learn PHP and re-write the code.
Paul Davis
http://www.kaosweaver.com/
Visit us for dozens of useful Dreamweaver Extensions.
http://www.communitymx.com/
Partner at Community MX - Extend your knowledge
jsteinmann wrote:
> Any recommendations to convert this asp to php/mysql?
>
> <%@LANGUAGE="VBSCRIPT"%>
> 
> <%
> if request.form <> "" then
>
> dim username, password, DateExpire
> username = request.form ("username")
> password = request.form ("password")
>
> set rs = Server.CreateObject("ADODB.Recordset")
> rs.ActiveConnection = MM_cnConn_STRING
> rs.Source = "SELECT * FROM members WHERE username = '" +
Replace(username,
> "'", "''") + "'" & "AND Password = '" +
Replace(password, "'", "''") + "'"
> rs.CursorType = 0
> rs.CursorLocation = 2
> rs.LockType = 3
> rs.Open()
> rs_numRows = 0
>
> session("username") = request.form("username")
> session("password") = request.form("password")
>
> if rs.eof or rs.bof then
> response.redirect "logon2.asp"
> else
>
> expire = rs("MemberExpire")
> ip = rs("ip")
> ip2 = rs("ip2")
> ccbillcustomer = rs("ccbillcustomer")
> session("id") = rs("id")
> session("firstName") = rs("firstName")
> session("LastName") = rs("LastName")
> session("MemberID") = rs("username")
> session("memberStatus") = rs("memberStatus")
>
> end if
>
> rs("LastLogin") = date()
> rs("ip2") = Request.ServerVariables("REMOTE_HOST")
> rs.Update
>
> if username = "" THEN
> response.redirect "join.asp"
> elseif session("firstname") <> "" and
session("lastName") <> "" and
> session("memberStatus") = "suspended" THEN
> response.redirect "account_update.asp"
> elseif session("firstname") <> "" and
session("lastName") <> "" and expire <
> date() THEN
> response.redirect "join_renew.asp"
> elseif session("firstname") <> "" and
session("lastName") <> "" and expire =>
> date() THEN
> response.redirect "members/index.asp"
>
> else
> response.redirect "login.asp?err=true"
>
> end if
> end if
> %>
> <%
> rs.Close()
> Set rs = Nothing
> %>
>

Writing binary data to ASP file from applet through URLConnection

Hi Everybody,
I am facing a proble with HttpURLConnection.I want to write some binary data from applet to an ASP file.The other end ASP file read this binary data and process , Here problem is I have opened URLConnection to the page and Created OutputStream and writing byte by Write() method But other end we are not getting bytes...we are not getting error too at java side..can any body help me..do we need to set any property to URLConnection...here I am giving sample code...
OutputStream os;
URL uConnect2;
HttpURLConnection hucConnect2;
uConnect2= new URL("http://webserver/vnc/sendtoserver.asp?"); hucConnect2=(HttpURLConnection)uConnect2.openConnection();
hucConnect2.setDoOutput(true);
hucConnect2.setRequestMethod("POST")
os=new DataOutputStream(hucConnect2.getOutputStream());
os.writeBytes("Hello");
Thanks in Advance
Madhav

Do you remember to flush() and close() the stream?

Help with asp code

Helleo Everyone
I have been given a website to ammend and although i am not new to dreamweaver and using asp within dremweaver i sometimes struggle dealing with stuff that may have not been created with the tools i am used to.
I have a page that displays information relating to different clocks the page gets its info ftom an access table called tblmovements, in that table is column Called KitID and another column called details that has link information that would go to another page.
Back to the main page all that i need to happen is when the user scrolls down to find the clock that they want i need them to be able to click on more details and for that to link to the page that is referenced in the details column in the table.
But i am not sure on how to do this.
The column kitID is a unique column.
Can anyone assist
Thanks
John

Hi Thanks for the response
Below is the page that shows the information, then where it says details that would then link to the appropriate page.
I did do a link using dreamweaver recordset to the column that has the link in it but every details bit went to the same page, so i understand what you are saying about identifying via the ID but thats the bit i am unsure of.
<%@LANGUAGE="VBSCRIPT"%>
 <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_dbConn_STRING Recordset1_cmd.CommandText = "SELECT * FROM tblMovements"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%
Dim objRS
Set objRS = Server.CreateObject ("ADODB.Recordset") strSQL = "SELECT * FROM tblMovements ORDER BY KitID ASC"
objRS.Open strSQL, MM_dbConn_STRING%>
<title>Oakside Classic Clocks | Clock Makers - Kit Gallery</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <meta name="description" content="Oakside Classic Clocks' Gallery of clock makers Kieninger 'movement, dial, pendulum and accessories' kits." /> <style type="text/css">

</style>
</head>
<body id="gallery">
<table width="100%" height="56" border="0" cellpadding="0" cellspacing="0">
<tr>
    <td background="imgs/banner.gif"><img src="imgs/banner_l.gif" width="236" height="56" /></td>
    <td width="12"><img src="imgs/banner_r.gif" width="12" height="56" /></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td bgcolor="#000066"><img src="imgs/slogan.gif" width="485" height="24" /></td>
    </tr>
</table>

<div id="content">
<h1 class="strapline">Kieninger Clock 'Movement, Dial & Pendulum' Sets - For those who insist on the Best! </h1>
<h2 align="left" class="strapline">Welcome to Oakside's 'Clock Makers' Gallery - On this page Frank has assembled a large selection of comprehensive clock makers sets to suit all styles of clock cabinets - each Set contains a Kieninger mechanical Clock Movement and a Dial and where appropriate, a Pendulum, the Weight Shells & Fillings, plus all of the Accessories required to get your clock running. We believe that Oakside now stock the largest range of Kieninger Movements and Accessories in Europe! </h2>
<h2 align="left" class="style14"> </h2>
<h2 align="left" class="strapline">Each of Oakside's Clock Makers Sets include every thing you will need to get your clock running, including a Kieninger Mechanical Clock Movement, a Dial, a Pendulum, polished brass weight shells & fillings, the cable pulleys, the gongs, winding key and the fixings. We also include a drawing showing the primary 'movement, dial and pendulum' accommodation dimensions and a template for positioning the mounting holes required to fit these items into your clock. On the 'Spares & Accessories' page you will find special brass rebate hinges, mortise locks, escutcheons, keys and brass screws and adjustable cabinet feet for leveling your clock. You may collect your pre-ordered/pre-paid kit and save the postage.</h2>
<h2 class="style9"> </h2>
<h2 align="justify" class="strapline">We also stock a huge range of <a href="kit_spares_accessories.asp">replacement parts</a> for Kieninger movements. </h2><h2 align="left" class="strapline">If you require a replacement Kieninger movement without accessories please <a href="movement_gallery.asp">click here</a>. </h2>
   <h2 class="style9"> </h2>
   <h3 class="style6"> You are invited to phone Frank to discuss your project prior to ordering a kit. If you are designing your own clock or are intending to modify an existing design, we suggest that you pre-order your Movement set with a deposit of £25. We will then send you the Kieninger installation drawing so that you can ensure that all parts will fit and operate without later cabinet alterations.</h3>
   <h3 align="justify" class="style6">Please note, when you purchase your mechanical clock parts from Oakside, you are dealing with a dedicated Longcase Clock Designer & Maker, not just a shop! We would happily examine you clock drawings to ensure that your design will be able to accommodate the Kieninger movement of your choice; we will also provide telephone assistance when you are installing the mechanicals and commissioning your clock - our expertise will ensure that your new clock performs perfectly!</h3>
   <h3 class="style6">Thinking about building you first Grandfather Clock - We suggest that you visit the web site of <a href="http://www.van-vliet.org/dempseywoodworking/grandfatherclock.shtml">Dempsey Woodworking</a> in Canada. Frank has coordinated with   the sites owner who has prepared detailed construction plans for a longcase clock, in the style of our Winchester Grandfather clock. Please note that by modifying the depth dimensions on the plan, you can build this clock to accept any of our Kieninger 116cm movements. The web site provides an illustrated 'Step by Step' guide showing each of the constructional stages and you can down-load a free copy of the plans.</h3>
   <h5> For Grandfather Clocks around 80 inches high and taller we suggest a 116cm movement with a 280mm width dial.</h5>
    <h5> For Grandmother Clocks between 60 & 70 inches tall consider a 100 or 93cm pendulum Movement with a 250mm width dial. </h5>
    <h5>For Granddaughter clocks we suggest a 93 or 80CM pendulum Movement and a 200mm width dial. </h5>
    <h5>For Laterndluhr Style, Large Wall Regulators with 116cm 'Seconds pendulums, consider Kits 24, 25, 26, 27 28 and 29. </h5>
    <h5>For Medium Height Longcase Wall clocks consider the 65, 80 and 93cm Pendulum Movements.</h5>
    <h5>For Smaller longcase Wall Clocks consider Kits 08, 09 and 09A. </h5>
    <h5>Shaker Wall clocks require a movement of shallow depth and are usually without chimes - Frank suggests Kit 09 .</h5>
    <h5>For Small Mantle Clocks consider Kits 01 and 02. </h5>
    <h5>For Large Mantle or Bracket Clocks, consider Kits 04, 05, 06 and 07.. </h5>
    <hr /><hr />
    <div class="clock">
      <p>
        <%
Do While Not objRS.EOF
' Replace character retuns, ' and " characters
    strKitDescriptionShort = objRS("KitDescriptionShort")
    strKitDescriptionShort = Replace(strKitDescriptionShort, vbCRLF & vbCRLF, "</dd><dd>")
    strKitDescriptionShort = Replace(strKitDescriptionShort, chr(34), """)
    strKitDescriptionShort = Replace(strKitDescriptionShort, chr(39), "'")
      strImgSrc = "imgs/clocks" & objRS("imgKitCatalogue") %>
      <dl>
        <img src="<%="imgs/clocks/movement_images/" & objRS("imgKitCatalogue")%>" alt="<%=objRS("imgKitCatalogueAltText")%>" hspace="10" vspace="10" class="img-gallery" />
        <dt><%=objRS("KitID")%> featuring the Kieninger
          <%=objRS("MovementName")%> </dt>
         <dd class="strapline"><%=objRS("Strapline")%></dd>
        <dd><%=strKitDescriptionShort%></dd>
<h6 align="center" class="strapline">Price including UK & Ireland delivery £<%=objRS("KitCostStandard")%></h6>
<h6 align="center" class="style3"> Please note that we ship to Canada, the USA, Australia & New Zealand and you get UK Tax Free Prices. </h6>
<dd>
      <h3 class="strapline"> You can view the dials etc available for this kit by <a>clicking here.</a>Details</h3>
</dd>
<dt class="strapline">Click to view the </span><%=objRS("KitID")%> <a href="kit_options.asp?KitID=<%=objRS("KitID")%>"> Options & Prices</a> page. </dt>
</dl>
      <%
objRS.MoveNext
Loop
%>
</div>
 </div>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

.asp pictures won't display on Safari?

Hi, I cannot get my G4 ibook with Safari (up to date) to display any picture on a website that has .asp as it's ending. My G4 powerbook safari will display them fine on the same websites? I can't figure out the difference or how to get the ibook with safari to display them? The pictures are nothing fancy, just images of computer parts on a website. Why will my powerbook display them and not the ibook? They are both running 10.3.9 with the latest safari updates? Any help would be appreciated!
Thanks,
Tom

This is probably being caused by a bad system upgrade, please try to apply the Mac OS X 10.3.9 Combo Updater, available here:
http://www.apple.com/support/downloads/macosxcombinedupdate1039.html

Developer Toolbox - Integrate (ASP) CAPTCHA

Hi there,
I would like to know how to integrate (ASP) CAPTCHA into
forms created using the developer toolbox. I use webwiz CAPTCHA and
this works well, but the processing page must be different from the
form page. The toolbox generated forms look pretty complicated and
I would like to know if anyone has successfully done this - or
knows how to go about achieving this.
I hope you can help
Regards
Scott

I will give an example for a forgot password page..
1. Insert these strings at the top of your forgot password
page

<%If Request.Form("capcontrol")="1" AND
blnCAPTCHAcodeCorrect = false Then
Response.Redirect("forgotpassword.asp?cap=0")
End If
%>
2. Add captcha to your form as usual.
3. Insert a new hidden field to your form as below
<input name="capcontrol" type="hidden" value="1" />
it's a shame they don't have a captcha option for asp..
Mehmet

Set Maximum number of LOG IN failures

I have password protected pages and would like to find a way
to limit the number of failed login attempts by a user. Is there
code to use. I am using DW 8 in ASP and the 'LOG IN USER' server
behavior. I am recording the 'REMOTE_ADDR' server variable and the
time-date of the login. Can this help i would like to block a IP
address for a set time if more than 3 log in attempts fail. Goto
http://www.gohbcc.com/CallCenter/LOGIN.asp
username; admin
password; 1234
Thanks MikeL7

Have your login form send users to a second script page....
<form name="form1" method="post"
action="secondpage.asp">
... that compares results against the database and adds
criteria based on the failed response, and redirecting users
appropriately.
rs("LastLogin") = date()
rs("ip") = Request.ServerVariables("REMOTE_HOST")
rs("loginstatus") = "blocked"
rs.Update
You can update fields into that users recordset when they
login. Add fields into the DB table as needed (above is just an
example of criteria you may wish to capture)
Add the redirects based on your recordset queries
if ip = "" THEN
response.redirect "whereever they are going.asp"
elseif ip = "duplicate ip address" THEN
response.redirect "failed logins .asp"
else
response.redirect "login.asp?err=true"
end if
You can get as fancy or simple as you want. for example, you
could have multiple criteria for each response redirect. You just
have to make sure you define the variables...
ip = rs("ip")
or
session("name") = rs("name")
etc.
Make sense? Ditch the premade stuff that dreamweaver uses and
create your own login scripts.

Recordset order by dropdown menu

Hi all....
I have a results page displaying products based on three different redordsets depending on how the user searches. manufacturer, category or keyword search.
On the results page i also want a dropdown menu with options for displaying the results by price lowest, price highest, manufacturer.
has anyone done this? and how?
Thanks
Andy
PS I'm using Dreamweaver 8.2 and classic asp

Thanks so much for your time and help guys
Here is a live page with a typical search from the category navigation menu
http://www.test4less.co.uk/results3.asp?menuselect=e&CategoryID=28
Here is the page code
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<%
Set objCart=new Cart
%>

<% Session("sortby")= Request("sortedby")%>
<%
Dim orderby
If Session("sortby") = "pricelow" Then
orderby = "products.price ASC"
ElseIf Session("sortby") = "pricehigh" Then
orderby = "products.price DESC"
ElseIf Session("sortby") = "manuaz" Then
orderby = "products.manufacturerID ASC"
Elseif sortby="" Then
orderby = "Products.Product, Products.Price DESC"
End If
%>
<%
Dim RSResults__MMColParam
RSResults__MMColParam = "0"
Dim selectstat_MMColParam
If (Request.QueryString("CategoryID") <> "") Then
RSResults__MMColParam = Request.QueryString("CategoryID")
selectstat="SELECT Products.*, Categories.Category FROM Categories INNER JOIN Products ON Categories.CategoryID = Products.CategoryID WHERE Categories.CategoryID = " + Replace(RSResults__MMColParam, "'", "''") + " ORDER BY "
Elseif (Request("ManufacturerID") <> "") Then
RSResults__MMColParam = Request("ManufacturerID")
selectstat="SELECT Products.*, Categories.Category, Manufacturers.Manufacturer FROM (Products INNER JOIN Categories ON Products.CategoryID = Categories.CategoryID) INNER JOIN Manufacturers ON Products.ManufacturerID = Manufacturers.ManufacturerID WHERE Manufacturers.ManufacturerID = " + Replace(RSResults__MMColParam, "'", "''") + " ORDER BY "
Elseif (Request("searchme") <> "") Then
RSResults__MMColParam = Request("searchme")
selectstat="SELECT Products.*, Categories.Category FROM Categories INNER JOIN Products ON Categories.CategoryID = Products.CategoryID WHERE Product LIKE '%" + Replace(RSResults__MMColParam, "'", "''") + "%' ORDER BY "
End If
%>
<%
Dim RSResults
Dim RSResults_numRows
Set RSResults = Server.CreateObject("ADODB.Recordset")
RSResults.ActiveConnection = MM_myconnection
RSResults.Source = selectstat & orderby
RSResults.CursorType = 0
RSResults.CursorLocation = 2
RSResults.LockType = 1
RSResults.Open()
RSResults_numRows = 0
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
    MM_joinChar = "&"
Else
    MM_joinChar = ""
End If
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Test4less Electrical & Gas Test Equipment Distributor - Results</title>
<meta name="Description" content="Test4Less - Electrical and Gas testing, calibration, repair and retailer of Fluke, Megger, Kane, Seaward and Socket & See testing equipment. Competitive pricing and customer focussed service. All Products Only £4.95 Delivery" />
<meta name="Keywords" content="Fluke, Megger, Kane, Socket & See, Seaward, Alphatech, Anton, New Technik, Kewtech, Silvertronic, Testmate, TPI, WIS, MFT1552, Fluke 1652, Primetest 100, Fluke 114, PDL 234, VDD12, testing equipment, calibration service, servicing, cleaning, cal lab, Fluke, kane, Megger, calibration days, 16th edition testers, PAT testers, Multimeters, Clampmeters, Test Leads, Environment Testers, Combustion Analysers, Leakage Detectors, Carbon Monoxide Monitors, Differential manometers, Thermometers" />
<meta name="language" content="English" />
<meta name="copyright" content="Acute Sales Ltd" />
<meta name="revisit-after" content="7 days" />
<meta name="Category" content="Testing Equipment" />
<meta name="document-classification" content="Electrical and Gas Tesing Equipment" />
<meta name="document-distribution" content="Global" />
<meta name="document-state" content="Dynamic" />
<meta name="cache-control" content="Public" />
<link href="css/layout/layout.css" rel="stylesheet" type="text/css"/>
<link href="css/menu/menu.css" rel="stylesheet" type="text/css" />
<link href="css/slider/slider.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="scripts/jquery.js"></script>
<script type="text/javascript" src="scripts/menu.js"></script>
<script type="text/javascript" src="scripts/jquery.easing.1.3.js"></script>
<script type="text/javascript" src="scripts/jquery.anythingslider.js" charset="utf-8"></script>
<script type="text/javascript" src="scripts/slider.js"></script>
<script type="text/javascript" src="scripts/rollover.js"></script>

<script type="text/javascript">    var _gaq = _gaq || [];   _gaq.push(['_setAccount', 'UA-458267-1']);   _gaq.push(['_trackPageview']);    (function() {     var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;     ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';     var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);   })(); </script>

</head>
<body>
   
<div id="wrapper">
         
         <div id="header">
   <div id="topnavigation"><p></p>
    </div>
   <div id="socialnet"><a href="http://www.twitter.com/test4less" target="_blank"><img src="assets/img/twitter.gif" alt="follow us on twitter" width="81" height="16" border="0"></a></div>
   <div id="rss"><a href="http://www.test4less.co.uk/xml/test4less.xml" target="_blank"><img src="assets/img/rss_small.gif" alt="rrs feed" width="18" height="18" border="0" /></a></div>
   <br style="clear:both"/>
     <div id="tagline"><p>
       The UK's Premier Online Test Equipment Specialists <span class="h1">0800 040 7477</span></p>
   </div>
     <div id="search">
     <div id="searchbox">
        <form id="searchforum" name="searchforum" method="post" action="results.asp">
                    <input name="searchme" type="text" class="txtbox" id="searchme" />
                    <input name="Submit" type="submit" class="txtbox_button" value="search" />
                   </form>
       </div>
      </div>
   <br style="clear:both"/>
   <div id="logo"><img src="assets/img/logo.gif" alt="Test4Less" width="243" height="76"></div>
    <div id="account">
     <div id="guest">
     <p>
       
</p>
      </div>
     <div id="account_dets">
     <p>  </p>
     </div>
    </div>
    <br style="clear:both"/>
</div>

<div id="menu">
<div id="manufacturerDD">
    
</div>
</div>
   


<div id="leftmain">
<div id="searchvar"> You searched for:
<% If Request("ManufacturerID")<>"" Then %>
<%=(RSResults.Fields.Item("Manufacturer").Value)%>
<% Else If Request("CategoryID")<>"" Then %>
<%=(RSResults.Fields.Item("Category").Value)%>
<% Else If Request("searchme")<>"" Then %>
<% Response.Write Request("searchme") %>
<% End If %>
<% End If %>
<% End If %>
<% Dim SortFormAction
SortFormAction= MM_keepURL
%>
<div id="sortby">
<form action="results3.asp" method="get" name="formsort" id="formsort">
    <h5>
      <label>
        <select name="sortedby" class="sortbydrop" id="sortedby" value="sortby" onchange='this.form.submit()'>
          <option>sort by ::</option>
          <option value="pricelow">Price: Lowest First</option>
          <option value="pricehigh">Price: Highest First</option>
          <option value="manuaz">Manufacturer: A-Z</option>
          <option value="http://www.google.com">goto</option>
        </select>
        </label>
    </h5>
</form>
</div>
</div>
<div class="prod_dk">
    <%
startrw = 0
endrw = HLooper1__index
numberColumns = 4
numrows = -1
while((numrows <> 0) AND (Not RSResults.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<%
While ((startrw <= endrw) AND (Not RSResults.EOF))
%>
<div class="prod_dk_block">
       <div class="prod_dk_photo"><a href="details.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "ProductID=" & RSResults.Fields.Item("ProductID").Value %>"><img src="products/<%=(RSResults.Fields.Item("Image").Value)%>" width="142" height="142" border="0" /></a></div>
     <div class="prod_dk_title"><%=(RSResults.Fields.Item("Product").Value)%></div>
    <div class="prod_dk_button"><a href="details.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "ProductID=" & RSResults.Fields.Item("ProductID").Value %>" class="prod_dk_buttontxt"><%= FormatCurrency((RSResults.Fields.Item("Price").Value), 2, -2, -2, -2) %></a></div>
    </div>
    <%
startrw = startrw + 1
RSResults.MoveNext()
Wend
%>
<%
numrows=numrows-1
Wend
%>
<% If RSResults.EOF And RSResults.BOF Then %>
<div id="noresults"> Sorry, nothing was found. Please try again</div>
<% End If ' end RSResults.EOF And RSResults.BOF %>
</div>
<p>
<%'Response.Write(Session("sortby"))%>
</p>
<p>
<%'Response.Write "results.asp?"& "&" & (Session("searchtype")) %>
</p>
<p>
<%'Response.Write(Session("searchtype"))%>
<p>
<p>
<p>
Keep Both:
<%Response.Write "results.asp?"& MM_keepBoth %>
<p>Keep URL:
    <%Response.Write MM_keepURL %>
<p>Keep FORM:
    <%Response.Write MM_keepFORM & Request("sortedby") %>
</div>


<div id="rightmain">
    <div id="basket">
     <div id="baskettop">
       <p><a href="shoppingcart.asp">shopping basket</a>
     </div>
     <div id="basketmid"><p>
     <%if IsObject(objCart) then%>
     <%=objCart.TotalNumberItems%> Item(s)<br>
     £<%= FormatNumber(objCart.SubTotal, 2, -2, -2, -2) %> total<%end if%> <br /><br />
       <a href="login.asp">checkout</a></div>
     <div id="basketbot"></div>
    </div>
<div id="marquee_panel">
     <div id="marqueetop">
   <p>test4less | <a href="news_full.asp">NEWS</a>
     </div>
     <div id="marquee">
      <%=sMarquee%>
   </div>
      <div id="marquee_bottom"></div>
</div>
   <div id="prod_focus_panel">
   <a href="details.asp?ProductID=1386"><img src="assets/img/focus.jpg" alt="Test4Less Weekly Promotions" width="230" height="228" border="0" /></a>   </div>
   <div id="promotions"><a href="promotions.asp"><img src="assets/img/promotions.jpg" alt="Test4Less Weekly Promotions" width="230" height="228" border="0" ></a></div>
   <div id="training"><a href="http://www.severncollege.co.uk/test4less" target="_blank"><img src="assets/img/training.jpg" alt="Test4Less Training Corses" width="230" height="228" border="0" ></a></div>
</div>
   
   
   <div id="footer">
      <div id="footer1"></div>
      <div id="subscription">
    <form action="http://www.eshotuk.co.uk/eshot/form.php?form=86" method="post" name="frmSS86" id="frmSS86">
     <div>
       <label>
       <input name="email" type="text" class="subscription_txtbox" id="email" maxlength="50" />
       </label>
       <label>
       <input name="Submit2" type="submit" class="subscription_button" value="Submit" />
       </label>
      </div>
     </form>
          Why not subscribe to our mailing list and receive money saving promotions?
    <div id="pricematch_box">
    <div id="pricematch_icon"><a href="pricematch.asp"><img src="assets/img/price_match.gif" alt="Price Match" width="93" height="63" border="0" ></a></div>
    <div id="pricematch_txt">Test4Less offers a 100% Price Match Guarantee on selected products. </div>
    </div>
     </div>
</div>
<div id="companyreg">
    <p>Registered office: Acute sales Ltd, 4 Century Road, High Carr Business Park, Newcastle-under-Lyme, Staffordshire, ST5 7UG </p>
      Test4Less is a Trading Division of Acute Sales Ltd,
      Tel: 0800 0407477,
      Fax: 01782 567095,
      E-mail: [email protected] <br />
      Registered in England and Wales Number 2529960<br />
      VAT Number GB536921139 <br />
        © 2011 Acute Sales Ltd</div>
<div id="footer_cc">
<p><img src="assets/img/credit_cards.gif" alt="We accept" width="411" height="31" /></p>
<p> </p>
<p align="right"><a href="http://www.paypoint.net/assets/downloads/techFAQS/customermessage/cust_message.pdf" target="_blank"><img src="assets/img/secpay_logo2.gif" alt="Secured By payPoint" width="188" height="21" border="0" /></a></p>
</div>
<br style="clear:both"/>
   
</div>
   
</body>
</html>
<%
Set objCart=Nothing
%>
<%
RSResults.Close()
Set RSResults = Nothing
%>

Spry problem on IE

hello i've got a problem with a spry menu
on opera and other there's no problem but on IE the will not appear correctly
here to see on IE
and for opera
here is the code from the pages
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
dim fs,fo,tfile,cpt,rsImage, crnd, first
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder("c:\inetpub\wwwroot\slideshow")
Set tfile=fo.CreateTextFile("sample.xml",true)
set rsImage=server.CreateObject("adodb.recordset")
connstring="dsn=cieffeDB"
cpt = 0
first = true
randomize
crnd = int(rnd(20)*10)
rsImage.source = "select image from Images where id_page = 3 order by Rnd((-1000*id)*Time())"
rsImage.activeconnection = connstring
rsImage.locktype = 1
rsImage.open()
tfile.WriteLine("<?xml version=""1.0"" encoding=""UTF-8""?>")
tfile.WriteLine("<slideshow>")
while (cpt<15)
    tfile.WriteLine("<slide>")
    tfile.WriteLine("<image url='"&rsImage.Fields.Item("image").Value& "' duration='5' fill = 'stretch' />")
tfile.WriteLine("<link>")
tfile.WriteLine("<area x="& Chr(34)&"1"& Chr(34)& " y="& Chr(34)&"1"& Chr(34)&" width="& Chr(34)&"715"& Chr(34)&" height="& Chr(34)&"80"& Chr(34)&" url="& Chr(34)&"http://www.cieffe.be"& Chr(34)&" target="& Chr(34)&"_parent"& Chr(34)& "/>")
tfile.WriteLine("</link>")
tfile.WriteLine("</slide>")
rsImage.movenext()
cpt = cpt+1
wend
tfile.WriteLine("</slideshow>")
tfile.Close
rsImage.close
set tfile=nothing
set rsImage = nothing
set fo=nothing
set fs=nothing
%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("MM_UserAuthorization")
if application("langue") = "FR" then
MM_logoutRedirectPage = "/acceuil.asp?lang=FR"
end if
if application("langue") = "NL" then
MM_logoutRedirectPage = "/acceuil.asp?lang=NL"
end if
if application("langue") = "EN" then
MM_logoutRedirectPage = "/acceuil.asp?lang=EN"
end if
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
    MM_newQS = "?"
    For Each Item In Request.QueryString
      If (Item <> "MM_Logoutnow") Then
        If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
        MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
      End If
    Next
    if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
session("login")=""
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<% application("langue") = Request.QueryString("lang")
%>
<%
Dim categorie
Dim categorie_cmd
Dim categorie_numRows
Set categorie_cmd = Server.CreateObject ("ADODB.Command")
categorie_cmd.ActiveConnection = MM_cieffedb_STRING
categorie_cmd.CommandText = "SELECT CategoryFR, CategoryNL, CategoryEN, N°, CommentaireFR,CommentaireNL, CommentaireEN FROM Categories"
categorie_cmd.Prepared = true
Set categorie = categorie_cmd.Execute
categorie_numRows = 0
%>
<%
Dim images
Dim images_cmd
Dim images_numRows
Set images_cmd = Server.CreateObject ("ADODB.Command")
images_cmd.ActiveConnection = MM_cieffedb_STRING
images_cmd.CommandText = "SELECT image FROM images, categories WHERE N° = id_categorie"
images_cmd.Prepared = true
Set images = images_cmd.Execute
images_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 10
Repeat2__index = 0
images_numRows = images_numRows + Repea2__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
categorie_numRows = categorie_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Categorie</title>
<link href="/template/style.css" rel="stylesheet" type="text/css" />

<script src="/SpryAssets/SpryMenuBar.js" type="text/javascript"></script>
<link href="/SpryAssets/SpryMenuBarHorizontal.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="global">
<div id="container">
<div id="line1"> </div>
<div id="line2" align="right"> <a href="categorie.asp?lang=FR" target="_parent">FR</a> <a href="categorie.asp?lang=NL" target="_parent">NL</a> <a href="categorie.asp?lang=EN" target="_parent">EN</a> </div>
<div style="clear: both"></div>
<div id="name">CIEFFE BENELUX</div>
<div id="left">
</div>
<div id="center">
<% If application("langue")="FR" Then %>
<div id="menu">
    <p><a href="acceuil.asp?lang=FR">Acceuil</a><br />
menu </p>
    <p><a href="categorie.asp?lang=FR">Catégories</a><br />
menu </p>
    <%if session("login") <> "OK" then%>
<p><a href="login.asp?lang=FR">Login</a><br />
menu </p>
     <%else%>
     <p><a href="<%= MM_Logout %>">Log out</a><br />
menu </p>
    <%END IF%>
<p><a href="enregistrement.asp?lang=FR">Incription</a><br />
menu </p>
<p><a href="contact.asp?lang=FR">Contactez nous</a><br />
menu </p>
     </div>
<% End If %>
    <% If application("langue")="NL" Then %>
    <div id="menu">
<p><a href="acceuil.asp?lang=NL">Home</a><br />
menu </p>
<p><a href="categorie.asp?lang=NL">Categorieën</a><br />
menu </p>
   <%if session("login") <> "OK" then%>
<p><a href="login.asp?lang=NL">Login</a><br />
menu </p>
     <%else%>
     <p><a href="<%= MM_Logout %>">Log out</a><br />
menu </p>
     <%END IF%>
<p><a href="enregistrement.asp?lang=NL">Opschrift</a><br />
menu </p>
<p><a href="contact.asp?lang=NL">Contact</a><br />
menu </p>
    </div>
    <% End If %>
    <% If application("langue")="EN" Then %>
    <div id="menu">
<p><a href="acceuil.asp?lang=EN">Home</a><br />
menu </p>
<p><a href="categorie.asp?lang=EN">Categories</a><br />
menu </p>
   <%if session("login") <> "OK" then%>
<p><a href="login.asp?lang=EN">Login</a><br />
menu </p>
     <%else%>
     <p><a href="<%= MM_Logout %>">Log out</a><br />
menu </p>
     <%END IF%>
<p><a href="enregistrement.asp?lang=EN">Registration</a><br />
menu </p>
<p><a href="contact.asp?lang=EN">Contact us</a><br />
menu </p>
    </div>
    <% End If %>
</div>
<div id="right">
<center> <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
        codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
        WIDTH="716"
        HEIGHT="80"
        id="slideshow">
<PARAM NAME="movie" VALUE="slideshow\slideshow.swf?xml_source=slideshow\sample.xml"/>
<PARAM NAME="quality" VALUE="high" />
<PARAM NAME="bgcolor" VALUE="#000000" />
<param name="allowScriptAccess" value="sameDomain" />
<EMBED src="\slideshow\slideshow.swf?xml_source=slideshow\sample.xml"
quality="high"
bgcolor="#000000"
WIDTH="715"
HEIGHT="80"
NAME="slideshow"
allowScriptAccess="sameDomain"
swLiveConnect="true"
TYPE="application/x-shockwave-flash"
PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer">
</EMBED>
</OBJECT>
</center>
<% If application("langue")="FR" Then %>
<ul id="MenuBar1" class="MenuBarHorizontal">
<% While ((NOT categorie.EOF)) %>
      <li><a class="MenuBarItemSubmenu" href="/produits.asp?Num=<%=(categorie.Fields.Item("N°").Value)%>&lang=FR"><%=(categorie.F ields.Item("CategoryFR").Value)%> </a>
      <%
     dim rs,numProd
numProd=categorie.fields.item("N°").value
     connstring="dsn=cieffeDB"
set rs=server.CreateObject("adodb.recordset")
rs.source = "select * from Produits where NumCategorie = " & numProd
rs.activeconnection = connstring
        rs.locktype = 1
        rs.open()%>
      <ul>
   <% While ( (NOT rs.EOF)) %>
         <li><a class="MenuBarItemSubmenu" href="#"><%=(rs.Fields.Item("NomFR").Value)%></a>
         <%
     dim rs11,numCat
numCat=rs.fields.item("ID").value
     connstring="dsn=cieffeDB"
set rs11=server.CreateObject("adodb.recordset")
rs11.source = "select * from marque where id_Produit = " & numCat
rs11.activeconnection = connstring
        rs11.locktype = 1
        rs11.open()%>
        <ul>
        <% While ( (NOT rs11.EOF)) %>
           <li><a class="MenuBarItemSubmenu" href="#"><%=rs11.fields.item("marque").value%></a>
           <%
       dim rs12, numMarq
    numMarq = rs11.fields.item("ID").value
    connstring = "dsn=cieffeDB"
    set rs12 = server.CreateObject("adodb.recordset")
    rs12.source = "select * from produitsM where id_marque ="& numMarq
    rs12.activeconnection = connstring
    rs12.locktype = 1
    rs12.open()
     %>
           <ul>
                <%while (not rs12.EOF)%>
                    <li><a class="MenuBarItemSubmenu" href="#"><%=rs12.fields.item("nom").value%></a>
                    <%
        dim rs13,numPrd
        connstring = "dsn=cieffeDB"
        numPrd = rs12.fields.item("ID").value
        set rs13 = server.CreateObject("adodb.recordset")
        rs13.source = "select * from type where id_produitM ="&NumPrd
        rs13.activeconnection = connstring
        rs13.locktype = 1
        rs13.open()
     %>
                    <ul>
                    <%while (not rs13.EOF)%>
                       <li><a class="MenuBarItemSubmenu" href="#"><%=rs13.fields.item("type").value%></a></li>
                    <%
       rs13.movenext()
       WEND
     %>
                    <%
       rs13.close()
       set rs13 = nothing
     %>
                    </ul>
                  </li>
                <%rs12.movenext()
         WEND
       %>
           </ul>
               <% rs12.close()
         set rs12=nothing
      %>
           </li>
         <%rs11.movenext()
     WEND%>
        </ul>
         <% rs11.close()
       set rs11=nothing%>
        </li>
   <%
     rs.MoveNext()
     WEND%>
      </ul>
     </li>
    <% rs.close()
       set rs=nothing
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1%>
<%categorie.MoveNext()
Wend
%>
<%categorie.close()
Set categorie = categorie_cmd.Execute
categorie_numRows = 0
Repeat1__index = 0
Repeat1__numRows = 10%>
</ul>
<p> </p>
<p> </p>
<table border="1" >
<% While ((NOT categorie.EOF)) %>
      <td width="96"><%=(categorie.Fields.Item("CommentaireFR").Value)%></td>
    <%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
categorie.MoveNext()
Wend
%>
</table>
<% End If %>
<% If application("langue")="NL" Then %>
<ul id="MenuBar1" class="MenuBarHorizontal">
<% While ((NOT categorie.EOF)) %>
      <li><a class="MenuBarItemSubmenu" href="/produits.asp?Num=<%=(categorie.Fields.Item("N°").Value)%>&lang=NL"><%=(categorie.F ields.Item("CategoryNL").Value)%> </a>
      <%
     dim rs2,numProd2
numProd2=categorie.fields.item("N°").value
     connstring="dsn=cieffeDB"
set rs2=server.CreateObject("adodb.recordset")
rs2.source = "select * from Produits where NumCategorie = " & numProd2
rs2.activeconnection = connstring
        rs2.locktype = 1
        rs2.open()%>
      <ul>
   <% While ( (NOT rs2.EOF)) %>
         <li><a href="#"><%=(rs2.Fields.Item("NomNL").Value)%></a>
          <%
     dim rs21,numCat2
numCat2=rs2.fields.item("ID").value
     connstring="dsn=cieffeDB"
set rs21=server.CreateObject("adodb.recordset")
rs21.source = "select * from marque where id_Produit = " & numCat2
rs21.activeconnection = connstring
        rs21.locktype = 1
        rs21.open()%>
        <ul>
        <% While ( (NOT rs21.EOF)) %>
           <li><a href="#"><%=rs21.fields.item("marque").value%></a>
         <%rs21.movenext()
     WEND%>
         <% rs21.close()
       set rs21=nothing%></ul></li>
         <%
     rs2.MoveNext()
     WEND%>
      </ul>
      </li>
    <% rs2.close()
       set rs2=nothing
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
categorie.MoveNext()
Wend
%>
<%categorie.close()
Set categorie = categorie_cmd.Execute
categorie_numRows = 0
Repeat1__index = 0
Repeat1__numRows = 10%>
</ul>
<p> </p>
<p> </p>
<table border="1" >
<% While ((NOT categorie.EOF)) %>
      <td width="96"><%=(categorie.Fields.Item("CommentaireNL").Value)%></td>
    <%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
categorie.MoveNext()
Wend
%>
</table>
<% End If %>
<% If application("langue")="EN" Then %>
<ul id="MenuBar1" class="MenuBarHorizontal">
<% While ((NOT categorie.EOF)) %>
      <li><a class="MenuBarItemSubmenu" href="/produits.asp?Num=<%=(categorie.Fields.Item("N°").Value)%>&lang=EN"><%=(categorie.F ields.Item("CategoryEN").Value)%> </a>
      <%
     dim rs3,numProd3
numProd3=categorie.fields.item("N°").value
     connstring="dsn=cieffeDB"
set rs3=server.CreateObject("adodb.recordset")
rs3.source = "select * from Produits where NumCategorie = " & numProd3
rs3.activeconnection = connstring
        rs3.locktype = 1
        rs3.open()%>
      <ul>
   <% While ( (NOT rs3.EOF)) %>
         <li><a href="#"><%=(rs3.Fields.Item("NomEN").Value)%></a>
         </li>
         <%
     rs3.MoveNext()
     WEND%>
      </ul>
      </li>
    <% rs3.close()
       set rs3=nothing
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
categorie.MoveNext()
Wend
%>
<%categorie.close()
Set categorie = categorie_cmd.Execute
categorie_numRows = 0
Repeat1__index = 0
Repeat1__numRows = 10%>
</ul>
<p> </p>
<p> </p>
<table border="1" >
<% While ((NOT categorie.EOF)) %>
      <td width="96"><%=(categorie.Fields.Item("CommentaireFR").Value)%></td>
    <%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
categorie.MoveNext()
Wend
%>
</table><% End If %>
<table border="2">
<tr>
    <td>image</td>
</tr>
<% While ((Repeat2__numRows <> 0) AND (NOT images.EOF)) %>
    <tr>
      <td><img src="<%=(images.Fields.Item("image").Value)%>" width="150" height="150" /></td>
    </tr>
    <%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
images.MoveNext()
Wend
%>
</table>
</div>
</div>
</div>
</div>
<script type="text/javascript">

</script>
</body>
</html>
<%
images.Close()
Set images = Nothing
%>
<%
categorie.Close()
Set categorie = Nothing
%>
than the css
@charset "UTF-8";
/* SpryMenuBarHorizontal.css - version 0.6 - Spry Pre-Release 1.6.1 */
/* Copyright (c) 2006. Adobe Systems Incorporated. All rights reserved. */
LAYOUT INFORMATION: describes box model, positioning, z-order
/* The outermost container of the Menu Bar, an auto width box with no margin or padding */
ul.MenuBarHorizontal
margin: 0;
padding: 0;
list-style-type: none;
font-size: 100%;
cursor: default;
width: auto;
background-color: #FF9000;
/* Set the active Menu Bar with this class, currently setting z-index to accomodate IE rendering bug: http://therealcrisp.xs4all.nl/meuk/IE-zindexbug.html */
ul.MenuBarActive
z-index: 1000;
/* Menu item containers, position children relative to this container and are a fixed width */
ul.MenuBarHorizontal li
margin: 0;
padding: 0;
list-style-type: none;
font-size: 100%;
position: relative;
text-align: center;
cursor: pointer;
width: 102.5px;
float: left;
/* Submenus should appear below their parent (top: 0) with a higher z-index, but they are initially off the left side of the screen (-1000em) */
ul.MenuBarHorizontal ul
margin: 0;
padding: 0;
list-style-type: none;
font-size: 100%;
z-index: 1020;
cursor: default;
width: 100 px;
position: absolute;
left: -1000em;
/* Submenu that is showing with class designation MenuBarSubmenuVisible, we set left to auto so it comes onto the screen below its parent menu item */
ul.MenuBarHorizontal ul.MenuBarSubmenuVisible
left: auto;
/* Menu item containers are same fixed width as parent */
ul.MenuBarHorizontal ul li
width: 100px;
/* Submenus should appear slightly overlapping to the right (95%) and up (-5%) */
ul.MenuBarHorizontal ul ul
position: absolute;
margin: -5% 0 0 95%;
/* Submenu that is showing with class designation MenuBarSubmenuVisible, we set left to 0 so it comes onto the screen */
ul.MenuBarHorizontal ul.MenuBarSubmenuVisible ul.MenuBarSubmenuVisible
left: auto;
top: 0;
DESIGN INFORMATION: describes color scheme, borders, fonts
/* Submenu containers have borders on all sides */
ul.MenuBarHorizontal ul
border: 1px solid #CCC;
/* Menu items are a light gray block with padding and no text decoration */
ul.MenuBarHorizontal a
display: block;
cursor: pointer;
background-color: #EEE;
height:35px;
padding: 7px 7px;
color: #333;
text-decoration: none;
/* Menu items that have mouse over or focus have a blue background and white text */
ul.MenuBarHorizontal a:hover, ul.MenuBarHorizontal a:focus
background-color: #FF9000;
color: #FFF;
/* Menu items that are open with submenus are set to MenuBarItemHover with a blue background and white text */
ul.MenuBarHorizontal a.MenuBarItemHover, ul.MenuBarHorizontal a.MenuBarItemSubmenuHover, ul.MenuBarHorizontal a.MenuBarSubmenuVisible
background-color: #FF9000;
color: #FFF;
SUBMENU INDICATION: styles if there is a submenu under a given menu item
/* Menu items that have a submenu have the class designation MenuBarItemSubmenu and are set to use a background image positioned on the far left (95%) and centered vertically (50%) */
ul.MenuBarHorizontal a.MenuBarItemSubmenu
background-image: url(boutonNorm.gif);
background-repeat: no-repeat;
/* background-position: 95% 50%;*/
size:auto;
/* Menu items that have a submenu have the class designation MenuBarItemSubmenu and are set to use a background image positioned on the far left (95%) and centered vertically (50%) */
ul.MenuBarHorizontal ul a.MenuBarItemSubmenu
background-image: url(boutonSourisDess.gif);
background-repeat: no-repeat;
/* background-position: 95% 50%;*/
/* Menu items that are open with submenus have the class designation MenuBarItemSubmenuHover and are set to use a "hover" background image positioned on the far left (95%) and centered vertically (50%) */
ul.MenuBarHorizontal a.MenuBarItemSubmenuHover
background-image: url(boutonNorm.gif);
background-repeat: no-repeat;
background-position: 95% 50%;
/* Menu items that are open with submenus have the class designation MenuBarItemSubmenuHover and are set to use a "hover" background image positioned on the far left (95%) and centered vertically (50%) */
ul.MenuBarHorizontal ul a.MenuBarItemSubmenuHover
background-image: url(boutonSourisDess.gif);
background-repeat: no-repeat;
background-position: 95% 50%;
BROWSER HACKS: the hacks below should not be changed unless you are an expert
/* HACK FOR IE: to make sure the sub menus show above form controls, we underlay each submenu with an iframe */
ul.MenuBarHorizontal iframe
position: absolute;
z-index: 1010;
filter:alpha(opacity:0.1);
/* HACK FOR IE: to stabilize appearance of menu items; the slash in float is to keep IE 5.0 from parsing */
@media screen, projection
ul.MenuBarHorizontal li.MenuBarItemIE
display: inline;
f\loat: left;
background: #FFF;
and for the end the js
// SpryMenuBar.js - version 0.12 - Spry Pre-Release 1.6.1
// Copyright (c) 2006. Adobe Systems Incorporated.
// All rights reserved.
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
//   * Redistributions of source code must retain the above copyright notice,
//     this list of conditions and the following disclaimer.
//   * Redistributions in binary form must reproduce the above copyright notice,
//     this list of conditions and the following disclaimer in the documentation
//     and/or other materials provided with the distribution.
//   * Neither the name of Adobe Systems Incorporated nor the names of its
//     contributors may be used to endorse or promote products derived from this
//     software without specific prior written permission.
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
// POSSIBILITY OF SUCH DAMAGE.
SpryMenuBar.js
This file handles the JavaScript for Spry Menu Bar. You should have no need
to edit this file. Some highlights of the MenuBar object is that timers are
used to keep submenus from showing up until the user has hovered over the parent
menu item for some time, as well as a timer for when they leave a submenu to keep
showing that submenu until the timer fires.
var Spry; if (!Spry) Spry = {}; if (!Spry.Widget) Spry.Widget = {};
Spry.BrowserSniff = function()
var b = navigator.appName.toString();
var up = navigator.platform.toString();
var ua = navigator.userAgent.toString();
this.mozilla = this.ie = this.opera = this.safari = false;
var re_opera = /Opera.([0-9\.]*)/i;
var re_msie = /MSIE.([0-9\.]*)/i;
var re_gecko = /gecko/i;
var re_safari = /(applewebkit|safari)\/([\d\.]*)/i;
var r = false;
if ( (r = ua.match(re_opera))) {
this.opera = true;
this.version = parseFloat(r[1]);
} else if ( (r = ua.match(re_msie))) {
this.ie = true;
this.version = parseFloat(r[1]);
} else if ( (r = ua.match(re_safari))) {
this.safari = true;
this.version = parseFloat(r[2]);
} else if (ua.match(re_gecko)) {
var re_gecko_version = /rv:\s*([0-9\.]+)/i;
r = ua.match(re_gecko_version);
this.mozilla = true;
this.version = parseFloat(r[1]);
this.windows = this.mac = this.linux = false;
this.Platform = ua.match(/windows/i) ? "windows" :
     (ua.match(/linux/i) ? "linux" :
     (ua.match(/mac/i) ? "mac" :
     ua.match(/unix/i)? "unix" : "unknown"));
this[this.Platform] = true;
this.v = this.version;
if (this.safari && this.mac && this.mozilla) {
this.mozilla = false;
Spry.is = new Spry.BrowserSniff();
// Constructor for Menu Bar
// element should be an ID of an unordered list (<ul> tag)
// preloadImage1 and preloadImage2 are images for the rollover state of a menu
Spry.Widget.MenuBar = function(element, opts)
this.init(element, opts);
Spry.Widget.MenuBar.prototype.init = function(element, opts)
this.element = this.getElement(element);
// represents the current (sub)menu we are operating on
this.currMenu = null;
this.showDelay = 250;
this.hideDelay = 600;
if(typeof document.getElementById == 'undefined' || (navigator.vendor == 'Apple Computer, Inc.' && typeof window.XMLHttpRequest == 'undefined') || (Spry.is.ie && typeof document.uniqueID == 'undefined'))
// bail on older unsupported browsers
return;
// Fix IE6 CSS images flicker
if (Spry.is.ie && Spry.is.version < 7){
try {
   document.execCommand("BackgroundImageCache", false, true);
} catch(err) {}
this.upKeyCode = Spry.Widget.MenuBar.KEY_UP;
this.downKeyCode = Spry.Widget.MenuBar.KEY_DOWN;
this.leftKeyCode = Spry.Widget.MenuBar.KEY_LEFT;
this.rightKeyCode = Spry.Widget.MenuBar.KEY_RIGHT;
this.escKeyCode = Spry.Widget.MenuBar.KEY_ESC;
this.hoverClass = 'MenuBarItemHover';
this.subHoverClass = 'MenuBarItemSubmenuHover';
this.subVisibleClass ='MenuBarSubmenuVisible';
this.hasSubClass = 'MenuBarItemSubmenu';
this.activeClass = 'MenuBarActive';
this.isieClass = 'MenuBarItemIE';
this.verticalClass = 'MenuBarVertical';
this.horizontalClass = 'MenuBarHorizontal';
this.enableKeyboardNavigation = true;
this.hasFocus = false;
// load hover images now
if(opts)
for(var k in opts)
   if (typeof this[k] == 'undefined')
    var rollover = new Image;
    rollover.src = opts[k];
Spry.Widget.MenuBar.setOptions(this, opts);
// safari doesn't support tabindex
if (Spry.is.safari)
this.enableKeyboardNavigation = false;
if(this.element)
this.currMenu = this.element;
var items = this.element.getElementsByTagName('li');
for(var i=0; i<items.length; i++)
   if (i > 0 && this.enableKeyboardNavigation)
    items[i].getElementsByTagName('a')[0].tabIndex='-1';
   this.initialize(items[i], element);
   if(Spry.is.ie)
    this.addClassName(items[i], this.isieClass);
    items[i].style.position = "static";
if (this.enableKeyboardNavigation)
   var self = this;
   this.addEventListener(document, 'keydown', function(e){self.keyDown(e); }, false);
if(Spry.is.ie)
   if(this.hasClassName(this.element, this.verticalClass))
    this.element.style.position = "relative";
   var linkitems = this.element.getElementsByTagName('a');
   for(var i=0; i<linkitems.length; i++)
    linkitems[i].style.position = "relative";
Spry.Widget.MenuBar.KEY_ESC = 27;
Spry.Widget.MenuBar.KEY_UP = 38;
Spry.Widget.MenuBar.KEY_DOWN = 40;
Spry.Widget.MenuBar.KEY_LEFT = 37;
Spry.Widget.MenuBar.KEY_RIGHT = 39;
Spry.Widget.MenuBar.prototype.getElement = function(ele)
if (ele && typeof ele == "string")
return document.getElementById(ele);
return ele;
Spry.Widget.MenuBar.prototype.hasClassName = function(ele, className)
if (!ele || !className || !ele.className || ele.className.search(new RegExp("\\b" + className + "\\b")) == -1)
return false;
return true;
Spry.Widget.MenuBar.prototype.addClassName = function(ele, className)
if (!ele || !className || this.hasClassName(ele, className))
return;
ele.className += (ele.className ? " " : "") + className;
Spry.Widget.MenuBar.prototype.removeClassName = function(ele, className)
if (!ele || !className || !this.hasClassName(ele, className))
return;
ele.className = ele.className.replace(new RegExp("\\s*\\b" + className + "\\b", "g"), "");
// addEventListener for Menu Bar
// attach an event to a tag without creating obtrusive HTML code
Spry.Widget.MenuBar.prototype.addEventListener = function(element, eventType, handler, capture)
try
if (element.addEventListener)
   element.addEventListener(eventType, handler, capture);
else if (element.attachEvent)
   element.attachEvent('on' + eventType, handler);
catch (e) {}
// createIframeLayer for Menu Bar
// creates an IFRAME underneath a menu so that it will show above form controls and ActiveX
Spry.Widget.MenuBar.prototype.createIframeLayer = function(menu)
var layer = document.createElement('iframe');
layer.tabIndex = '-1';
layer.src = 'javascript:""';
layer.frameBorder = '0';
layer.scrolling = 'no';
menu.parentNode.appendChild(layer);
layer.style.left = menu.offsetLeft + 'px';
layer.style.top = menu.offsetTop + 'px';
layer.style.width = menu.offsetWidth + 'px';
layer.style.height = menu.offsetHeight + 'px';
// removeIframeLayer for Menu Bar
// removes an IFRAME underneath a menu to reveal any form controls and ActiveX
Spry.Widget.MenuBar.prototype.removeIframeLayer = function(menu)
var layers = ((menu == this.element) ? menu : menu.parentNode).getElementsByTagName('iframe');
while(layers.length > 0)
layers[0].parentNode.removeChild(layers[0]);
// clearMenus for Menu Bar
// root is the top level unordered list (<ul> tag)
Spry.Widget.MenuBar.prototype.clearMenus = function(root)
var menus = root.getElementsByTagName('ul');
for(var i=0; i<menus.length; i++)
this.hideSubmenu(menus[i]);
this.removeClassName(this.element, this.activeClass);
// bubbledTextEvent for Menu Bar
// identify bubbled up text events in Safari so we can ignore them
Spry.Widget.MenuBar.prototype.bubbledTextEvent = function()
return Spry.is.safari && (event.target == event.relatedTarget.parentNode || (event.eventPhase == 3 && event.target.parentNode == event.relatedTarget));
// showSubmenu for Menu Bar
// set the proper CSS class on this menu to show it
Spry.Widget.MenuBar.prototype.showSubmenu = function(menu)
if(this.currMenu)
this.clearMenus(this.currMenu);
this.currMenu = null;
if(menu)
this.addClassName(menu, this.subVisibleClass);
if(typeof document.all != 'undefined' && !Spry.is.opera && navigator.vendor != 'KDE')
   if(!this.hasClassName(this.element, this.horizontalClass) || menu.parentNode.parentNode != this.element)
    menu.style.top = menu.parentNode.offsetTop + 'px';
if(Spry.is.ie && Spry.is.version < 7)
   this.createIframeLayer(menu);
this.addClassName(this.element, this.activeClass);
// hideSubmenu for Menu Bar
// remove the proper CSS class on this menu to hide it
Spry.Widget.MenuBar.prototype.hideSubmenu = function(menu)
if(menu)
this.removeClassName(menu, this.subVisibleClass);
if(typeof document.all != 'undefined' && !Spry.is.opera && navigator.vendor != 'KDE')
   menu.style.top = '';
   menu.style.left = '';
if(Spry.is.ie && Spry.is.version < 7)
   this.removeIframeLayer(menu);
// initialize for Menu Bar
// create event listeners for the Menu Bar widget so we can properly
// show and hide submenus
Spry.Widget.MenuB

Change
ul.MenuBarHorizontal ul
margin: 0;
padding: 0;
list-style-type: none;
font-size: 100%;
z-index: 1020;
cursor: default;
width: 100 px;
position: absolute;
left:
-1000em;
to
ul.MenuBarHorizontal ul
margin: 0;
padding: 0;
list-style-type: none;
font-size: 100%;
z-index: 1020;
cursor: default;
width: 100px;
position: absolute;
left:
-1000em;
I hope this helps.
Ben

How can I input read a line from a file and output it into the screen?

How can I input read a line from a file and output it into the screen?
If I have a file contains html code and I only want the URL, for example, www24.brinkster.com how can I read that into the buffer and write the output into the screen that using Java?
Any help will be appreciate!
======START FILE default.html ========
<html>
<body>
<br><br>
<center>
<font size=4 face=arial color=#336699>
<b>Welcome to a DerekTran's Website!</b><br>
Underconstructions.... <br>
</font> </center>
<font size=3 face=arial color=black> <br>
Hello,<br>
<br>
I've been using the PWS to run the website on NT workstation 4.0. It was working
fine. <br>
The URL should be as below: <br>
http://127.0.0.1/index.htm or http://localhost/index.htm
<p>And suddently, it stops working, it can't find the connection. I tried to figure
out what's going on, but still <font color="#FF0000">NO CLUES</font>. Does anyone
know what's going on? Please see the link for more.... I believe that I setup
everything correctly and the bugs still flying in the server.... <br>
Thank you for your help.</P>
</font>
<p><font size=3 face=arial color=black>PeerWebServer.doc
<br>
<p><font size=3 face=arial color=black>CannotFindServer.doc
<br>
<p><font size=3 face=arial color=black>HOSTS file is not found
<br>
<p><font size=3 face=arial color=black>LMHOSTS file
<br>
<p><font size=3 face=arial color=black>How to Setup PWS on NT
<BR>
<p><font size=3 face=arial color=black>Issdmin doc</BR>
Please be patient while the document is download....</font>
<font size=3 face=arial color=black><br>If you have any ideas please drop me a
few words at [email protected] </font><br>
<br>
<br>
</p>
<p> </p>
</body>
</html>
========= END OF FILE ===============

Hi!
This is a possible solution to your problem.
import java.io.*;
class AddressExtractor {
     public static void main(String args[]) throws IOException{
          //retrieve the commandline parameters
          String fileName = "default.html";
          if (args.length != 0)      fileName =args[0];
           else {
               System.out.println("Usage : java AddressExtractor <htmlfile>");
               System.exit(0);
          BufferedReader in = new BufferedReader(new FileReader(new File(fileName)));
          StreamTokenizer st = new StreamTokenizer(in);
          st.lowerCaseMode(true);
          st.wordChars('/','/'); //include '/' chars as part of token
          st.wordChars(':',':'); //include ':' chars as part of token
          st.quoteChar('\"'); //set the " quote char
          int i;
          while (st.ttype != StreamTokenizer.TT_EOF) {
               i = st.nextToken();
               if (st.ttype == StreamTokenizer.TT_WORD) {
                    if (st.sval.equals("href")) {
                         i = st.nextToken(); //the next token (assumed) is the '=' sign
                         i = st.nextToken(); //then after it is the href value.
                         getURL(st.sval); //retrieve address
          in.close();
     static void getURL(String s) {
          //Check string if it has http:// and truncate if it does
          if (s.indexOf("http://") > -1) {
               s = s.substring(s.indexOf("http://") + 7, s.length());
          //check if not mailto: do not print otherwise
          if (s.indexOf("mailto:") != -1) return;
          //printout anything after http:// and the next '/'
          //if no '/' then print all
               if (s.indexOf('/') > -1) {
                    System.out.println(s.substring(0, s.indexOf('/')));
               } else System.out.println(s);
}Hope this helps. I used static methods instead of encapsulating everyting into a class.

Synchronous read file and status update

Hi,
CSV file to be loaded into the database table. ASP used as front end and ESB should be used for backend processing!
A csv file is placed in a fileshare by an asp page. After that a button is clicked on the asp page which inserts a record into a database table(A) with the file details. There is a flag field in the table which will be set to 'F' initially.
Now there should be an esb service which will be polling for any new records inserted into the database table(A).
Once it finds any new record, the esb service should update the flag status to 'RF' from 'F' and read the records in the csv file(I think synchronous read file should be used inthe file adapter) and insert them into a database table(B). The flag field is updated to 'RF' so that the asp page informs the user that the csv file is being inserted into the table(B).
After all the records are inserted, the esb service should once again update the flag in table(A) to 'Y' from 'RF' so that the asp page will indicate the user that the csv file is loaded into the data base table.
The challenges that I have here are:
1) I need to have the ESB service with such a sequence of execution that updates the table(A) at each stage so that the asp page can display the status to the USER.
2) The csv file size can be huge. It can contain as many as 100 thousand records with over 50 fields in each record. I will have to probably debatch the file. Once we debatch, seperate instance would be created for each batch. Now we should see to that flag in table(A) is updated to 'Y' only when the last batch of the records are processed.
I am using jdev10134 and oracle SOA suite ESB10134
Someone please advice on how to go ahead.
Cheers,
RV

Hi,
CSV file to be loaded into the database table. ASP used as front end and ESB should be used for backend processing!
A csv file is placed in a fileshare by an asp page. After that a button is clicked on the asp page which inserts a record into a database table(A) with the file details. There is a flag field in the table which will be set to 'F' initially.
Now there should be an esb service which will be polling for any new records inserted into the database table(A).
Once it finds any new record, the esb service should update the flag status to 'RF' from 'F' and read the records in the csv file(I think synchronous read file should be used inthe file adapter) and insert them into a database table(B). The flag field is updated to 'RF' so that the asp page informs the user that the csv file is being inserted into the table(B).
After all the records are inserted, the esb service should once again update the flag in table(A) to 'Y' from 'RF' so that the asp page will indicate the user that the csv file is loaded into the data base table.
The challenges that I have here are:
1) I need to have the ESB service with such a sequence of execution that updates the table(A) at each stage so that the asp page can display the status to the USER.
2) The csv file size can be huge. It can contain as many as 100 thousand records with over 50 fields in each record. I will have to probably debatch the file. Once we debatch, seperate instance would be created for each batch. Now we should see to that flag in table(A) is updated to 'Y' only when the last batch of the records are processed.
I am using jdev10134 and oracle SOA suite ESB10134
Someone please advice on how to go ahead.
Cheers,
RV

Pls advice to make a career path in SAP

Hi,
My qualification is MCA... Fresher... working in past 4months... Now am supporting Internal Billing applications of my organization developed by ASP and ASP.net with back end SQL server.... In my team SAP people also there for support to the functions of HRIS (Human Resource Information System and the Billing Applications). I am having the opportunity to get the knowledge from the SAP team... with in short period am able to slowly and slowly move to that team.. So please advise me is that SAP functions are having good growth.... and i start to learn technical SAP ABAP first by that suggestion given by that SAP team member... pls anybody give advise?
Moderator message: moved from ABAP General to Career Center, please post in correct forum next time.
Edited by: Thomas Zloch on Oct 26, 2010 9:57 AM

Dear Ayyappan,
It is you to decide whether you should opt for technical or the functional expertise based on your qualifications and interest areas. As you are the best judge of your own skills!!
As per my take, seeing your experience i strongly feel that you have some technical background and should opt for the technical ABAP expertise. In case u feel that you are good at the functional expertise as well and can make a mark then you should go for techno functional modules which requires the knowledge of both the technical as well as functional i.e., in case of all Industrial modules like the ISU etc.
Regards,
Prashant

Regarding SQL Queries

Iam developing a randomizing program .which selects random rows frm the database.iam using sql as backend and asp.net as front end.
i allow user to give a number say 1000, so 1000 random rows will be slected frm the database.iam using NEWID() for random selection.
But how do i put the user value into query. so as to select that many random rows from the databse.
please help me out on this

SQL> select * from (select * from scott.emp order by dbms_random.random) where rownum < 5 order by 1 ;
     EMPNO ENAME      JOB              MGR HIREDATE           SAL       COMM     DEPTNO
      7499 ALLEN      SALESMAN        7698 20-FEB-1981       1600        300         30
      7566 JONES      MANAGER         7839 02-APR-1981       2975                    20
      7876 ADAMS      CLERK           7788 23-MAY-1987       1100                    20
      7902 FORD       ANALYST         7566 03-DEC-1981       3000                    20
SQL> select * from (select * from scott.emp order by dbms_random.random) where rownum < 5 order by 1 ;
     EMPNO ENAME      JOB              MGR HIREDATE           SAL       COMM     DEPTNO
      7499 ALLEN      SALESMAN        7698 20-FEB-1981       1600        300         30
      7566 JONES      MANAGER         7839 02-APR-1981       2975                    20
      7782 CLARK      MANAGER         7839 09-JUN-1981       2450                    10
      7839 KING       PRESIDENT            17-NOV-1981       5000                    10
SQL> select * from (select * from scott.emp order by dbms_random.random) where rownum < 5 order by 1 ;
     EMPNO ENAME      JOB              MGR HIREDATE           SAL       COMM     DEPTNO
      7521 WARD       SALESMAN        7698 22-FEB-1981       1250        500         30
      7698 BLAKE      MANAGER         7839 01-MAY-1981       2850                    30
      7844 TURNER     SALESMAN        7698 08-SEP-1981       1500          0         30
      7900 JAMES      CLERK           7698 03-DEC-1981        950                    30
SQL>

Unable to insert row in object table from plsql block

I have table called test based on an object type. When I issue an insert statement from sqlplus, the row is inserted. The exact same sql statement in a plsql block gives the error below. Any ideas? (it is not a constraint problem).
SQL> insert into test values( 3,2,1,1,'asp',1,'mach' );
1 row created.
SQL> begin
2 insert into test values( 3,2,1,1,'asp',1,'mach' );
3 end;
4 /
insert into test values( 3,2,1,1,'asp',1,'mach' );
ERROR at line 2:
ORA-06550: line 2, column 16:
PL/SQL: ORA-06552: PL/SQL: Compilation unit analysis terminated
ORA-06553: PLS-302: component 'DOCUMENT' must be declared
ORA-06550: line 2, column 4:
PL/SQL: SQL Statement ignored
(ddl)
CREATE OR REPLACE type document as object
DOC_ID NUMBER (38),
BATCH_ID NUMBER (38),
STATE NUMBER (2),
TRANSIENT NUMBER (2),
ASP VARCHAR2 (20),
USER_ID NUMBER (6),
MACHINE VARCHAR2 (30),
MEMBER PROCEDURE setState,
MEMBER function getState RETURN NUMBER
) not final;
create table test of document;

Hi Adam
You need to instantiate your object type in your insert statement(while doing through PL/SQL block), so try like this
Insert into test values(document(1,2,'CO',55,'xyz','kkk','PENTIUM'));
The reason you were successful through SQLPLUS was that, SQLPLUS automatically instantiate the values into object type.
Qurashi

ASP/VB If ElseIf End If

Similar Messages

Maybe you are looking for