<%@ LANGUAGE="VBScript" %> CV Details <% start_time = Time %> <% Dim bonding_pattern(1536) Dim pad(1536) Dim row(1536) Dim column(1536) Dim capacitance(1536,10) Dim leakage_current(1536,10) Dim Bias(10) Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd Log_Query = "select batch,sensor,logdate,Measurement_type,Operator,Comments " Log_Query = Log_Query & "from sitester.sensor_log sl where sl.rowid='" Log_Query = Log_Query & Request("rowid_x") & "'" Set Slog = Connection.Execute(Log_Query) %> <% Type_Query="select (max(pad)+1) nchip, (max(bonding_pattern)+1) maxbp, max(bi.sensor_type) type,max(bi.mask_revision) mask " Type_Query=Type_Query & "from sitester.type_con tc,sitester.batch_info bi,sitester.sensor_log sl " Type_Query=Type_Query & "where sl.rowid='" & Request("rowid_x") & "' " Type_Query = Type_Query & "and sl.batch=bi.batch and tc.sensor_type=bi.sensor_type" Set Stype = Connection.Execute(Type_Query) If Not IsNull(Stype("nchip")) Then nchip=CInt(Stype("nchip")) maxbp=CInt(Stype("maxbp")) ntot=nchip*maxbp ctype=Sensor_Name(Stype("type"),Stype("mask")) Else nchip=128 maxbp=12 ntot=9999 ctype="unknown type" End If %> <% Bias_Query="select distinct round(abs(bias)) rbias from sitester.sensor sp,sitester.sensor_log sl " Bias_Query = Bias_Query & "where sl.rowid='" & Request("rowid_x") & "' " Bias_Query = Bias_Query & "and startdate=logdate" Set SBias = Connection.Execute(Bias_Query) nbias=0 Do While Not SBias.EOF Bias(nbias)=Cint(Sbias("rbias")) nbias=nbias+1 SBias.MoveNext Loop %> <% CV_Query="select sp.bonding_pattern,sp.pad,bias,capacitance,leakage_current,sensor_column,sensor_row from sitester.sensor sp,sitester.sensor_log sl,sitester.batch_info bi,sitester.type_con tc " CV_Query = CV_Query & "where sl.rowid='" & Request("rowid_x") & "' " CV_Query = CV_Query & "and startdate=logdate " CV_Query = CV_Query & "and sl.batch=bi.batch " CV_Query = CV_Query & "and bi.sensor_type=tc.sensor_type " CV_Query = CV_Query & "and tc.bonding_pattern=sp.bonding_pattern " CV_Query = CV_Query & "and tc.pad=sp.pad " CV_Query = CV_Query & " order by bonding_pattern,pad,abs(bias)" Set SCV = Connection.Execute(CV_Query) npads=0 ibias=0 old_bias=100000 Do While Not SCV.EOF abias=Round(Abs(Cint(SCV("bias"))),0) If old_bias > abias Then ' new bonding pad Bonding_pattern(npads)=Cint(SCV("bonding_pattern")) Pad(npads)=Cint(SCV("pad")) Column(npads)=Cint(SCV("sensor_column")) Row(npads)=Cint(SCV("sensor_row")) npads=npads+1 ibias=0 Else ibias=ibias+1 If ibias>nbias Then response.write("error in ibias") End If End If old_bias=abias If ibias<=nbias Then capacitance(npads-1,ibias)=Round((SCV("capacitance")),0) leakage_current(npads-1,ibias)=Round((0.001*CDbl(SCV("leakage_current"))),3) End If SCV.MoveNext Loop %>

Batch <%=Slog("batch")%>, sensor <%=Cstr(Slog("sensor")) & " (" & ctype & ") "%> CV Data (rounded to the nearest Volt and the nearest pF)

<% For j=0 to nbias-1 %> <% Next %> <% For i=0 to npads-1 %> <% For j=0 to nbias-1 %> <% Next %> <% Next %>
(Bond. pat.,Pad) (Column, Row)<%="@ " & Cstr(Bias(j)) & " [V]"%> <% Response.Write("Leakage Current at Vmax")%>
(<%=bonding_pattern(i)%>,<%=pad(i)%>) (<%=column(i)%>,<%=row(i)%>) <%=Cstr(capacitance(i,j))%> <%=Cstr(leakage_current(i,nbias-1))%>
<% Connection.Close %>