<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Conn ' Open Database Connection
Dim RS ' Open Record Set
Dim SQL ' SQL statement
Dim StrParam ' Past the from querry string
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open conn3
StrParam = Request.QueryString("destination")
SQL = "SELECT * FROM destinations ORDER BY name"
RS.Open SQL,Conn,3,1
On Error Resume Next
%>
Kuching, Sarawak
<%
'-------------------------------------------------------------------------------
' Purpose: Converts month number to month abbreviation
' Inputs: xStr = the month number
' Returns: The month abbreviation
'-------------------------------------------------------------------------------
Function MonthAbbrev( xStr )
If Trim( xStr ) = "" OR IsNull( Trim( xStr )) OR CInt( xStr ) < 1 OR CInt( xStr ) > 12 Then
MonthAbbrev = xStr
Else
Select Case CInt( xStr )
Case 1
MonthAbbrev = "January"
Case 2
MonthAbbrev = "February"
Case 3
MonthAbbrev = "March"
Case 4
MonthAbbrev = "April"
Case 5
MonthAbbrev = "May"
Case 6
MonthAbbrev = "June"
Case 7
MonthAbbrev = "July"
Case 8
MonthAbbrev = "August"
Case 9
MonthAbbrev = "September"
Case 10
MonthAbbrev = "October"
Case 11
MonthAbbrev = "November"
Case 12
MonthAbbrev = "December"
End Select
End If
End Function
%>
