Advertisement
Advertisement
| 06.05.2008 at 11:43AM PDT, ID: 23461437 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: |
<%
PPDate = Request.Form("PPDate")
If PPDate <> "" Then
tempYear = Year(PPDate) 'Request year from text box
tempMonth = Month(PPDate) 'Request Month from text box
tempDay = Day(PPDate) 'Request Day from text box
PPDate = tempMonth & "/" & tempDay & "/" & tempYear
end if
%>
<%
Dim Missing_Paperwk_Listings__MMColParam
Missing_Paperwk_Listings__MMColParam = ""
If (Request.Form("PPDate") <> "") Then
Missing_Paperwk_Listings__MMColParam = PPDate
End If
%>
<%
Dim Missing_Paperwk_Listings
Dim Missing_Paperwk_Listings_cmd
Dim Missing_Paperwk_Listings_numRows
Set Missing_Paperwk_Listings_cmd = Server.CreateObject ("ADODB.Command")
Missing_Paperwk_Listings_cmd.ActiveConnection = MM_Main_STRING
first = true
if (Missing_Paperwk_Listings__MMColParam <> "") then
if (first) then
text_sql = " WHERE "
first = false
else
text_sql = text_sql & " AND "
end if
text_sql = text_sql & "Paperwork_Date = " & Missing_Paperwk_Listings__MMColParam & " "
response.Write(text_sql & "<br/>")
end if
text_sql = "SELECT * FROM QRY_Missing_Paperwork " & text_sql
text_sql = text_sql & " ORDER BY Date_Submited DESC"
Missing_Paperwk_Listings_cmd.CommandText = text_sql
Missing_Paperwk_Listings_cmd.Prepared = true
Set Missing_Paperwk_Listings = Missing_Paperwk_Listings_cmd.Execute
Missing_Paperwk_Listings_numRows = 0
%>
|