Cursuri online pentru incepatori si profesionisti - CursuriOnline.ro

<% msql ="SELECT * FROM CourseDescription WHERE Code <> ""Demo"" ORDER By CourseCategory, CourseTitle ASC" Set RS=MyConn.Execute(msql) Dim Coloralt%> <%If Not RS.BOF Then Coloralt="#EEEAE8" While Not RS.EOF Do While Not RS.EOF courseprice = RS("CoursePrice") * 3.6 Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") RS.MoveNext ' This bit of code makes the colors alternate If Coloralt="#EEEAE8" Then Coloralt="#FFFFFF" 'This belongs to the alternative Colores Else 'This belongs to the alternative Colores Coloralt="#EEEAE8" 'This belongs to the alternative Colores End If 'This belongs to the alternative Colores Loop Wend End If %>

Titlul cursului	Autorul cursului	Categorie	Preţ (RON)	Formular Înscriere
"& RS("CourseTitle") &"	"& RS("Author") &"	" & RS("CourseCategory") & "	" & courseprice & "

<%RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>