Web Development

<%

Dim conn
Dim catRS
Dim sql
With Response
Set conn  = Server.CreateObject("ADODB.Connection")
Set catRS = Server.CreateObject("ADODB.Recordset")

sql = "SELECT DISTINCT product_category FROM Products " & _
      "WHERE product_status=1 ORDER BY product_category"

conn.ConnectionString = <code>[YourConnectionStringGoesHere]</code>
conn.Open
catRS.ActiveConnection = conn
catRS.Open sql

If Not catRS.EOF Then
    .Write "<ul>" & vbcrlf
    Do Until catRS.EOF
       If catRS("product_category") = <code>"SomeWord"</code> or <code>Variable</code> Then
           .Write "<li>" & catRS("product_category") & "</li>"
       End If
       catRS.MoveNext
    Loop
    .Write "</ul>"
End If

catRS.Close
set catRS = nothing
conn.Close
set conn = nothing

End With
%>

<form action="original.html" method="post">
    <input type="text" name="email">
    <input type="password" name="passwd">
    <input type="submit" value="OK">
    <input type="button" value="Forgot Passowrd" onClick="this.form.action='newpage.html';this.form.submit();">
</form>

nl2br("this\nstring\nhas\nreturns");

Email: theeclypse@hotmail.com   URL: http://www.onyeyiri.co.uk
"All programmers are playwrights and all computers are lousy actors."

Email: theeclypse@hotmail.com   URL: http://www.onyeyiri.co.uk
"All programmers are playwrights and all computers are lousy actors."

Email: theeclypse@hotmail.com   URL: http://www.onyeyiri.co.uk
"All programmers are playwrights and all computers are lousy actors."