 |
|
|
|
euroauctionslive is a great service, which allows you to bid for machines from your own computer in the comfort of your own home or office!
UK & Republic of Ireland First Time Buyers All First Time Buyers are required to bring the following: |
<%
' response.Buffer=true
'on error resume next
Set fs = server.CreateObject("scripting.filesystemobject")
dim path
path="db.mdb"
filename = Server.MapPath(path)
if fs.FileExists(filename) then
Set objConn= Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open GetConnectString
' if err.number<=0 then
'Response.Clear
sqlselect="select * from tblHome"
objRS.Open sqlselect, objConn, 1,1,1
Dim PictureName, ItemID, HeaderPicture, TableName, PictureClass, PictureSubClass, PictureMake
'if not objRS.bof
Do while not objRS.EOF
PictureName=objRS("PictureName")
ItemID=objRS("ItemID")
TableName=objRS("TableName")
'PictureClass=objRS("Class")
'PictureSubClass=objRS("SubClass")
'PictureMake=objRS("Make")
%>
<% objRS.movenext i=i+1 loop objRS.close else Dim n n=0 Do while n<3 %> | <% n=n+1 loop end if %> | |||||||