Her er hele min asp kode:
<!--#include file = "codelibrary.asp"-->
<%
Call PageTop()
'Sort field
QStrSF = Trim(Request.QueryString("sf"))
'Sort order
QStrSO = Trim(Request.QueryString("so"))
'From date
QStrFromDate = Trim(Request("fd"))
'To date
QStrToDate = Trim(Request("td"))
'Search date field
QStrDateField = Trim(Request("datefield"))
If QStrDateField <> "" Then
If CStr(QStrDateField) = "DateFld" Then
StrRadioDateFldChecked = "CHECKED"
ElseIf CStr(QStrDateField) = "ExpireDateFld" Then
StrRadioExpDateFldChecked = "CHECKED"
End If
If IsDate(QStrFromDate) AND IsDate(QStrToDate) Then
StrWhere = QStrDateField & " >= '" & SQLDateFormated(CDate(QStrFromDate)) & "' AND " & QStrDateField & " <= '" & SQLDateFormated(CDate(QStrToDate)) & "'"
End If
Else
StrRadioDateFldChecked = "CHECKED"
End If
'Search certno.
QStrCertNo = Trim(Request("certno"))
If QStrCertNo <> "" Then
StrWhere = "CertNo like '%" & QStrCertNo & "%'"
End If
'Search orderno.
QStrOrderNo = Trim(Request("orderno"))
If QStrOrderNo <> "" Then
StrWhere = "DataFld50 like '%" & QStrOrderNo & "%'"
End If
'TBH 21.03.2007 Search OrderConcerning.
QStrOrderConcerning = Trim(Request("OrderConcerning"))
If QStrOrderConcerning <> "" Then
StrWhere = "DataFld36 like '%" & QStrOrderConcerning & "%'"
End If
If QStrSO <> "" Then
SortOrder = QStrSO
If CStr(UCase(SortOrder)) = "ASC" Then
SOInverted = "DESC"
Else
SOInverted = "ASC"
End If
Else
SortOrder = "ASC"
SOInverted = "DESC"
End If
If QstrSF <> "" Then
SortField = QStrSF
Else
SortField = "DateFld"
End If
Response.Write "<SCRIPT LANGUAGE=""JavaScript"">" & vbcrlf
Response.Write "function Confirm(URL, txt)" & vbcrlf
Response.Write " {" & vbcrlf
Response.Write " if(confirm(""Are you sure you want to delete this certificate - ""+txt+"" - including any sub-certificates?"")) location.href = URL;" & vbcrlf
Response.Write " }" & vbcrlf
Response.Write "function ConfirmSub(URL, txt)" & vbcrlf
Response.Write " {" & vbcrlf
Response.Write " if(confirm(""Are you sure you want to delete this sub-certificate?"")) location.href = URL;" & vbcrlf
Response.Write " }" & vbcrlf
Response.Write "</SCRIPT>" & vbcrlf
Response.Write "<form action='' method='get'>" & vbcrlf
Response.Write "<table cellspacing='1' cellpadding='10' border='0' style='border: 1px solid #808080; background-color: #fafafa;'>" & vbcrlf
Response.Write " <tr>" & vbcrlf
Response.Write " <td valign='top' style='border-right: 1px solid #808080;'><font face='Verdana' size='1' color='#808080'>CertificateNo.only</font><br><input type='text' name='certno' size='12' value='" & QStrCertNo & "'></td>" & vbcrlf
Response.Write " <td valign='top' style='border-right: 1px solid #808080;'><font face='Verdana' size='1' color='#808080'>OrderNo. only</font><br><input type='text' name='orderno' size='12' value='" & QStrOrderNo & "'></td>" & vbcrlf
'TBH 21.03.2007
Response.Write " <td valign='top' style='border-right: 1px solid #808080;'><font face='Verdana' size='1' color='#808080'>OrderConcerning</font><br><input type='text' name='OrderConcerning' size='12' value='" & QStrOrderConcerning & "'></td>" & vbcrlf
Response.Write " <td valign='top'>" & vbcrlf
Response.Write " <font face='Verdana' size='1' color='#808080'>From date (DD-MM-YYYY)</font><br><input type='text' name='fd' size='10' value='" & QStrFromDate & "'><br>" & vbcrlf
Response.Write " <font face='Verdana' size='1' color='#808080'>To date (DD-MM-YYYY)</font><br><input type='text' name='td' size='10' value='" & QStrToDate & "'><br>" & vbcrlf
Response.Write " <input type='radio' name='DateField' value='DateFld' " & StrRadioDateFldChecked & "><font face='Verdana' size='1' color='#808080'>Date</font> <input type='radio' name='DateField' value='ExpireDateFld' " & StrRadioExpDateFldChecked & "><font face='Verdana' size='1' color='#808080'>Expiredate</font>" & vbcrlf
Response.Write " </td>" & vbcrlf
Response.Write " <td valign='bottom'><input type='submit' value='Search'></td>" & vbcrlf
Response.Write " </tr>" & vbcrlf
Response.Write "</table>" & vbcrlf
Response.Write "</form>" & vbcrlf
'12122007
iPageSize = ConstCertlistPagingSize ' You could easily allow users to change this
If Request.QueryString("pg") = "" Then
iPageCurrent = 1
Else
iPageCurrent = Int(Request.QueryString("pg"))
End If
Set Rs = Server.CreateObject("ADODB.Recordset")
If StrWhere <> "" Then
SQL = "SELECT * FROM CerfTbl X WHERE DateFld = (SELECT MAX (DateFld) FROM CerfTbl WHERE CertNo = X.CertNo) ORDER BY CertNo, DateFld"
Else
'List all certificates for this customer
SQL = "SELECT * FROM CerfTbl X WHERE DateFld = (SELECT MAX (DateFld) FROM CerfTbl WHERE CertNo = X.CertNo) ORDER BY CertNo, DateFld"
End If
'12122007
Rs.CursorLocation = 3 'adUseClient
Rs.CursorType = 3 'adOpenStatic
Rs.ActiveConnection = Conn
Rs.Open SQL
Rs.PageSize = iPageSize
Rs.CacheSize = iPageSize
'12122007
iPageCount = Rs.PageCount
intRecordCount = Rs.RecordCount
' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If Rs.EOF or intRecordCount = 0 Then
Response.Write "<pre>No certificates found</pre>" & vbcrlf
Else
'12122007
' Move to the selected page
Rs.AbsolutePage = iPageCurrent
' Start output with a page x of n line
Response.Write "<p>"
Response.Write "<font face='Verdana' size='2' color='#000000'>Page <strong>" & iPageCurrent & "</strong>"
Response.Write " of <strong>" & iPageCount & "</strong></font>"
Response.Write "</p>"
Response.Write "<table cellspacing='1' cellpadding='2' border='0' width='100%'>" & vbcrlf
Response.Write " <tr>" & vbcrlf
Response.Write " <td OnClick=""document.location='cerflist.asp?sf=DateFld&so=" & SOInverted & "';"" style='border-bottom: 1px solid #808080; cursor: hand;' Title='Sort this column'><font face='Verdana' size='1' color='#808080'>" & GetFieldName("CerfTbl", "DateFld") & "</font></td>" & vbcrlf
Response.Write " <td OnClick=""document.location='cerflist.asp?sf=CertNo&so=" & SOInverted & "';"" style='border-bottom: 1px solid #808080; cursor: hand;'><font face='Verdana' size='1' color='#808080; cursor: hand;' Title='Sort this column'>" & GetFieldName("CerfTbl", "CertNo") & "</font></td>" & vbcrlf
Response.Write " <td OnClick=""document.location='cerflist.asp?sf=ExpireDateFld&so=" & SOInverted & "';"" style='border-bottom: 1px solid #808080; cursor: hand;'><font face='Verdana' size='1' color='#808080; cursor: hand;' Title='Sort this column'>" & GetFieldName("CerfTbl", "ExpireDateFld") & "</font></td>" & vbcrlf
Response.Write " <td OnClick=""document.location='cerflist.asp?sf=DataFld50&so=" & SOInverted & "';"" style='border-bottom: 1px solid #808080; cursor: hand;'><font face='Verdana' size='1' color='#808080; cursor: hand;' Title='Sort this column'>" & GetFieldName("CerfTbl", "DataFld50") & "</font></td>" & vbcrlf
'TBH 21.03.2007
Response.Write " <td OnClick=""document.location='cerflist.asp?sf=DataFld36&so=" & SOInverted & "';"" style='border-bottom: 1px solid #808080; cursor: hand;'><font face='Verdana' size='1' color='#808080; cursor: hand;' Title='Sort this column'>" & GetFieldName("CerfTbl", "DataFld36") & "</font></td>" & vbcrlf
Response.Write " <td OnClick=""document.location='cerflist.asp?sf=DataFld01&so=" & SOInverted & "';"" style='border-bottom: 1px solid #808080; cursor: hand;'><font face='Verdana' size='1' color='#808080; cursor: hand;' Title='Sort this column'>" & GetFieldName("CerfTbl", "DataFld01") & "</font></td>" & vbcrlf
Response.Write " <td OnClick=""document.location='cerflist.asp?sf=DataFld02&so=" & SOInverted & "';"" style='border-bottom: 1px solid #808080; cursor: hand;'><font face='Verdana' size='1' color='#808080; cursor: hand;' Title='Sort this column'>" & GetFieldName("CerfTbl", "DataFld02") & "</font></td>" & vbcrlf
Response.Write " <td style='border-bottom: 1px solid #808080;'><font face='Verdana' size='1' color='#808080;'>HTML</font></td>" & vbcrlf
Response.Write " <td style='border-bottom: 1px solid #808080;'><font face='Verdana' size='1' color='#808080;'>PDF</font></td>" & vbcrlf
Response.Write " <td style='border-bottom: 1px solid #808080;'><font face='Verdana' size='1' color='#808080;'>Renew</font></td>" & vbcrlf
'TBH 21.03.2007
Response.Write " <td style='border-bottom: 1px solid #808080;'><font face='Verdana' size='1' color='#808080;'>Del.</font></td>" & vbcrlf
Response.Write " </tr>" & vbcrlf
counter = 0
'12122007
For j = 1 to Rs.PageSize
counter = counter + 1
If counter mod 2 = 0 Then
CellColor = "#efefef"
Else
CellColor = "#fafafa"
End If
IntDateDiff = DateDiff("d", Date(), CDate(Rs("ExpireDateFld")), vbMonday)
'Status : RENEW - Red
If IntDateDiff <= 0 Then
StatusColor = "#ff0000"
RenewOption = True
'Status : ATTENTION - Yellow
ElseIf IntDateDiff <= GlobalCertYellowStatus AND IntDateDiff >= 1 Then
StatusColor = "#FFCC00"
RenewOption = True
'Status : OK - Green
Else
StatusColor = "#009900"
' {TBH 21.03.2007}
' RenewOption = False
RenewOption = True
End If
'onClick=""document.location='displayPDF.aspx?ID=" & Rs("RecID") & "';"" title='Get this certificate'
Response.Write " <tr onMouseOver=""this.style.backgroundColor = '#FFFFCC';"" onMouseOut=""this.style.backgroundColor = '" & CellColor & "';"" style='background-color: " & CellColor & ";'>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='#000000'><nobr>" & Rs("DateFld") & "</nobr></font></td>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='#000000'>" & Rs("CertNo") & "</font></td>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='" & StatusColor & "'><nobr><b>" & Rs("ExpireDateFld") & "</b> (" & IntDateDiff & " days)</nobr></font></td>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='#000000'>" & Rs("DataFld50") & "</font></td>" & vbcrlf
'TBH 21.03.2007
Response.Write " <td><font face='Verdana' size='1' color='#000000'>" & Rs("DataFld36") & "</font></td>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='#000000'>" & Rs("DataFld01") & "</font></td>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='#000000'>" & Rs("DataFld02") & "</font></td>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='#000000'><a href='displaycerfHTML.asp?ID=" & Rs("RecID") & "' target='_blank' title='Show HTML of this certificate'>HTML</a></td>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='#000000'><a href='displaycerfPDF.asp?ID=" & Rs("RecID") & "' target='_blank' title='Show PDF of this certificate'>PDF</a></td>" & vbcrlf
If RenewOption = True Then
Response.Write " <td><font face='Verdana' size='1' color='#000000'><a href='renewcerf.asp?ID=" & Rs("RecID") & "' target='_blank' title='Send renew request for this certificate'>Renew</a></td>" & vbcrlf
Else
Response.Write " <td><font face='Verdana' size='1' color='#808080'>Renew</font></td>" & vbcrlf
End If
'TBH 21.03.2007
'Response.Write " </tr>" & vbcrlf
Response.Write " <td align='center'><img src='img/icon_delete.gif' border='0' OnClick=""Confirm('deletecerf.asp?CertNo=" & Rs("CertNo") & "', '" & Rs("CertNo") & "');"" title='Delete this certificate (including any sub-certificates)'></a></td>" & vbcrlf
Response.Write " </tr>" & vbcrlf
If Rs("NoOfSubCerfs") > 0 Then
Response.Write " <tr style='background-color: " & CellColor & ";'>" & vbcrlf
Response.Write " <td><font face='Verdana' size='1' color='#000000'> </font></td>" & vbcrlf
Response.Write " <td colspan='8'><font face='Verdana' size='1' color='#000000'>"
SQL = "SELECT * FROM CerfTbl WHERE (FatherCertNo = '" & Rs("CertNo") & "')"
Set RsSub = Conn.Execute(SQL)
While NOT RsSub.EOF
Response.Write "<img src='img/down.gif' align='absmiddle'> <a href='cerflib/" & RsSub("DataFld02") & "' target='_blank' title='Get this sub-certificate'>" & RsSub("DataFld01") & " (" & RsSub("DateCreated") & ")</a> " & vbcrlf
' <img src='img/icon_delete.gif' border='0' align='absmiddle' OnClick=""ConfirmSub('deletesubcerf.asp?RecID=" & RsSub("RecID") & "');"" title='Delete this sub-certificate'></a>
RsSub.MoveNext()
Wend
Set RsSub = Nothing
Response.Write " </font></td>" & vbcrlf
Response.Write " </tr>" & vbcrlf
End If
Rs.MoveNext
If Rs.EOF Then Exit for
Next
Response.Write "</table>" & vbcrlf
'12122007
If iPageCurrent > 1 Then
Response.Write "<font face='Verdana' size='2' color='#000000'><a href='cerflist.asp?pg=" & iPageCurrent - 1 & "&" & Replace(Request.QueryString, "pg=" & iPageCurrent & "&", "") & "'>[<< Prev]</a> </font>"
End If
If iPageCount > 1 Then
For I = 1 To iPageCount
If I = iPageCurrent Then
Response.Write "<font face='Verdana' size='2' color='#000000'><b>" & I & "</b> </font>"
Else
Response.Write "<font face='Verdana' size='2' color='#000000'><a href='cerflist.asp?pg=" & I & "&" & Replace(Request.QueryString, "pg=" & iPageCurrent & "&", "") & "'>" & I & "</a> </font>"
End If
Next 'I
End If
If iPageCurrent < iPageCount Then
Response.Write "<font face='Verdana' size='2' color='#000000'><a href='cerflist.asp?pg=" & iPageCurrent + 1 & "&" & Replace(Request.QueryString, "pg=" & iPageCurrent & "&", "") & "'>[Next >>]</a></font>"
End If
End If
Set Rs = Nothing
Call PageBottom()
%>
