<%@ LANGUAGE="VBSCRIPT"%> <% OPTION EXPLICIT DIM L_Guestbook, count, CursorType, rst, strQuery, StrSort, objConnection L_Guestbook = "Guest Book" ' Select the Data from the ODBC Source Set objConnection = Server.CreateObject("ADODB.Connection") objconnection.Open "Wayland" Function builddatestring (sentdate) Dim dateday, datenumber, datemonth, dateyear, daystring, daytitle, monthstring datenumber = DatePart("d", sentdate) dateday = DatePart("w",sentdate) datemonth = DatePart("m",sentdate) dateyear = DatePart("yyyy",sentdate) Select Case dateday Case "1" daystring = "Sunday" Case "2" daystring = "Monday" Case "3" daystring = "Tuesday" Case "4" daystring = "Wednesday" Case "5" daystring = "Thursday" Case "6" daystring = "Friday" Case "7" daystring = "Saturday" Case Else MsgBox "Ooops" End Select Select Case Right(datenumber, 1) Case "1" daytitle = "^st" Case "2" daytitle = "^nd" Case "3" daytitle = "^rd" Case Else daytitle = "^th" End Select Select Case datemonth Case "1" monthstring = "January" Case "2" monthstring = "February" Case "3" monthstring = "March" Case "4" monthstring = "April" Case "5" monthstring = "May" Case "6" monthstring = "June" Case "7" monthstring = "July" Case "8" monthstring = "August" Case "9" monthstring = "September" Case "10" monthstring = "October" Case "11" monthstring = "November" Case "12" monthstring = "December" Case Else MsgBox "Ooops" End Select builddatestring = datenumber & daytitle & " " & monthstring End Function Sub Pull_Data(tablename) strQuery ="SELECT * FROM " strQuery = strQuery & tablename strQuery = strQuery & " WHERE DateDiff('d',Now(),ReleaseDate)>-31 AND DateDiff('d',Now(),ReleaseDate)<1" StrSort = "Manufacturer, Series, Code" strQuery = strquery & " ORDER BY " & StrSort Set rst = objConnection.Execute(strQuery) Call Build_Table End Sub Function CheckPrices(listprice) Dim listprice_length, decimal_position listprice_length = Len(listprice) decimal_position = InStr(listprice, ".") If decimal_position <> 0 Then If listprice_length - decimal_position = 2 Then CheckPrices=listprice Else CheckPrices=listprice & "0" End If Else CheckPrices = listprice & ".00" End If End Function ' Function to output the data Sub Build_Table Dim strText, output, current_manufacturer, current_game strText = "" If rst.EOF Then response.Write "There are no recent releases in this category.

" Else ' Code to Output the Data current_manufacturer = rst("Manufacturer") current_game = rst("Series") response.write "

" & current_manufacturer & "

" response.write "

" & current_game & "

" response.write "" response.write "" response.write "" ' response.write "" response.write "" response.write "" response.write "" Do Until rst.EOF If rst("Manufacturer") = current_manufacturer Then if rst("Series") <> current_game Then current_game = rst("Series") response.write "

Description

Type

Series

Code

Price

Release Date

" response.write "

" & current_game & "

" response.write "" response.write "" response.write "" ' response.write "" response.write "" response.write "" response.write "" End If strText = "" strText = strText & "" If Len(rst("Description")) > 0 Then output = rst("Description") Else output = " " strText = strText & "" rst.MoveNext response.write strText Else current_manufacturer = rst("Manufacturer") current_game = rst("Series") response.write "

Description	Type	Series	Code	Price	Release Date
" & output If Len(rst("Type")) > 0 Then output = rst("Type") Else output = " " strText = strText & "	" & output If rst("Series")= "" Then output = " " Else output = rst("Series") ' If Len(rst("Series")) > 0 Then output = rst("Series") Else output = " " ' strText = strText & "	" & output If Len(rst("Code")) > 0 Then output = rst("Code") Else output = " " strText = strText & "	" & output output = "£" & CheckPrices(rst("RRP")) If output = "£0" then output = "£call" strText = strText & "	" & output output = builddatestring(rst("ReleaseDate")) strText = strText & "	" & output & "

" response.write "

" & current_manufacturer & "

" response.write "

" & current_game & "

" response.write "" response.write "" response.write "" ' response.write "" response.write "" response.write "" response.write "" End If Loop End If response.write "

Description

Type

Series

Code

Price

Release Date

" End Sub %> Special offers

There are currently no special offers to view