<%
Dim Conn
Dim Rs
Dim curDir
Dim Index
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("Conn")
' Create ADO Recordset Component
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection = Conn
' Set Recordset PageSize so that it only holds 20 rows
Rs.PageSize = 20
' Get recordset
Rs.Source = "SELECT * FROM requirements WHERE activeYN=1 order by dateofclosing DESC"
Rs.Open
'This function is used to convert Date format from mm/dd/yyy to dd-mon-yyy
'developed by Rajeev Varier
Function DtCnv(Dt,n)
Dim Dat
Dim Str
Dim i, Lt, Mn
Dat=Trim(Dt)
For i=1 to Len(Dat)
If Mid(Dat,i,1)="/" or Mid(Dat,i,1)="-" then
Lt=Left(Dat,i-1)
Select Case CInt(Lt)
Case "1"
Mn="Jan"
Case "2"
Mn="Feb"
Case "3"
Mn="Mar"
Case "4"
Mn="Apr"
Case "5"
Mn="May"
Case "6"
Mn="Jun"
Case "7"
Mn="Jul"
Case "8"
Mn="Aug"
Case "9"
Mn="Sep"
Case "10"
Mn="Oct"
Case "11"
Mn="Nov"
Case "12"
Mn="Dec"
End Select
if n=1 then
DtCnv=Mn
exit for
elseif n=2 then
DtCnv=DtCnv2(Dat, Lt, i)
exit for
end if
end if
Next
End Function
Function DtCnv2(Dt, Mn, CurPos)
Dim j, x, Dy
For j=CInt(Curpos+1) to Len(Dt)
if Mid(Dt, j, 1)="/" or Mid(Dt, j, 1)="-" then
x= j-(Curpos+1)
Dy = Mid(Dt, Curpos+1, x)
DtCnv2=Dy
exit for
end if
next
End Function
%>
Our Requirements - Services
Listed below is our current requirements for services.
If u can supply us the following services, contact us through the
address given at the end of this page.
Code :
VRS0001
Date : 30 - August - 2003
Service Needed on : Subject of sevice
This is a sample text. This is a sample text. This is
a sample text. This is a sample text. This is a sample
text. This is a sample text. This is a sample text. This
is a sample text.
Last date of submission :
10 - September - 2003
Code :
VRS0002
Date : 25 - August - 2003
Service Needed on : Subject of sevice
This is a sample text. This is a sample text. This is
a sample text. This is a sample text. This is a sample
text. This is a sample text. This is a sample text. This
is a sample text.
Last date of submission :
05 - September - 2003
Contact us at : requirements@voltageqatar.com
Copyright 2003 @ Voltage Engineering Limited.
All rights reserved.
