Simple Alternate Row Color dengan ASP

Tulisan ini sebenarnya masih berhubungan dengan tulisan saya sebelum ini tentang membuat alternate row color dengan PHP. Pada tulisan kali ini saya coba membahas tentang membuat alternate row color sederhana dengan ASP.

Untuk stylesheetnya silahkan dilihat di sini. Untuk database bisa menggunakan MS Access atau MS SQL Server atau Database yang lainnya. Pada tulisan ini, database yang saya gunakan adalah MS SQL Server dengan struktur table yang sama dengan posting saya sebelumnya.

<%
Option Explicit
On Error Resume Next

Dim ConnString
Dim oConn
Dim RecSet

Dim strQuery

Dim strRowClass

Dim intNomor

Set oConn = Server.CreateObject("ADODB.Connection")

'Koneksi ke SQL Server 2000
ConnString = "Provider=SQLOLEDB; Datasource=localhost; uid=test; password=test;
Database=employer"
oConn.Open ConnString

'Recordset
Set RecSet = Server.CreateObject("ADODB.Recordset")

'Query database
strQuery = "SELECT * FROM tbl_employer ORDER BY id"
RecSet.Open strQuery, oConn

Response.Write "<table width=""100%"" cellpadding=""0"" cellspacing=""1"" border=""0"">"
& VbCrlf
Response.Write "<tr>" & VbCrlf
Response.Write "<th>No</th>" & VbCrlf
Response.Write "<th>Nama</th>" & VbCrlf
Response.Write "<th>Tgl Lahir</th>" & VbCrlf
Response.Write "<th>Alamat</th>" & VbCrlf
Response.Write "<th>Kota</th>" & VbCrlf
Response.Write "<th>Propinsi</th>" & VbCrlf
Response.Write "<th>Negara</th>" & VbCrlf
Response.Write "<th>Departemen</th>" & VbCrlf
Response.Write "</tr>" & VbCrlf
If Not RecSet.EOF Then
	While Not RecSet.EOF
		intNomor = intNomor + 1
		If intNomor Mod 2 <> 0 Then
			strRowClass = "ganjil"
		Else
			strRowClass = "genap"
		End If
		Response.Write "<tr class=""" & strRowClass & """>" & VbCrlf
		Response.Write "<td>" & intNomor . "</td>" & VbCrlf
		Response.Write "<td>" & RecSet("employer_name") & "</td>" & VbCrlf
		Response.Write "<td>" & Day(RecSet("birth_date")) & "-"
& Month(RecSet("birth_date")) & "-" & Year(RecSet("birth_date")) & "</td>" & VbCrlf
'		Alternatif untuk membuat format waktu
'		Response.Write "<td>" & FormatDateTime(DateValue(RecSet("birth_date")),
VbShortDate) & "</td>" & VbCrlf
		Response.Write "<td>" & RecSet("address") & "</td>" & VbCrlf
		Response.Write "<td>" & RecSet("city") & "</td>" & VbCrlf
		Response.Write "<td>" & RecSet("states") & "</td>" & VbCrlf
		Response.Write "<td>" & RecSet("country") & "</td>" & VbCrlf
		Response.Write "<td>" & RecSet("department") & "</td>" & VbCrlf
		Response.Write "</tr>" & VbCrlf
		RecSet.MoveNext
	Loop
Else
	Response.Write "<tr><td colspan=""8"">Record masih kosong!</td></tr>" & VbCrlf
End If

Response.Write "</table>" & VbCrlf

%>

Good Luck !!