A selected list of executed projects:

<%tmp=Server.MapPath("/db/gital.mdb") strconnect="Driver={Microsoft Access Driver (*.mdb)};DBQ="&tmp set myconn=server.CreateObject("ADODB.connection") 'strconnect="DSN=gital" myconn.ConnectionTimeout=10 myconn.Open strconnect set rst=server.CreateObject("ADODB.Recordset") if request.querystring("id") <> "" then varid=request.querystring("id") if varid=1 then varcat="client" elseif varid=2 then varcat="Purchaser" elseif varid=3 then varcat="Place" elseif varid=4 then varcat="Lighting" elseif varid=5 then varcat="Transmission" elseif varid=6 then varcat="Current" elseif varid=7 then varcat="Application" elseif varid=8 then varcat="projYear" end if else varcat="id" end if str= "select * from Tblcustomer order by "& varcat rst.Open str,myconn,1,3, 1 while not rst.EOF%> <%rst.MoveNext wend rst.close set rst=nothing%>
Client's Name Purchaser's Name Name & Place of Project and Installation Year Lighting & Low Amp Distribution Busduct Transmission and Distribution Busduct Current(A) Application Year
<%if rst("client")="" then response.write(" ") else response.write(rst("client")) end if%> <%if rst("Purchaser")="" then response.write(" ") else response.write(rst("Purchaser")) end if%> <%if rst("Place")="" then response.write(" ") else response.write(rst("Place")) end if%> <%if rst("Lighting")="" then response.write(" ") else response.write(rst("Lighting")) end if%> <%if rst("Transmission")="" then response.write(" ") else response.write(rst("Transmission")) end if%> <%if rst("Current")="" then response.write(" ") else response.write(rst("Current")) end if%> <%if rst("Application")="" then response.write(" ") else response.write(rst("Application")) end if%> <%if rst("projYear")="" then response.write(" ") else response.write(rst("projYear")) end if%>

 

 

 

Copyright © 2003 Gital Company. All Rights Reserved. Designed By PKG internet Division.