<%
Function LeadingZero(Text)
If Len(Text) = 1 then
LeadingZero = "0" & Text
Else
LeadingZero = Text
End If
End Function
Function FixNull(Text)
If IsNull(Text) then
FixNull = ""
Else
FixNull = Text
End If
End Function
Function MonthName(MonthNumber)
Select Case MonthNumber
Case 1
MonthName = "January"
Case 2
MonthName = "February"
Case 3
MonthName = "March"
Case 4
MonthName = "April"
Case 5
MonthName = "May"
Case 6
MonthName = "June"
Case 7
MonthName = "July"
Case 8
MonthName = "August"
Case 9
MonthName = "September"
Case 10
MonthName = "October"
Case 11
MonthName = "November"
Case 12
MonthName = "December"
End Select
End Function
Function GetLastUpdated(FileName)
Dim fso, DT
Set fso = Server.CreateObject("Scripting.FileSystemObject")
DT = fso.GetFile(FileName).DateLastModified
GetLastUpdated = LeadingZero(Day(DT)) & " " & MonthName(Month(DT)) & " " & Year(DT) & " at " & LeadingZero(Hour(DT)) & ":" & LeadingZero(Minute(DT))
End Function
' Database Path
dim DBPath
DBPath = Server.MapPath("tracking.mdb")
' Connection String
Dim ConnStr
ConnStr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBPath
' Recordset to search
dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM Tracking Where WayBillNo = '" & trim(Request.Form("txtWayBill")) & "'", ConnStr, 3, 3, 1
%>
Pony (Malta) Package Tracking