<% Response.ContentType = "application/vnd.ms-excel" %> <% Response.ContentType = "application/vnd.ms-excel" set conntemp=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("/stevesmith/data/timesheet.mdb") conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath set RS=conntemp.execute("select * from donut") %> <% ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' % Loop through Fields Names and print out the Field Names ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% j = 2 'row counter For i = 0 to RS.Fields.Count - 1 %> <% Next %> <% ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' % Loop through rows, displaying each field ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Do While Not RS.EOF %> <% For i = 0 to RS.Fields.Count - 1 %> <% Next %> <% RS.MoveNext j = j + 1 Loop ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ' % Make sure to close the Result Set and the Connection object ' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% RS.Close %>
<% = RS(i).Name %>IMEI (calculated) ICCID(calculated)
<% = RS(i) %>=b<%=j%>-c<%=j%>-d<%=j%> =d<%=j%>*e<%=j%>
Totals =SUM(B2:B6) =SUM(C2:C6) =SUM(D2:D6) n/a =SUM(F2:F6) =SUM(G2:G6)
Paso uno
Site hosted by Angelfire.com: Build your free website today!
Usuario: UNIVE
Datos de Activación
CIUDAD: DISTRIBUIDOR: PRODUCTO:
UNIVE
ICCID: IMEI:
1
2
3
4
5
6
7
8
9
10