Subversion Repositories DevTools

Rev

Rev 5114 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5114 Rev 5157
Line 61... Line 61...
61
61
62 
	OraDatabase.Parameters.Remove "gbe_id"
 62 
	OraDatabase.Parameters.Remove "gbe_id"
63 
End Function
 63 
End Function
64 
'--------------------------------------------------------------------------------------------------------------------------
 64 
'--------------------------------------------------------------------------------------------------------------------------
65 
Sub RenderRepeatCombo( cRepeat )
 65 
Sub RenderRepeatCombo( cRepeat )
66
- 
 
67 
	Query_String = "select * from repeat_schedule"
 - 
 
68 
 
 - 
 
69 
	Response.Write "<select name='repeat_combo' class='form_item'>"
66 
	Response.Write "<select name='repeat_combo' class='form_item'>"
70
- 
 
71 
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 - 
 
72
- 
 
73 
	Response.Write "<option>Select Repeat Schedule</option>"
67 
    Response.write "<option value='0'>Once Only</option>"
74 
	While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
 - 
 
75
- 
 
76 
	If cRepeat = rsTemp.Fields("repeat") Then
 - 
 
77 
		Response.write "<option value='"& rsTemp.Fields("repeat") &"' selected>"& rsTemp.Fields("repeat") &"</option>"
 68 
    Response.write "<option value='1'>Daily</option>"
78 
	Else
 - 
 
79 
		Response.write "<option value='"& rsTemp.Fields("repeat") &"'>"& rsTemp.Fields("repeat") &"</option>"
 69 
    Response.write "<option value='7'>Weekly</option>"
80 
	End If
 - 
 
81 
	rsTemp.MoveNext
 - 
 
82 
	WEnd
 - 
 
83
- 
 
84 
	rsTemp.Close()
 - 
 
85 
	Set rsTemp = nothing
- 
 
86 
 
 - 
 
87 
 
 - 
 
88 
	Response.Write "</select>"
 70 
	Response.Write "</select>"
89 
End Sub
 71 
End Sub
90 
'--------------------------------------------------------------------------------------------------------------------------
 72 
'--------------------------------------------------------------------------------------------------------------------------
91 
%>
 73 
%>
92 
<%
 74 
<%
93 
'------------ RUN BEFORE PAGE RENDER ----------
 75 
'------------ RUN BEFORE PAGE RENDER ----------