<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Terms & Conditions <% Set db = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") db.open "whitewells" Dim aryMonth(12) aryMonth(1) = "Jan" aryMonth(2) = "Feb" aryMonth(3) = "Mar" aryMonth(4) = "April" aryMonth(5) = "May" aryMonth(6) = "June" aryMonth(7) = "July" aryMonth(8) = "Aug" aryMonth(9) = "Sept" aryMonth(10) = "Oct" aryMonth(11) = "Nov" aryMonth(12) = "Dec" Dim aryMth_Gfx(12) aryMth_Gfx(1) = "january.gif" aryMth_Gfx(2) = "february.gif" aryMth_Gfx(3) = "march.gif" aryMth_Gfx(4) = "april.gif" aryMth_Gfx(5) = "may.gif" aryMth_Gfx(6) = "june.gif" aryMth_Gfx(7) = "july.gif" aryMth_Gfx(8) = "august.gif" aryMth_Gfx(9) = "september.gif" aryMth_Gfx(10) = "october.gif" aryMth_Gfx(11) = "november.gif" aryMth_Gfx(12) = "december.gif" %>
Close Window