Introduza um item no leilão")
Response.Write("")
Call DoPageFooter
Call CloseDBConn
Sub GetCategories
sSQL = ""
sSQL = sSQL & "SELECT * FROM Categories ORDER BY CategoryName "
Set rs = GobjConnect.Execute(sSQL)
If rs.eof Then
Response.Write("")
Else
Do While Not rs.eof
Response.Write("")
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
End Sub
%>