% @Language = Vbscript %> <% Response.Buffer = True sAction = Request.QueryString("Show") sID = Request.QueryString("ID") Main Sub Main %>
![]() |
|
Study
English in London
Communication is Learning |
| About Us |
Courses | Student Opinion |
News
& Events |
Photo Gallery |
Agents | Other Services |
Enrol Now |
Finding Us |
Contact Us |
Sitemap
& Index |
| General English | Examination Courses | Business Courses | Private Lessons | Internship | Other Languages |
| You are here: courses |
|
| General
English
Courses
General English Full-Time Semi Intensive
General English +Private Lessons
|
|
| Languages
|
|
<% End Sub Sub ShowCategories Dim objConn, objRS, strSQL, iCount, iCountMod ' Opretter forbindelse til databasen Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Session("dbDSN") ' Opbygger SQL sætning strSQL = "SELECT * FROM Categories WHERE Status = 'ACT' " Set objRS = objConn.Execute(strSQL) ' iCountMod skal bruges til at starte en tømning af bufferen (sker når der er mange poster i databasen) iCountMod = 0 ' Udskriver alle poster i databasen Do While Not objRS.EOF iCountMod = iCountMod+1 %>