<% 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.