Hello
I've just fixed a problem for myself, hope it well be useful for someone else using MSSQL database with different locale settings. Solution is to add some extra code to common asp:
Function MyCDate(val)
If VarType(val) = 8 Then 'vbString
Dim s
If Session.LCID = 1049 Then
s = Replace(val, ".", ",")
Else
s = Replace(val, ",", ".")
End If
MyCDate = CDate(s)
Else
MyCDate = CDate(val)
End If
End Function
Function UDate(val)
Dim v
v = MyCDate(val)
UDate = Year(v) & "/" & Month(v) & "/" & Day(v) & " " & TimeValue(v)
End Function
and fix at active topics.asp:
'Initialse the string to display when active topics are shown since
Select Case intShowTopicsFrom
Case 1
'Filter the recorset to leave only active topics since last vists (Filter used for overcome incompatibilty problems between application and database)
rsForum.Filter = "Last_entry_date > #" & UDate(Session("dtmLastVisit")) & "#"
case 2
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("n", -15, Now())) & "#"
case 3
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("n", -30, Now())) & "#"
Case 4
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("n", -45, Now())) & "#"
Case 5
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("h", -1, Now())) & "#"
Case 6
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("h", -2, Now())) & "#"
Case 7
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("h", -4, Now())) & "#"
Case 8
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("h", -6, Now())) & "#"
Case 9
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("h", -8, Now())) & "#"
Case 10
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("h", -12, Now())) & "#"
Case 11
rsForum.Filter = "Last_entry_date > #" & UDate(DateAdd("h", -16, Now())) & "#"
End Select
and also code to global.asa (need to be created)
<SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER>
Sub Session_OnStart()
Session.LCID = 1049
End Sub
</SCRIPT>
with this fixups all works fine in default russian server settings, possibli will in other locales
Topic Options
Post Options
Thanks(0)
