Gital Company

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