 |
|
| Miscellaneous
Used Machinery |
<%
Dim x, conntemp
x = 0
set conntemp=server.createobject("adodb.connection")
myDSN="DRIVER={Microsoft Access Driver (*.mdb)}; "
myDSN=myDSN & "DBQ=" & server.mappath("../../db/gbtgdb.mdb") & ";uid=admin;pwd=P@sca1"
conntemp.Open myDSN
SQL="SELECT * FROM USEDMACHINERYMISC ORDER BY TYPE"
set rs=conntemp.execute(SQL)
%>
| Type |
Model |
Quantity |
Age |
Enquire |
<% do while not rs.eof %>
<% If x = 0 Then
bgcol = "#FFFFFF"
end if
if x = 1 Then
bgcol = "#EFEFEF"
end if
%>
| <%=rs("TYPE")%> |
<%=rs("MODEL")%> |
<%=rs("QUANTITY")%> |
<%=rs("AGE")%> |
|
| Description |
<%=rs("DESCRIPTION")%> |
<%=rs("ID")%> |
<% if rs("image") <> "" then %>
','gbtg','scrollbars=yes,resizable=yes,width=555,height=400')">
<% end if %>
|
<%
if bgcol="#FFFFFF" Then
x = 1
end if
if bgcol="#EFEFEF" Then
x = 0
end if
%>
<% rs.movenext %>
<% loop %>
<%
rs.Close
Set rs = Nothing
conntemp.Close
Set conntemp = Nothing
%>
|
| [Home]
[About Us] [People] [Enquiries] [Contact Details] [News]
[Products] |
