Advertisement
Advertisement
| 02.20.2008 at 08:29AM PST, ID: 23178137 |
|
[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: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: |
<%
Response.Buffer = TRUE
If Request("REQUEST_METHOD") = "POST" Then
Dim rsReminder 'Recordset used to open the reminder
Dim DTStart 'meeting Start Date and Time - mm/dd/yy hh:nn am/pm
Dim DTEnd 'meeting End Date and Time - mm/dd/yy hh:nn am/pm
Dim Subject 'Subject of the meeting
Dim Location 'Location the meeting will be held
Dim txtDescription 'Full Description of the meeting
Dim Seats, Equip1, Reminder
Dim sDefaultFileName 'The file name that will be given to the stream sent to the user
'Set the file name
sDefaultFileName = "vcard.vcs"
DTStart = Request("DTStart")
DTEnd = Request("DTEnd")
Subject = Request("txtsubject")
Location = Request("txtlocation")
txtDescription = Request("txtDescription")
Seats = Request("txtseats")
Equip1 = Request("equip1")
Reminder = Request("txtreminder")
BaordroomEmail = Request("boardroommenu")
'If the user didnt enter anything in the text boxes then enter a default
If Subject = "" Then Subject = "(No Subject Given)"
If Location = "" Then Location = "(No Location Given)"
If txtDescription = "" Then txtDescription = ""
'Set the content to an stream so the user will be forced to Save/Open the file
sMIME = "application/octetstream"
' Tell the browse the content type
Response.ContentType = sMIME
'Set the name of the file
Response.AddHeader "Content-Disposition", "filename=" & sDefaultFileName & ";"
Response.Write "BEGIN:VCALENDAR" & vbCrLf
Response.Write "VERSION:1.0" & vbCrLf
Response.Write "BEGIN: VEVENT" & vbCrLf
Response.Write "DTStart:" & FormatDT(DTStart) & vbCrLf
Response.Write "DTEnd:" & FormatDT(DTEnd) & vbCrLf
Response.Write "Location;ENCODING=QUOTED-PRINTABLE:" & Location & vbCrLf
Response.Write "UID:" & FormatDT(DTStart) & FormatDT(DTEnd) & vbCrLf
Response.Write "DESCRIPTION;ENCODING=QUOTED-PRINTABLE:" & Seats & Equip1 & txtDescription & vbCrLf
Response.Write "SUMMARY;ENCODING=QUOTED-PRINTABLE:" & Subject & vbCrLf
Response.Write "PRIORITY:1" & vbCrLf
Response.Write "End:VEVENT" & vbCrLf
Response.Write "End:VCALENDAR" & vbCrLf
Response.End
End If
%>
FORM goes here
<%
'local functions used for operations on this page
Function FormatDT(sDT)
dim d,m,y,t
d = PadVal(DatePart("D",sDT),2,"0",True)
m = PadVal(DatePart("M",sDT),2,"0",True)
y = DatePart("YYYY",sDT)
t= Replace(FormatDateTime(sDT, vbShortTime),":","") & "00"
FormatDT = y & m & d & "T" & t
End Function
function PadVal(sVal,iAmt,sWith,bFront)
dim sReturn
sReturn = sVal
Do While len(sReturn) < iAmt
If bFront Then
sReturn = sWith & sReturn
Else
sReturn = sReturn & sWith
End If
Loop
PadVal = sReturn
end function
%>
|
