100+ results results for 'record source:Github lang:ASP repo:laironald/earshare' (172 ms)
12 var JobDescription = String(Request.Form("JobDescription"))
13 var rsEmployment = Server.CreateObject("ADODB.Recordset");
14 rsEmployment.ActiveConnection = MM_cnnASP02_STRING;
23
24var rsClient = Server.CreateObject("ADODB.Recordset");
25rsClient.ActiveConnection = MM_cnnASP02_STRING;
31
32var rsWorkType = Server.CreateObject("ADODB.Recordset");
33rsWorkType.ActiveConnection = MM_cnnASP02_STRING;
39
40var rsEmploymentType = Server.CreateObject("ADODB.Recordset");
41rsEmploymentType.ActiveConnection = MM_cnnASP02_STRING;
49
50var rsCompany = Server.CreateObject("ADODB.Recordset");
51rsCompany.ActiveConnection = MM_cnnASP02_STRING;
index.asp git://github.com/evizitei/bcfpd_asp.git | ASP | 192 lines
13
14set rsCategory = Server.CreateObject("ADODB.Recordset")
15strNode = "SELECT * FROM Image_Category"
40
41' If there is a request to update the new record, update the new record.
42If Request.Form("Submit") = "Update Category" Then
53
54' If there is a request to update an existing record, update the existing record.
55If Request.Form("Submit") = "Update Existing Category" Then
79
80 ' If there is a request to add new record, add new record.
81 If Request.Form("Submit") = "Add New Category" Then
85
86 ' If there is a request by clicking a hyper link, open the recordset and grab the selected record.
87 If Request.QueryString("Category_ID") <> "" Then
include.asp https://github.com/kneath/nightfire.git | ASP | 346 lines
99'---- CursorOptionEnum Values ----
100Const adHoldRecords = &H00000100
101Const adMovePrevious = &H00000200
184
185'---- RecordStatusEnum Values ----
186Const adRecOK = &H0000000
228Const adFilterNone = 0
229Const adFilterPendingRecords = 1
230Const adFilterAffectedRecords = 2
230Const adFilterAffectedRecords = 2
231Const adFilterFetchedRecords = 3
232Const adFilterPredicate = 4
277Const adErrInvalidArgument = &Hbb9
278Const adErrNoCurrentRecord = &Hbcd
279Const adErrIllegalOperation = &Hc93
Preview.asp https://github.com/joechen2010/health.git | ASP | 196 lines
54
55 Set RS=Server.CreateObject("ADODB.RecordSet")
56 If ProductList<>"" Then
User_EnterPriseNews.asp https://github.com/joechen2010/health.git | ASP | 203 lines
56 Response.Write "【新闻列表】<br/>" &vbcrlf
57 Set RS=Server.CreateObject("AdodB.Recordset")
58 RS.open sql,Conn,1,1
61 Else
62 totalPut = RS.RecordCount
63 If CurrentPage < 1 Then CurrentPage = 1
131 If KS.S("Action")="Edit" Then
132 Dim KS_A_RS_Obj:Set KS_A_RS_Obj=Server.CreateObject("ADODB.RECORDSET")
133 KS_A_RS_Obj.Open "Select * From KS_EnterPriseNews Where ID=" & KS.ChkClng(KS.S("ID")),Conn,1,1
178 End IF
179 Set RSObj=Server.CreateObject("Adodb.Recordset")
180 RSObj.Open "Select * From KS_EnterpriseNews Where UserName='" & KSUser.UserName & "' And ID=" & KS.ChkClng(KS.S("ID")),Conn,1,3
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 244 lines
10
11' 2. Create a Recordset Object
12Set rsApplicant = Server.CreateObject("ADODB.Recordset")
13
14' If there is a request to delete, delete the record.
15'If Request.Form("Submit") = "Delete Contact" Then
User_LogEdays.asp https://github.com/joechen2010/health.git | ASP | 122 lines
70 End if
71 Set RS=Server.createobject("adodb.recordset")
72 RS.open SqlStr,conn,1,1
75 Else
76 TotalPut=rs.recordcount
77 If (TotalPut Mod MaxPerPage)=0 Then
m020e0202.asp git://github.com/boss2009/ASP-site.git | ASP | 80 lines
5<%
6var rsResponseHistory = Server.CreateObject("ADODB.Recordset");
7rsResponseHistory.ActiveConnection = MM_cnnASP02_STRING;
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 195 lines
9
10' Create a recordset object called rsNodes.
11 set rsNodes = Server.CreateObject("ADODB.Recordset")
25
26' If there is a request to update the new record, update the new record.
27If Request.Form("Submit") = "Update Contact" Then
38
39' If there is a request to update an existing record, update the existing record.
40If Request.Form("Submit") = "Update Existing Contact" Then
74
75 ' If there is a request to add new record, add new record.
76 If Request.Form("Submit") = "Add New Contact" Then
80
81 ' If there is a request by clicking a hyper link, open the recordset and grab the selected record.
82 If Request.QueryString("Contact_ID") <> "" Then
m001r0103.asp git://github.com/boss2009/ASP-site.git | ASP | 404 lines
6// retrieve the sort columns
7var rsCol = Server.CreateObject("ADODB.Recordset");
8rsCol.ActiveConnection = MM_cnnASP02_STRING;
15// retrieve only the B-code service type + Jun.16.2004
16var rsServiceType = Server.CreateObject("ADODB.Recordset");
17rsServiceType.ActiveConnection = MM_cnnASP02_STRING;
265// -----------------------------------------
266 var rsServiceTypeEPPD = Server.CreateObject("ADODB.Recordset");
267 rsServiceTypeEPPD.ActiveConnection = MM_cnnASP02_STRING;
283
284 var rsServiceTypeSSB = Server.CreateObject("ADODB.Recordset");
285 rsServiceTypeSSB.ActiveConnection = MM_cnnASP02_STRING;
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 115 lines
17 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
18 set rs = server.CreateObject("ADODB.Recordset")
19
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 75 lines
7
8Set rsApplicant = Server.CreateObject("ADODB.Recordset")
9
9
10' If there is a request to delete, delete the record.
11'If Request.Form("Submit") = "Delete Contact" Then
search.asp https://github.com/74hu/74hujz.git | ASP | 141 lines
27sear=getN("sear",0)
28set rs=Server.CreateObject("ADODB.Recordset")
29if sear=1 then
40gopage="search.asp?keyword="&keyword&"&sear="&sear&"&"
41Count=rs.recordcount
42page=getN("page",0)
103sear=getN("sear",0)
104set rs=Server.CreateObject("ADODB.Recordset")
105if sear=1 then
114gopage="search.asp?keyword="&keyword&"&sear="&sear&"&"
115Count=rs.recordcount
116page=getN("page",0)
classaddcl.asp https://github.com/74hu/74hujz.git | ASP | 162 lines
34call conndata
35set rs=server.createobject("adodb.recordset")
36 sql="select * from 74hu_list"
index_old.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 232 lines
9
10' 2. Create a Recordset Object
11Set rsApplicant = Server.CreateObject("ADODB.Recordset")
12
13' 4. If there is a request to update the new record, update the new record
14If Request.Form("Submit") = "Submit" Then
intro.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 169 lines
7
8' Create a recordset object called rsNodes.
9 set rsNodes = Server.CreateObject("ADODB.Recordset")
23
24' If there is a request to update the new record, update the new record.
25If Request.Form("Submit") = "Update Calendar" Then
36
37' If there is a request to update an existing record, update the existing record.
38If Request.Form("Submit") = "Update Existing Calendar" Then
62 set rsNodes = Server.CreateObject("ADODB.Recordset")
63 ' If there is a request to add new record, add new record.
64 If Request.Form("Submit") = "Add New Calendar" Then
68
69 ' If there is a request by clicking a hyper link, open the recordset and grab the selected record.
70 If Request.QueryString("Node_ID") <> "" Then
editclass.asp https://github.com/74hu/74hujz.git | ASP | 230 lines
30call conndata
31set rs=server.createobject("adodb.recordset")
32rs.open "select * from 74hu_class where classid="&id,conn,1,1
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 242 lines
15
16' 2. Create a Recordset Object
17Set rsIncident = Server.CreateObject("ADODB.Recordset")
21
22' 4. If there is a request to update the new record, update the new record
23If Request.Form("Submit") = "Update Incident" Then
39
40' If there is a request to update an existing record, update the existing record.
41If Request.Form("Submit") = "Update Existing Incident" Then
69
70 ' 6. If there is a request to add new record, add new record
71 If Request.Form("Submit") = "Add New Incident" Then
75
76 ' 7. If there is a request by clicking a hyper link, open the recordset and grab the selected record
77 If Request.QueryString <> "" Then
DownLoad.asp https://github.com/joechen2010/health.git | ASP | 313 lines
56 SqlStr= "Select a.*,ClassPurview From " & KS.C_S(ChannelID,2) & " a inner join ks_class b on a.tid=b.id Where a.ID=" & ID
57 Set RSObj=Server.CreateObject("Adodb.Recordset")
58 RSObj.Open SqlStr,Conn,1,3
152 Else
153 Set Rs = Server.CreateObject("ADODB.Recordset")
154 SQL = "SELECT top 1 AllDownHits,DayDownHits,HitsTime FROM KS_DownSer WHERE downid="& KS.ChkClng(KS.S("Sid"))
168
169 Dim RS_S:Set RS_S=Server.CreateObject("ADODB.RECORDSET")
170 RS_S.Open "Select IsOuter,DownloadPath,UnionID From KS_DownSer Where DownID=" & KS.ChkClng(KS.S("Sid")),Conn,1,1
254 Dim SqlStr:SqlStr="Select top 1 Times From KS_LogPoint Where ChannelID=" & ChannelID & " And InfoID=" & ID & " And InOrOutFlag=2 and UserName='" & KSUser.UserName & "' And (" & Param & ") Order By ID"
255 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
256 RS.Open SqlStr,conn,1,3
MoreGroup.asp https://github.com/joechen2010/health.git | ASP | 97 lines
63 If KS.S("key")<>"" Then Param=Param & " and TeamName like '%" & KS.R(KS.S("key")) &"%'"
64 Dim RSObj:Set RSObj=Server.CreateObject("ADODB.RECORDSET")
65 RSObj.Open "select a.*,b.classname from KS_team a inner join ks_teamclass b on a.classid=b.classid " & Param & " order by id desc",Conn,1,1
68 Else
69 TotalPut = RSObj.RecordCount
70 If CurrentPage < 1 Then CurrentPage = 1
m018q0321.asp git://github.com/boss2009/ASP-site.git | ASP | 277 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsInstitutionType_total=0; !rsInstitutionType.EOF; rsInstitutionType.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
112<%
113// *** Move To Record: if we dont know the record count, check the display range
114
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
m018q0365.asp git://github.com/boss2009/ASP-site.git | ASP | 278 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsShippingMethod_total=0; !rsShippingMethod.EOF; rsShippingMethod.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
112<%
113// *** Move To Record: if we dont know the record count, check the display range
114
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
m001q0603.asp git://github.com/boss2009/ASP-site.git | ASP | 282 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsGrant_total=0; !rsGrant.EOF; rsGrant.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
150<%
151// *** Move To Record: update recordset stats
152
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
m008a0301.asp git://github.com/boss2009/ASP-site.git | ASP | 210 lines
15 case "GetInventory":
16 var rsInventory = Server.CreateObject("ADODB.Recordset");
17 rsInventory.ActiveConnection = MM_cnnASP02_STRING;
26 var Comments = String(Request.Form("Comments")).replace(/'/g, "''");
27 var rsInventoryLoan = Server.CreateObject("ADODB.Recordset");
28 rsInventoryLoan.ActiveConnection = MM_cnnASP02_STRING;
37
38var rsStatus = Server.CreateObject("ADODB.Recordset");
39rsStatus.ActiveConnection = MM_cnnASP02_STRING;
image_list.asa https://github.com/evizitei/bcfpd_asp.git | ASP | 167 lines
15 Set fs = CreateObject("Scripting.FileSystemObject")
16 set rsImgCat = Server.CreateObject("ADODB.Recordset")
17 set rsImage = Server.CreateObject("ADODB.Recordset")
26
27 'NumOfCats = rsImgCat.RecordCount
28 'Response.Write(NumOfCats)
store_edit.asp https://github.com/semious/dynacomcorp.git | ASP | 242 lines
18flag=0
19set rs =server.createobject("adodb.recordset")
20edit=trim(request("action"))
149 if edit="edit" then
150 set fs=server.createobject("adodb.recordset")
151 sql="select * from distributor where id = " & id
m018e0328.asp git://github.com/boss2009/ASP-site.git | ASP | 96 lines
13 var IsActive = ((Request.Form("IsActive")=="1") ? "1":"0");
14 var rsFundingSource = Server.CreateObject("ADODB.Recordset");
15 rsFundingSource.ActiveConnection = MM_cnnASP02_STRING;
15 rsFundingSource.ActiveConnection = MM_cnnASP02_STRING;
16 rsFundingSource.Source = "{call dbo.cp_Funding_Source3("+ Request.Form("MM_recordId") + ",'" + Description + "'," + IsActive + ",0,'E',0)}";
17 rsFundingSource.CursorType = 0;
23
24var rsFundingSource = Server.CreateObject("ADODB.Recordset");
25rsFundingSource.ActiveConnection = MM_cnnASP02_STRING;
89<input type="hidden" name="MM_update" value="true">
90<input type="hidden" name="MM_recordId" value="<%= rsFundingSource.Fields.Item("insFunding_source_id").Value %>">
91</form>
Index.asp https://github.com/joechen2010/health.git | ASP | 137 lines
50 If UserName="" Then Response.End()
51 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
52 RS.Open "Select top 1 * From KS_Blog Where UserName='" & UserName & "'",Conn,1,1
CheckUserlogin.asp https://github.com/joechen2010/health.git | ASP | 103 lines
47 PassWord=MD5(PassWord,16)
48 Dim UserRS:Set UserRS=Server.CreateObject("Adodb.RecordSet")
49 UserRS.Open "Select UserID,UserName,PassWord,Locked,GroupID,Score,LastLoginIP,LastLoginTime,LoginTimes,RndPassword,IsOnline,GradeTitle,wap From KS_User Where UserName='" &UserName & "' And PassWord='" & PassWord & "'",Conn,1,3
m022a0102.asp git://github.com/boss2009/ASP-site.git | ASP | 255 lines
45
46var rsRegion = Server.CreateObject("ADODB.Recordset");
47rsRegion.ActiveConnection = MM_cnnASP02_STRING;
53
54var rsStatus = Server.CreateObject("ADODB.Recordset");
55rsStatus.ActiveConnection = MM_cnnASP02_STRING;
61
62var rsDisability = Server.CreateObject("ADODB.Recordset");
63rsDisability.ActiveConnection = MM_cnnASP02_STRING;
69
70var rsCaseManager = Server.CreateObject("ADODB.Recordset");
71rsCaseManager.ActiveConnection = MM_cnnASP02_STRING;
91if (String(Request.QueryString("IsNew"))=="No") {
92 var rsClient = Server.CreateObject("ADODB.Recordset");
93 rsClient.ActiveConnection = MM_cnnASP02_STRING;
m006r0101.asp git://github.com/boss2009/ASP-site.git | ASP | 441 lines
6// retrieve the sort columns
7var rsCol = Server.CreateObject("ADODB.Recordset");
8rsCol.ActiveConnection = MM_cnnASP02_STRING;
15// retrieve the string search operands - text
16var rsOprd = Server.CreateObject("ADODB.Recordset");
17rsOprd.ActiveConnection = MM_cnnASP02_STRING;
24// retrieve lookup value search operands
25var rsOprd2 = Server.CreateObject("ADODB.Recordset");
26rsOprd2.ActiveConnection = MM_cnnASP02_STRING;
33// retrieve class search operands
34var rsOprd3 = Server.CreateObject("ADODB.Recordset");
35rsOprd3.ActiveConnection = MM_cnnASP02_STRING;
52
53 var rsOptr = Server.CreateObject("ADODB.Recordset");
54 rsOptr.ActiveConnection = MM_cnnASP02_STRING;
m001q0801.asp git://github.com/boss2009/ASP-site.git | ASP | 298 lines
16rsBuyout_numRows += Repeat1__numRows;
17// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
18
44
45 // count the total records by iterating through the recordset
46 for (rsBuyout_total=0; !rsBuyout.EOF; rsBuyout.MoveNext()) {
89
90 // if we have a record count, check if we are past the end of the recordset
91 if (MM_rsCount != -1) {
146<%
147// *** Move To Record: update recordset stats
148
160<%
161// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
162
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 303 lines
20
21Set rsNews = Server.CreateObject("ADODB.Recordset")
22
53 If Uploader.Form("Submit") = "Update Existing Story" Then
54 strSQL = "spGetNewsImages " & Uploader.Form("Record_ID")
55 set rsBCFPD = cnnBCFPD.execute(strSQL)
64
65 strSQL = "spUpdateNews " & Uploader.Form("News_Category_ID") & ",'" & killChars(Uploader.Form("Headline")) & "','" & killChars(Uploader.Form("Story")) & "','" & killChars(Uploader.Form("Author")) & "','" & killChars(Uploader.Form("PubDate")) & "','" & killChars(Uploader.Form("ExpDate")) & "','" & FileNames(0) & "', '" & killChars(Uploader.Form("Image1_Caption")) & "','" & FileNames(1) & "', '" & killChars(Uploader.Form("Image2_Caption")) & "'," & Uploader.Form("Record_ID")
66 cnnBCFPD.execute(strSQL)
230 <td align="right" colspan="2">
231 <!-- 8b. If Then Else statement to check if updating new record or existing.-->
232 <% If Request.QueryString("News_Id") <> "" Then %>
234 <input type="Hidden" name="Submit">
235 <input type="hidden" name="Record_ID" value="<%=rsNews("News_Id")%>">
236 <img src="/images/spacer.gif" border="0" height="1" width="35">
sql.asp https://github.com/74hu/74hujz.git | ASP | 75 lines
13call conndata
14set rs=Server.CreateObject("ADODB.Recordset")
15rs.open"select * from 74hu_sql order by id desc",conn,1,1
42response.write"后台登陆攻击<br/>-------------<br/>一般不封锁IP，用于研究密码，制定人想不出的密码！<br/>-------------<br/>"
43set rs=Server.CreateObject("ADODB.Recordset")
44rs.open"select * from 74hu_eyi order by id desc",conn,1,1
User_Recharge.asp https://github.com/joechen2010/health.git | ASP | 161 lines
82 Dim CardPass:CardPass=KS.S("CardPass")
83 Dim RS:Set RS=Server.CreateObject("adodb.recordset")
84 RS.Open "select * from ks_usercard where cardnum='" & CardNum & "'",Conn,1,1
132 RS("money")=RS("money")+ValidNum
133 Dim RSLog:Set RSLog=Server.CreateObject("ADODB.RECORDSET")
134 RSLog.Open "Select * From KS_LogMoney",Conn,1,3
m010e0702.asp git://github.com/boss2009/ASP-site.git | ASP | 308 lines
11if (String(Request("MM_action")) == "update") {
12 var rsTraining = Server.CreateObject("ADODB.Recordset");
13 rsTraining.ActiveConnection = MM_cnnASP02_STRING;
13 rsTraining.ActiveConnection = MM_cnnASP02_STRING;
14 rsTraining.Source = "{call dbo.cp_buyout_training_status4("+Request.Form("MM_recordId")+",0,'"+Request.Form("TrainingStatus")+"','"+Request.Form("Date")+"',"+Request.Form("Reason")+","+Request.Form("TrainedBy")+","+Request.Form("Hours")+","+Request.Form("Minutes")+","+Session("insStaff_id")+",0,'E',0)}";
15 rsTraining.CursorType = 0;
22 var EquipList = "";
23 var rsEquipment = Server.CreateObject("ADODB.Recordset");
24 rsEquipment.ActiveConnection = MM_cnnASP02_STRING;
41
42 var rsUserType = Server.CreateObject("ADODB.Recordset");
43 rsUserType.ActiveConnection = MM_cnnASP02_STRING;
52
53 var rsServiceRequested = Server.CreateObject("ADODB.Recordset");
54 rsServiceRequested.ActiveConnection = MM_cnnASP02_STRING;
log_view.asp https://github.com/semious/dynacomcorp.git | ASP | 106 lines
17dim flag
18set rs =server.createobject("adodb.recordset")
19set rs1 =server.createobject("adodb.recordset")
s.asp https://github.com/74hu/74hujz.git | ASP | 68 lines
17If Instr(LCase(Request.Form(HU_Post)),HU_Inf(HU_Xh))<>0 Then
18set rs=Server.CreateObject("ADODB.Recordset")
19rs.open"select * from 74hu_sql",conn,1,2
44If Instr(LCase(Request.QueryString(HU_Get)),HU_Inf(HU_Xh))<>0 Then
45set rs=Server.CreateObject("ADODB.Recordset")
46rs.open"select * from 74hu_sql",conn,1,2
UserList.asp https://github.com/joechen2010/health.git | ASP | 133 lines
60
61 Set RS=Server.CreateObject("Adodb.Recordset")
62 If ListType=1 Then
75 If Not RS.EOF Then
76 totalPut = RS.RecordCount
77 If CurrentPage < 1 Then
m014e0601.asp git://github.com/boss2009/ASP-site.git | ASP | 324 lines
35Dim rsPurchaseRequisition
36SET rsPurchaseRequisition = Server.CreateObject("ADODB.Recordset")
37rsPurchaseRequisition.ActiveConnection = MM_cnnASP02_STRING
44Dim rsContractPO
45SET rsContractPO = Server.CreateObject("ADODB.Recordset")
46rsContractPO.ActiveConnection = MM_cnnASP02_STRING
54Dim RequestedQuantity, RequestedDescription, RequestedLUC, RequestedTotal
55Set rsInventoryRequested = Server.CreateObject("ADODB.Recordset")
56rsInventoryRequested.ActiveConnection = MM_cnnASP02_STRING
66 If (rsInventoryRequested.Fields.Item("insVendor_id").Value > 0) Then
67 Set rsVendor = Server.CreateObject("ADODB.Recordset")
68 rsVendor.ActiveConnection = MM_cnnASP02_STRING
96
97 Set rsVendorContact = Server.CreateObject("ADODB.Recordset")
98 rsVendorContact.ActiveConnection = MM_cnnASP02_STRING
User_Class.asp https://github.com/joechen2010/health.git | ASP | 228 lines
51Dim Sql:sql = "select * from KS_UserClass "& Param &" order by AddDate DESC"
52Set RS=Server.CreateObject("AdodB.Recordset")
53RS.open sql,conn,1,1
57 MaxPerPage =10
58 totalPut = RS.RecordCount
59 If CurrentPage < 1 Then CurrentPage = 1
118 If Action="Edit" Then
119 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
120 RS.Open "Select * From KS_UserClass Where ClassID=" & KS.ChkClng(KS.S("ID")),Conn,1,1
171 Else
172 set rs=server.createobject("adodb.recordset")
173 sql="select * from KS_UserClass Where ClassID="&id&""
201 Else
202 Set rs=Server.CreateObject("Adodb.Recordset")
203 rs.Open "Select * From KS_UserClass",Conn,1,3
m009F3panel.asp git://github.com/boss2009/ASP-site.git | ASP | 65 lines
5<%
6var rsEquipmentService = Server.CreateObject("ADODB.Recordset");
7rsEquipmentService.ActiveConnection = MM_cnnASP02_STRING;
13
14var rsFunction = Server.CreateObject("ADODB.Recordset");
15rsFunction.ActiveConnection = MM_cnnASP02_STRING;
index.asp https://github.com/joechen2010/health.git | ASP | 143 lines
50 Else
51 Set RS=Server.CreateObject("Adodb.RecordSet")
52 RS.Open "Select Question From KS_User Where UserName='" & UserName & "'",Conn,1,1
118 Else
119 Set RS=Server.CreateObject("Adodb.RecordSet")
120 RS.Open "Select PassWord From KS_User Where UserName='" & UserName & "' and answer='" & answer &"'",Conn,1,3
m002q01.asp git://github.com/boss2009/ASP-site.git | ASP | 299 lines
34<%
35// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
36
62
63 // count the total records by iterating through the recordset
64 for (rsStaff_total=0; !rsStaff.EOF; rsStaff.MoveNext()) {
126<%
127// *** Move To Record: if we dont know the record count, check the display range
128
164<%
165// *** Move To Record: update recordset stats
166
178<%
179// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
180
List.asp https://github.com/joechen2010/health.git | ASP | 266 lines
36 If UserName="" Then Response.End()
37 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
38 RS.Open "Select * From KS_Blog Where UserName='" & UserName & "'",Conn,1,1
109 End if
110 Dim RSS:Set RSS=Server.CreateObject("ADODB.RECORDSET")
111 RSS.Open "Select * From KS_BlogComment",Conn,1,3
176 End If
177 Dim RSP:set RSP=Server.Createobject("adodb.recordset")
178 RSP.Open "Select * from KS_BlogComment Where LogID="&ID&" order by AddDate DESC",Conn,1,1
181 Else
182 Dim TotalPut:TotalPut = RSP.RecordCount
183 If CurrentPage < 1 Then CurrentPage = 1
255 End If
256 Dim RS:Set RS=Server.CreateObject("ADODB.Recordset")
257 RS.Open SqlStr, Conn, 1, 1
User_Team.asp https://github.com/joechen2010/health.git | ASP | 420 lines
62 If id<>"" Then
63 Set rs=Server.CreateObject("ADODB.RECORDSET")
64 rs.Open "Select * From KS_Team Where id="&id&"",conn,1,1
86<%
87Set rs=Server.CreateObject("ADODB.RECORDSET")
88 rs.Open "Select * From KS_TeamClass order by orderid",conn,1,1
133 Else
134 Set rs=Server.CreateObject("ADODB.RECORDSET")
135 If id="" Then
161 If id="" Then
162 Set rs1=Server.CreateObject("ADODB.RECORDSET")
163 rs1.open "select * from ks_teamusers",conn,1,3
193End If
194set rs=server.createobject("adodb.recordset")
195sql="select * from KS_Team where UserName='"& KSUser.UserName &"' order by AddDate DESC"
User_Photo.asp https://github.com/joechen2010/health.git | ASP | 599 lines
94
95set rs=server.createobject("adodb.recordset")
96Param=" Where UserName='"&KSUser.UserName&"'"
105 MaxPerPage =2
106 totalPut = RS.RecordCount
107 If CurrentPage < 1 Then CurrentPage = 1
160 id=KS.S("id")
161 Dim rs:Set rs=server.createobject("adodb.recordset")
162 rs.open "select PhotoUrl from KS_Photoxc where ID="&ID&"",conn,1,1
167 rs.close:set rs=nothing
168 Set rs=server.createobject("adodb.recordset")
169 rs.open "select * from ks_photozp where xcid in(" &id & ")",conn,1,1
185 xcid=KS.S("xcid")
186 Dim RS:Set rs=server.createobject("adodb.recordset")
187 rs.open "select * from ks_photozp where id="&id&"",conn,1,1
User_Order.asp https://github.com/joechen2010/health.git | ASP | 426 lines
68 SqlStr="Select * From KS_Order Where UserName='" & KSUser.UserName &"' order by id desc"
69 Set RS=Server.createobject("adodb.recordset")
70 RS.open SqlStr,Conn,1,1
73 Else
74 totalPut = RS.RecordCount
75 If CurrentPage < 1 Then
156 Dim ID:ID=KS.ChkClng(KS.S("ID"))
157 Dim RS:Set RS=Server.CreateObject("adodb.recordset")
158 RS.Open "Select * from ks_order where id=" & ID ,Conn,1,1
224 Response.Write "<img src=""../Images/Hen.gif"" alt=""""/><br/>"
225 Dim TotalPrice,RSI:Set RSI=Server.CreateObject("ADODB.RECORDSET")
226 RSI.Open "Select * From KS_OrderItem Where OrderID='" & RS("OrderID") & "'",conn,1,1
285 If KS.S("Checked")="ok" Then
286 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
287 RS.Open "Select OrderID From KS_Order where status=0 and DeliverStatus=0 and MoneyReceipt=0 and id=" & ID,Conn,1,3
User_MyArticle.asp https://github.com/joechen2010/health.git | ASP | 487 lines
115
116 Set RS=Server.CreateObject("AdodB.Recordset")
117 RS.open sql,conn,1,1
120 Else
121 totalPut = RS.RecordCount
122 If CurrentPage < 1 Then CurrentPage = 1
197 If KS.S("Action")="Edit" Then
198 Dim KS_A_RS_Obj:Set KS_A_RS_Obj=Server.CreateObject("ADODB.RECORDSET")
199 KS_A_RS_Obj.Open "Select top 1 * From " & KS.C_S(ChannelID,2) &" Where Inputer='" & KSUser.UserName &"' And ID=" & ID,Conn,1,1
User_Message.asp https://github.com/joechen2010/health.git | ASP | 670 lines
91 If KS.S("ID")<>"" and isNumeric(KS.S("ID")) Then
92 Set rs=server.createobject("adodb.recordSet")
93 SqlStr="Select SendTime,title,content from KS_Message where Incept='"&KSUser.UserName&"' and id="&Clng(KS.S("ID"))
108 <%
109 Set RS=server.createobject("adodb.recordSet")
110 SqlStr="select friend from KS_Friend where Username='"&KSUser.UserName&"' order by Addtime desc"
157 End If
158 Set RS=Server.Createobject("adodb.recordSet")
159 If Request("Action")="read" Then
205 If KS.S("ID")<>"" And isNumeric(KS.S("ID")) Then
206 Set RS=Server.Createobject("adodb.recordSet")
207 SqlStr="Select title,content,sEnder from KS_Message where (Incept='"&KSUser.UserName&"' or sEnder='"&KSUser.UserName&"') and id="&Clng(KS.S("ID"))
225 <%
226 Set RS=server.createobject("adodb.recordSet")
227 SqlStr="Select friend from KS_Friend where Username='"&KSUser.UserName&"' order by Addtime desc"
User_Friend.asp https://github.com/joechen2010/health.git | ASP | 398 lines
83 Dim ID:ID=KS.Chkclng(KS.S("ID"))
84 Dim RS:set RS=server.createobject("adodb.recordset")
85 RS.Open "select * from KS_Friend where ID=" & ID,Conn,1,1
109 If KS.S("Action")="edit" Then
110 Dim RS:set RS=server.createobject("adodb.recordset")
111 RS.Open "select * from ks_friend where id=" & id,Conn,1,1
172
173 Dim RS:set RS=server.createobject("adodb.recordset")
174 RS.open "select username from ks_user where username='" & username & "'",conn,1,1
216 If KS.Chkclng(KS.S("listtype"))<>0 Then Param=Param & " And flag=" & KS.Chkclng(KS.S("listtype"))
217 set RS=server.createobject("adodb.recordset")
218 sql="select F.id,f.friend,f.flag,f.phone,f.mobile,f.note,f.email,f.QQ,f.msn,U.Username,f.Email,f.RealName,U.HomePage from KS_Friend F inner join KS_User U on F.Friend=U.UserName where F.Username='"&KSUser.UserName&"' " & Param & " order by F.addtime desc"
226 Else
227 totalPut = RS.RecordCount
228 If CurrentPage < 1 Then CurrentPage = 1
User_ExChange.asp https://github.com/joechen2010/health.git | ASP | 415 lines
117 Dim Score:Score=KS.ChkClng(KS.S("Score"))
118 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
119 RS.Open "Select * From KS_User Where UserName='" & KSUser.UserName & "'",Conn,1,3
147 Call KS.PointInOrOut(0,0,RS("UserName"),1,Money/KS.Setting(43),"System","账户资金兑换所得")
148 Dim RSLog:Set RSLog=Server.CreateObject("ADODB.RECORDSET")
149 RSLog.Open "Select * From KS_LogMoney",Conn,1,3
221 End If
222 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
223 RS.Open "Select * From KS_User Where UserName='" & KSUser.UserName & "'",Conn,1,3
239 Call KS.PointInOrOut(0,0,RS("UserName"),2,Round(Point),"System","用户兑换账户资金")
240 Dim RSLog:Set RSLog=Server.CreateObject("ADODB.RECORDSET")
241 RSLog.Open "Select * From KS_LogMoney",Conn,1,3
User_Enterprise.asp https://github.com/joechen2010/health.git | ASP | 429 lines
78 Dim CompanyName,Province,City,Address,ZipCode,ContactMan,Telphone,Fax,WebUrl,Profession,CompanyScale,RegisteredCapital,LegalPeople,BankAccount,AccountNumber,BusinessLicense,Intro,flag,classid,qq,mobile
79 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
80 RS.Open "Select top 1 * From KS_Enterprise where UserName='" & KSUser.UserName & "'",conn,1,1
311 Else
312 Dim RS: Set RS=Server.CreateObject("Adodb.RecordSet")
313 RS.Open "Select TOP 1 * From KS_Enterprise Where UserName='" & KSUser.UserName & "'",Conn,1,3
323 End If
324 Dim RSS:Set RSS=Server.CreateObject("ADODB.RECORDSET")
325 RSS.Open "select TOP 1 * from ks_blog where username='" & KSUser.UserName & "'",conn,1,3
User_Blog.asp https://github.com/joechen2010/health.git | ASP | 872 lines
81Sub ApplyBlog()
82 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
83 RS.Open "Select * From KS_Blog Where UserName='" & KSUser.UserName &"'",Conn,1,1
116 <option value="0">-请选择类别-</option>
117 <% Set RS=Server.CreateObject("ADODB.RECORDSET")
118 RS.Open "Select * From KS_BlogClass order by orderid",conn,1,1
185 Else
186 Set RS=Server.CreateObject("ADODB.RECORDSET")
187 RS.Open "Select * From KS_Blog Where UserName='"&KSUser.UserName&"'",conn,1,3
257<%
258set rs=server.createobject("adodb.recordset")
259sql = "select * from KS_BlogInfo "& Param &" order by AddDate DESC"
264 MaxPerPage =10
265 totalPut = RS.RecordCount
266 If CurrentPage < 1 Then CurrentPage = 1
Group.asp https://github.com/joechen2010/health.git | ASP | 553 lines
34 If ID=0 Then Response.End()
35 Set RS=Server.CreateObject("ADODB.RECORDSET")
36 RS.Open "Select * From KS_Team Where ID=" & ID,Conn,1,1
126 Dim UserName:UserName=KS.R(KSUser.UserName)
127 Dim RS:set RS=server.createobject("adodb.recordset")
128 RS.Open "select * from KS_TeamTopic",Conn,1,3
180 End If
181 Dim RS:set RS=server.createobject("adodb.recordset")
182 RS.Open "select * from KS_TeamUsers where TeamID=" & id & " And UserName='" & UserName & "'",Conn,1,3
223 Else
224 Set RSObj=Server.CreateObject("Adodb.Recordset")
225 RSObj.Open "select * from KS_TeamTopic where UserName='"&KSUser.UserName&"' And ID="&Tid&"",Conn,1,3
269 End If
270 Dim RS:set RS=Server.Createobject("adodb.recordset")
271 RS.Open "select * from KS_TeamTopic",Conn,1,3
Show.asp https://github.com/joechen2010/health.git | ASP | 369 lines
58 End Select
59 Set RS=Server.CreateObject("Adodb.Recordset")
60 RS.Open SqlStr,Conn,1,3
242 Dim SqlStr:SqlStr="Select top 1 Times From KS_LogPoint Where ChannelID=" & ChannelID & " And InfoID=" & ID & " And InOrOutFlag=2 and UserName='" & KSUser.UserName & "' And (" & Param & ") Order By ID"
243 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
244 RS.Open SqlStr,Conn,1,3
m008p0401.asp git://github.com/boss2009/ASP-site.git | ASP | 146 lines
18 }
19 var rsEquipmentClass = Server.CreateObject("ADODB.Recordset");
20 rsEquipmentClass.ActiveConnection = MM_cnnASP02_STRING;
27
28var rsSysOptr = Server.CreateObject("ADODB.Recordset");
29rsSysOptr.ActiveConnection = MM_cnnASP02_STRING;
legal.asp https://github.com/gbut/SNT.git | ASP | 166 lines
69 <p>From time-to-time you may receive an e-mail or other communication from us regarding RMS products, services or information which we believe to be of interest to you. If you are not interested in receiving this information, you may follow the instructions on the communication explaining how you may be removed from our distribution list. Alternatively, or if there are no instructions on the communication, you may send an e-mail to <a href="mailto:info@rms.com?subject=Remove from Email Distribution List">info@rms.com</a> requesting removal from our distribution list. We will endeavor to take prompt action to process your request.</p>
70 <p>Please note that we may retain your information for archival purposes, as required by RMS' records retention policies, or as required by law.</p>
71 <p>You may send all other inquiries regarding your Personal Information, including requests to correct or update your Personal Information, to <a href="mailto:info@rms.com">info@rms.com</a>.</p>
m008e0803.asp git://github.com/boss2009/ASP-site.git | ASP | 178 lines
10
11var rsLoanDetail = Server.CreateObject("ADODB.Recordset");
12rsLoanDetail.ActiveConnection = MM_cnnASP02_STRING;
18
19var rsLoan = Server.CreateObject("ADODB.Recordset");
20rsLoan.ActiveConnection = MM_cnnASP02_STRING;
32if (String(Request("MM_action")) == "update") {
33 var rsUpdateSchedule = Server.CreateObject("ADODB.Recordset");
34 rsUpdateSchedule.ActiveConnection = MM_cnnASP02_STRING;
34 rsUpdateSchedule.ActiveConnection = MM_cnnASP02_STRING;
35 rsUpdateSchedule.Source = "{call dbo.cp_loan_ship_schedule("+Request.Form("MM_recordId")+","+Request.Form("DeliveryOnSchedule")+","+Request.Form("DeliveryStatus")+","+Request.Form("Shipper")+",'"+Trim(Request.Form("ShipperPhoneAreaCode"))+"','"+Trim(Request.Form("ShipperPhoneNumber"))+"','"+Trim(Request.Form("ShipperPhoneExtension"))+"','E',0)}";
36 rsUpdateSchedule.CursorType = 0;
41
42var rsShippingSchedule = Server.CreateObject("ADODB.Recordset");
43rsShippingSchedule.ActiveConnection = MM_cnnASP02_STRING;
Default.asp https://github.com/eladioruiz/golf.git | ASP | 208 lines
44
45 'Create the recordset to retrieve data
46 Set oRs = Server.CreateObject("ADODB.Recordset")
60
61 'Now create second recordset to get date-wise details for this factory
62 Set oRs2 = Server.CreateObject("ADODB.Recordset")
70 Wend
71 'Close recordset
72 Set oRs2 = Nothing
88 //All our data is stored in the data array. From ASP, we iterate through
89 //each recordset of data and then store it as nested arrays in this data array.
90 var data = new Array();
166
167 'Move back to first index of the factory master recordset
168 oRs.MoveFirst()
m018q0342.asp git://github.com/boss2009/ASP-site.git | ASP | 278 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsDocumentCondition_total=0; !rsDocumentCondition.EOF; rsDocumentCondition.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
112<%
113// *** Move To Record: if we dont know the record count, check the display range
114
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
ui.asp https://github.com/74hu/74hujz.git | ASP | 1289 lines
21 Dim rs,j
22 Set rs = Server.CreateObject("adodb.recordset")
23 rs.open "select lx,class,wmltxt,relid,br,num,classid from 74hu_class where parent=0 order by pid asc", conn, 1, 1
53 Dim Rslc,aaa
54 Set Rslc = Server.CreateObject("ADODB.Recordset")
55 Sqlink = "select ID,namt from 74hu_link Where active =0 order by HU_time desc"
60 w "<a href=""?aid=link&id=" & Rslc("id") & "&act=view"">" & noubb(Rslc("NAMT")) & "</a> "
61 If aaa Mod 4 = 0 And aaa <> Rslc.RecordCount Then w "<br/>"
62 Rslc.MoveNext
76 Dim rs,j
77 Set rs = Server.CreateObject("adodb.recordset")
78 rs.open "select lx,class,wmltxt,relid,br,num,classid from 74hu_class where parent=0 order by pid asc", conn, 1, 1
105 Dim Rslc,aaa
106 Set Rslc = Server.CreateObject("ADODB.Recordset")
107 Sqlink = "select ID,namt from 74hu_link Where active =0 order by HU_time desc"
f.asp https://github.com/74hu/74hujz.git | ASP | 692 lines
38 Dim rsads
39 Set rsads = Server.CreateObject("Adodb.Recordset")
40 rsads.open"select id,name from 74hu_gogo where typeID="&adsnum&" order by id desc ",conn,1,1
43 Randomize()
44 adsranNum = int(rsads.recordCount*rnd)+1
45 rsads.absoluteposition=adsranNum
53 Dim rsads
54 Set rsads=Server.CreateObject("Adodb.Recordset")
55 Randomize
66 Dim rsadset
67 Set rsadset=Server.CreateObject("Adodb.Recordset")
68 rsadset.open"select "&adnum&" from 74hu_control where ID=1",conn,1,1
81 End If
82 Set rs1=Server.CreateObject("Adodb.Recordset")
83 rs1.open"select id,title,classid from 74hu_article "&gettest&" order by id desc",conn,1,1
User_FeedBack.asp https://github.com/joechen2010/health.git | ASP | 212 lines
66 Dim Param:Param=" where UserName='" & KSUser.UserName & "'"
67 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
68 RS.Open "Select * From KS_FeedBack " & Param & " order By ID",Conn,1,1
71 Else
72 TotalPut = RS.RecordCount
73 If CurrentPage < 1 Then CurrentPage = 1
155 Dim ID:ID=KS.ChkClng(KS.S("ID"))
156 Dim RS:Set RS=Server.CreateObject("adodb.recordset")
157 RS.Open "select * from KS_FeedBack where UserName='" & KSUser.UserName & "' And id=" & ID,Conn,1,3
176 ID=KS.ChkClng(KS.S("ID"))
177 Set RS=Server.CreateOBject("ADODB.RECORDSET")
178 RS.Open "Select * from ks_feedback where id=" & ID,Conn,1,1
product_edit.asp https://github.com/semious/dynacomcorp.git | ASP | 503 lines
19flag=0
20set rs =server.createobject("adodb.recordset")
21
141 if edit="edit" then
142 set fs=server.createobject("adodb.recordset")
143 sql="select * from product where id = "+ id +""
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 183 lines
13
14set rsCategory = Server.CreateObject("ADODB.Recordset")
15strNode = "SELECT * FROM Video_Category"
32
33' If there is a request to update the new record, update the new record.
34If Request.Form("Submit") = "Update Category" Then
45
46' If there is a request to update an existing record, update the existing record.
47If Request.Form("Submit") = "Update Existing Category" Then
71
72 ' If there is a request to add new record, add new record.
73 If Request.Form("Submit") = "Add New Category" Then
77
78 ' If there is a request by clicking a hyper link, open the recordset and grab the selected record.
79 If Request.QueryString("Category_ID") <> "" Then
wzggao.asp https://github.com/74hu/74hujz.git | ASP | 276 lines
33call conndata
34 Set Rs = Server.CreateObject("Adodb.Recordset")
35 Sql = "SELECT * FROM 74hu_gogo where typeID="&TP
41 gopage="wzggao.asp?sid="&sid&"&TP="&TP&"&"
42 Count=rs.recordcount
43 page=int(request.QueryString ("page"))
70 IF (Request.QueryString("del")="true") Then
71 Set Rs2 = Server.CreateObject("Adodb.Recordset")
72 Sql2 = "select * FROM 74hu_gogo WHERE id=" & id &" and typeID="&TP
112if id<>"" then
113 Set Rs2 = Server.CreateObject("Adodb.Recordset")
114 Sql2 = "select * FROM 74hu_gogo WHERE id=" & id &" and typeID="&TP
150 if name<>"" and url<>"" then
151 set rs=Server.CreateObject("Adodb.Recordset")
152 rs.open "select * from 74hu_gogo",conn,1,3
clist.asp https://github.com/74hu/74hujz.git | ASP | 82 lines
13call conndata
14set rs=server.createobject("adodb.recordset")
15rs.open "select * from 74hu_class where classid="&id,conn,1,1
38%>
39<% set rs=server.createobject("adodb.recordset")
40sql = "select * from 74hu_class where parent="&id&" order by pid asc"
45 gopage="clist.asp?sid="&sid&"&id="&id&"&"
46 Count=rs.recordcount
47 page=int(request.QueryString ("page"))
m010q0301b.asp git://github.com/boss2009/ASP-site.git | ASP | 238 lines
9
10var rsGST = Server.CreateObject("ADODB.Recordset");
11rsGST.ActiveConnection = MM_cnnASP02_STRING;
19
20var rsPST = Server.CreateObject("ADODB.Recordset");
21rsPST.ActiveConnection = MM_cnnASP02_STRING;
29
30var rsShipping = Server.CreateObject("ADODB.Recordset");
31rsShipping.ActiveConnection = MM_cnnASP02_STRING;
39
40var rsInventorySold = Server.CreateObject("ADODB.Recordset");
41rsInventorySold.ActiveConnection = MM_cnnASP02_STRING;
71 <td nowrap width="450"><a href="javascript: openWindow('m010a0301.asp?intBuyout_req_id=<%=Request.QueryString("intBuyout_req_id")%>','w010A02');">Add Equipment Sold</a></td>
72 <td nowrap align="left">Displaying <b><%=(rsInventorySold_total)%></b> Records.</td>
73 </tr>
m010a0301.asp git://github.com/boss2009/ASP-site.git | ASP | 264 lines
15 case "GetInventory":
16 var rsInventory = Server.CreateObject("ADODB.Recordset");
17 rsInventory.ActiveConnection = MM_cnnASP02_STRING;
27 var ReturnedBy = ((Request.Form("DateReturned") == "")?"0":Request.Form("ReturnedBy"));
28 var rsInventorySold = Server.CreateObject("ADODB.Recordset");
29 rsInventorySold.ActiveConnection = MM_cnnASP02_STRING;
45
46var rsStatus = Server.CreateObject("ADODB.Recordset");
47rsStatus.ActiveConnection = MM_cnnASP02_STRING;
53
54var rsStaff = Server.CreateObject("ADODB.Recordset");
55rsStaff.ActiveConnection = MM_cnnASP02_STRING;
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 211 lines
2<%
3' Create a recordset object called rsNodes.
4 set rsNodes = Server.CreateObject("ADODB.Recordset")
20
21' If there is a request to update the new record, update the new record.
22If Request.Form("Submit") = "Update Contact" Then
33
34' If there is a request to update an existing record, update the existing record.
35If Request.Form("Submit") = "Update Existing Contact" Then
66
67 ' If there is a request to add new record, add new record.
68 set rsNodes = Server.CreateObject("ADODB.Recordset")
75
76 ' If there is a request by clicking a hyper link, open the recordset and grab the selected record.
77 If Request.QueryString("Contact_ID") <> "" Then
m001a1301.asp git://github.com/boss2009/ASP-site.git | ASP | 194 lines
12 var Equipment = String(Request.Form("Equipment")).replace(/'/g, "''");
13 var rsTraining = Server.CreateObject("ADODB.Recordset");
14 rsTraining.ActiveConnection = MM_cnnASP02_STRING;
22
23var rsStaff = Server.CreateObject("ADODB.Recordset");
24rsStaff.ActiveConnection = MM_cnnASP02_STRING;
30
31var rsReason = Server.CreateObject("ADODB.Recordset");
32rsReason.ActiveConnection = MM_cnnASP02_STRING;
m009e0401.asp git://github.com/boss2009/ASP-site.git | ASP | 390 lines
18 if (String(Request.Form("Afternoon"))=="on") MorningPickUp = 0;
19 var rsShippingMethod = Server.CreateObject("ADODB.Recordset");
20 rsShippingMethod.ActiveConnection = MM_cnnASP02_STRING;
20 rsShippingMethod.ActiveConnection = MM_cnnASP02_STRING;
21 rsShippingMethod.Source = "{call dbo.cp_eqpsrv_ship_method("+Request.Form("MM_recordId")+","+Request.Form("ShippingStatus")+","+Request.Form("ShippedBy")+","+Request.Form("ShippingMethod")+",'"+WayBillNumber+"','"+DeliveryDateArranged+"','"+ScheduledArrivalDate+"',"+MorningPickUp+",'"+Notes+"',"+Session("insStaff_id")+",0,'E',0)}";
22 rsShippingMethod.CursorType = 0;
25 rsShippingMethod.Open();
26 Response.Redirect("UpdateSuccessful2.asp?page=m009e0401.asp&intEquip_srv_id="+Request.Form("MM_recordId")+"&intShip_Dtl_id="+Request.Form("intShip_Dtl_id"));
27}
28
29var rsEquipmentService = Server.CreateObject("ADODB.Recordset");
30rsEquipmentService.ActiveConnection = MM_cnnASP02_STRING;
36
37var rsUserType = Server.CreateObject("ADODB.Recordset");
38rsUserType.ActiveConnection = MM_cnnASP02_STRING;
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 172 lines
8Category_ID = GetVal("Category_ID", "")
9Set rsLinks = Server.CreateObject("ADODB.Recordset")
10Set rsLinksCat = Server.CreateObject("ADODB.Recordset")
24
25' 4. If there is a request to update the new record, update the new record.
26If Request.Form("Submit") = "Update Link" Then
37
38' 5. If there is a request to update an existing record, update the existing record.
39If Request.Form("Submit") = "Update Existing Link" Then
64
65 ' 7. If there is a request to add new record, add new record.
66 If Request.Form("Submit") = "Add New Link" Then
70
71 ' 8. If there is a request by clicking a hyper link, open the recordset and grab the selected record.
72 If Request.QueryString("Link_id") <> "" Then
smsview.asp https://github.com/74hu/74hujz.git | ASP | 88 lines
13call conndata
14set rs=server.createobject("adodb.recordset")
15rs.open "select * from 74hu_article where id="&id,conn,1,1
m018q0383.asp git://github.com/boss2009/ASP-site.git | ASP | 275 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsBuyoutStatus_total=0; !rsBuyoutStatus.EOF; rsBuyoutStatus.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
112<%
113// *** Move To Record: if we dont know the record count, check the display range
114
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
m018q0392.asp git://github.com/boss2009/ASP-site.git | ASP | 275 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsRepairStatus_total=0; !rsRepairStatus.EOF; rsRepairStatus.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
112<%
113// *** Move To Record: if we dont know the record count, check the display range
114
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
m001q0606.asp git://github.com/boss2009/ASP-site.git | ASP | 278 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsLoanOwnForm_total=0; !rsLoanOwnForm.EOF; rsLoanOwnForm.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
150<%
151// *** Move To Record: update recordset stats
152
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
m002e0201.asp git://github.com/boss2009/ASP-site.git | ASP | 264 lines
11if (String(Request("MM_action")) == "update") {
12 var rsStaffAddress = Server.CreateObject("ADODB.Recordset");
13 rsStaffAddress.ActiveConnection = MM_cnnASP02_STRING;
13 rsStaffAddress.ActiveConnection = MM_cnnASP02_STRING;
14 rsStaffAddress.Source = "{call dbo.cp_staff_address(0,"+Request.Form("MM_recordId")+",'"+String(Request.Form("StreetAddress")).replace(/'/g, "''")+"','"+String(Request.Form("City")).replace(/'/g, "''")+"',"+Request.Form("ProvinceState")+",'"+Trim(Request.Form("PostalCode"))+"',"+Request.Form("PrimaryPhoneType")+",'"+Trim(Request.Form("PrimaryPhoneAreaCode"))+"','"+Trim(Request.Form("PrimaryPhoneNumber"))+"','"+Trim(Request.Form("PrimaryPhoneExtension"))+"',"+Request.Form("SecondaryPhoneType")+",'"+Request.Form("SecondaryPhoneAreaCode")+"','"+Trim(Request.Form("SecondaryPhoneNumber"))+"','"+Trim(Request.Form("SecondaryPhoneExtension"))+"',0,'','','','"+Request.Form("Email")+"','',9,0,'E',0)}";
15 rsStaffAddress.CursorType = 0;
22if (String(Request("MM_action")) == "insert") {
23 var rsStaffAddress = Server.CreateObject("ADODB.Recordset");
24 rsStaffAddress.ActiveConnection = MM_cnnASP02_STRING;
32
33var rsStaff = Server.CreateObject("ADODB.Recordset");
34rsStaff.ActiveConnection = MM_cnnASP02_STRING;
52
53var rsStaffAddress = Server.CreateObject("ADODB.Recordset");
54rsStaffAddress.ActiveConnection = MM_cnnASP02_STRING;
set_topscore.asp https://github.com/cornflakesuperstar/minesweeper.git | ASP | 82 lines
9 var name = Request.QueryString("name");
10 var dateRecorded = Request.QueryString("dateRecorded");
11
11
12 if (boardType == "" || timeTaken == "" || name == "" || dateRecorded == "") {
13 return;
23
24 var numScoresRecorded = xml.selectSingleNode("topScores/numberScoresRecorded").text;
25 var rank = -1;
40 if (notFound && rank == -1) {
41 if (i < numScoresRecorded - 1) {
42 rank = i + 1;
61 nameNode.text = name;
62 var dateRecordedNode = xml.createElement("dateRecorded");
63 dateRecordedNode.text = dateRecorded;
Copy of calendar_functions.asa https://github.com/evizitei/bcfpd_asp.git | ASP | 1067 lines
121<script language="JavaScript">
122//This function deletes records from current form
123 function Delete() {
178
179Set rsCalendar = Server.CreateObject ("ADODB.RecordSet")
180
312<%Public Sub UpdateRec (Table, IDName, IDVal, cnn)
313'Update the Records From A Page
314'Any field starting with an "_" will not be updated
314'Any field starting with an "_" will not be updated
315 Set rs = Server.CreateObject ("ADODB.Recordset")
316 aDate = Request.Form("a1")
353Public Sub DeleteRec (Table, ID, cnn)
354'If there is a request to delete, delete the record.
355 Set rs = Server.CreateObject ("ADODB.Recordset")
m005s0102.asp git://github.com/boss2009/ASP-site.git | ASP | 394 lines
6// retrieve the sort columns
7var rsCol = Server.CreateObject("ADODB.Recordset");
8rsCol.ActiveConnection = MM_cnnASP02_STRING;
15// retrieve the string search operands - text
16var rsOprd = Server.CreateObject("ADODB.Recordset");
17rsOprd.ActiveConnection = MM_cnnASP02_STRING;
24// retrieve the lookup value search operands - Combo
25var rsOprd2 = Server.CreateObject("ADODB.Recordset");
26rsOprd2.ActiveConnection = MM_cnnASP02_STRING;
43
44 var rsOptr = Server.CreateObject("ADODB.Recordset");
45 rsOptr.ActiveConnection = MM_cnnASP02_STRING;
Vote.asp https://github.com/joechen2010/health.git | ASP | 132 lines
66 End If
67 Set rsVote = Server.CreateObject("ADODB.Recordset")
68 rsVote.Open sqlVote,Conn,1,1
ex8.asp https://github.com/victor-homyakov/frameworks.git | ASP | 136 lines
73 GridSettingsForm
74 response.write "</td><td>This example demonstrates how database records can be updated via AJAX. "
75 response.write "Try selecting add, edit, or delete from the pop-up menu. "
88sub DefineFields()
89 oForm.options("RecordName")="Order"
90 'oForm.options("showSaveMsg")="full"
layout.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 60 lines
5Node_ID = GetVal("Node_ID", "")
6Set rsNode = Server.CreateObject("ADODB.Recordset")
7Set rsCalendar = Server.CreateObject("ADODB.Recordset")
mymin_class.asp https://github.com/74hu/74hujz.git | ASP | 43 lines
8call conndata
9set Rs=Server.CreateObject("ADODB.Recordset")
10Sql="select * from 74hu_link Where classid="&idd&" order by HU_time desc"
Comment.asp https://github.com/joechen2010/health.git | ASP | 240 lines
52 End If
53 Set RS=Server.CreateObject("ADODB.RECORDSET")
54 RS.Open "Select ID,Title From " & KS.C_S(ChannelID,2) & " Where ID="&InfoID&"",Conn,1,1
64 Else
65 Response.Write "["&TitleLinkStr&"]的评论,共:"&RS.RecordCount&"条评论<br/>-----------<br/>" &vbcrlf
66 TotalPut = RS.RecordCount
148 Dim OpType:OpType=KS.ChkClng(KS.S("Type"))
149 Dim RS:Set RS=Server.CreateObject("Adodb.Recordset")
150 RS.Open "Select * from KS_Comment Where ID="&ID&"",Conn,1,3
210
211 Set RS=Server.CreateObject("ADODB.RECORDSET")
212 if KS.C_S(Channelid,12)=1 Or KS.C_S(Channelid,12)=3 then
m001e0603.asp git://github.com/boss2009/ASP-site.git | ASP | 270 lines
11if (String(Request.Form("MM_update")) == "true"){
12 var rsGrantEligibility = Server.CreateObject("ADODB.Recordset");
13 rsGrantEligibility.ActiveConnection = MM_cnnASP02_STRING;
21
22var rsGrantEligibility = Server.CreateObject("ADODB.Recordset");
23rsGrantEligibility.ActiveConnection = MM_cnnASP02_STRING;
29
30var rsGrantPeriod = Server.CreateObject("ADODB.Recordset");
31rsGrantPeriod.ActiveConnection = MM_cnnASP02_STRING;
37
38var rsReferralDate = Server.CreateObject("ADODB.Recordset");
39rsReferralDate.ActiveConnection = MM_cnnASP02_STRING;
m004a0201.asp git://github.com/boss2009/ASP-site.git | ASP | 258 lines
13 var insAddress_type = ((String(Request.Form("AddressType")) == "Home")?"6":"11");
14 var rsNewAddress = Server.CreateObject("ADODB.Recordset");
15 rsNewAddress.ActiveConnection = MM_cnnASP02_STRING;
23
24var rsProvince = Server.CreateObject("ADODB.Recordset");
25rsProvince.ActiveConnection = MM_cnnASP02_STRING;
31
32var rsPhoneType = Server.CreateObject("ADODB.Recordset");
33rsPhoneType.ActiveConnection = MM_cnnASP02_STRING;
39
40var rsAreaCode = Server.CreateObject("ADODB.Recordset");
41rsAreaCode.ActiveConnection = MM_cnnASP02_STRING;
98<%
99var rsContactAddress = Server.CreateObject("ADODB.Recordset");
100rsContactAddress.ActiveConnection = MM_cnnASP02_STRING;
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 281 lines
7
8' Create a recordset object called rsRotation.
9 set rsRotation = Server.CreateObject("ADODB.Recordset")
9 set rsRotation = Server.CreateObject("ADODB.Recordset")
10 set rsRotation2 = Server.CreateObject("ADODB.Recordset")
11 set rsMonth = Server.CreateObject("ADODB.Recordset")
11 set rsMonth = Server.CreateObject("ADODB.Recordset")
12 set rsRegion = Server.CreateObject("ADODB.Recordset")
13 set rsTeams = Server.CreateObject("ADODB.Recordset")
13 set rsTeams = Server.CreateObject("ADODB.Recordset")
14 set rsTeams2 = Server.CreateObject("ADODB.Recordset")
15
m001q0602.asp git://github.com/boss2009/ASP-site.git | ASP | 286 lines
22<%
23// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
24
50
51 // count the total records by iterating through the recordset
52 for (rsEducationDocumentation_total=0; !rsEducationDocumentation.EOF; rsEducationDocumentation.MoveNext()) {
95
96 // if we have a record count, check if we are past the end of the recordset
97 if (MM_rsCount != -1) {
152<%
153// *** Move To Record: update recordset stats
154
166<%
167// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
168
m001q02.asp git://github.com/boss2009/ASP-site.git | ASP | 326 lines
49
50 // count the total records by iterating through the recordset
51 for (rsClient_total=0; !rsClient.EOF; rsClient.MoveNext()) {
92
93 // if we have a record count, check if we are past the end of the recordset
94 if (MM_rsCount != -1) {
110
111// *** Move To Record: if we dont know the record count, check the display range
112
146}
147// *** Move To Record: update recordset stats
148
158MM_atTotal = (MM_rsCount != -1 && MM_offset + MM_size >= MM_rsCount);
159// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
160
m008e0602.asp git://github.com/boss2009/ASP-site.git | ASP | 307 lines
11if (String(Request("MM_action")) == "update") {
12 var rsTraining = Server.CreateObject("ADODB.Recordset");
13 rsTraining.ActiveConnection = MM_cnnASP02_STRING;
13 rsTraining.ActiveConnection = MM_cnnASP02_STRING;
14 rsTraining.Source = "{call dbo.cp_loan_training_status3("+Request.Form("MM_recordId")+",0,'"+Request.Form("TrainingStatus")+"','"+Request.Form("Date")+"',"+Request.Form("Reason")+","+Request.Form("TrainedBy")+","+Request.Form("Hours")+","+Request.Form("Minutes")+",0,'E',0)}";
15 rsTraining.CursorType = 0;
22 var EquipList = "";
23 var rsEquipment = Server.CreateObject("ADODB.Recordset");
24 rsEquipment.ActiveConnection = MM_cnnASP02_STRING;
41
42 var rsUserType = Server.CreateObject("ADODB.Recordset");
43 rsUserType.ActiveConnection = MM_cnnASP02_STRING;
52
53 var rsServiceRequested = Server.CreateObject("ADODB.Recordset");
54 rsServiceRequested.ActiveConnection = MM_cnnASP02_STRING;
m012q0801.asp git://github.com/boss2009/ASP-site.git | ASP | 329 lines
30<%
31// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
32
54<%
55// *** Recordset Stats: if we don't know the record count, manually count them
56
122<%
123// *** Move To Record: if we dont know the record count, check the display range
124
160<%
161// *** Move To Record: update recordset stats
162
174<%
175// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
176
index.asp https://github.com/evizitei/bcfpd_asp.git | ASP | 253 lines
4 dim rs, BoardYear
5 set rs = server.CreateObject("ADODB.Recordset")
6 strSQL = "SELECT DISTINCT MinutesYear FROM BoardMinutes ORDER BY MinutesYear DESC"
m006s0101.asp git://github.com/boss2009/ASP-site.git | ASP | 374 lines
6// retrieve the sort columns
7var rsCol = Server.CreateObject("ADODB.Recordset");
8rsCol.ActiveConnection = MM_cnnASP02_STRING;
15// retrieve the string search operands - text
16var rsOprd = Server.CreateObject("ADODB.Recordset");
17rsOprd.ActiveConnection = MM_cnnASP02_STRING;
24// retrieve the lookup value search operands - Combo
25var rsOprd2 = Server.CreateObject("ADODB.Recordset");
26rsOprd2.ActiveConnection = MM_cnnASP02_STRING;
43
44 var rsOptr = Server.CreateObject("ADODB.Recordset");
45 rsOptr.ActiveConnection = MM_cnnASP02_STRING;
76 // retrieve the Work Type lookup
77 var rsWorkType = Server.CreateObject("ADODB.Recordset");
78 rsWorkType.ActiveConnection = MM_cnnASP02_STRING;
Show_News.asp https://github.com/joechen2010/health.git | ASP | 76 lines
32 If UserName="" Then Response.End()
33 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
34 RS.Open "Select top 1 * From KS_Blog Where UserName='" & UserName & "'",Conn,1,1
57 str="【查看新闻】<br/>"
58 Set RS=Server.CreateObject("ADODB.RECORDSET")
59 RS.Open "Select top 1 * From KS_EnterPriseNews Where UserName='" & UserName & "' and ID=" & KS.ChkClng(KS.S("ID")) ,conn,1,1
filmstrip.asp git://github.com/evizitei/bcfpd_asp.git | ASP | 114 lines
8
9set rsImgCat = Server.CreateObject("ADODB.Recordset")
10set rsImage = Server.CreateObject("ADODB.Recordset")
m018q03109.asp git://github.com/boss2009/ASP-site.git | ASP | 275 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsPILATStatus_total=0; !rsPILATStatus.EOF; rsPILATStatus.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
112<%
113// *** Move To Record: if we dont know the record count, check the display range
114
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
m018q0381.asp git://github.com/boss2009/ASP-site.git | ASP | 277 lines
20<%
21// *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
22
48
49 // count the total records by iterating through the recordset
50 for (rsBuyoutProcess_total=0; !rsBuyoutProcess.EOF; rsBuyoutProcess.MoveNext()) {
93
94 // if we have a record count, check if we are past the end of the recordset
95 if (MM_rsCount != -1) {
112<%
113// *** Move To Record: if we dont know the record count, check the display range
114
164<%
165// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
166
m001a1201.asp git://github.com/boss2009/ASP-site.git | ASP | 229 lines
14 var Notes = String(Request.Form("ServiceNotes")).replace(/'/g, "''");
15 var rsServiceRequested = Server.CreateObject("ADODB.Recordset");
16 rsServiceRequested.ActiveConnection = MM_cnnASP02_STRING;
24
25var rsServiceRequestedType = Server.CreateObject("ADODB.Recordset");
26rsServiceRequestedType.ActiveConnection = MM_cnnASP02_STRING;
32
33var rsFundingSource = Server.CreateObject("ADODB.Recordset");
34rsFundingSource.ActiveConnection = MM_cnnASP02_STRING;
40
41var rsStaff = Server.CreateObject("ADODB.Recordset");
42rsStaff.ActiveConnection = MM_cnnASP02_STRING;
m009e0201.asp git://github.com/boss2009/ASP-site.git | ASP | 131 lines
14 var Description = String(Request.Form("Description")).replace(/'/g, "''");
15 var rsServiceRequested = Server.CreateObject("ADODB.Recordset");
16 rsServiceRequested.ActiveConnection = MM_cnnASP02_STRING;
16 rsServiceRequested.ActiveConnection = MM_cnnASP02_STRING;
17 rsServiceRequested.Source = "{call dbo.cp_eqpSrv_Request("+ Request.Form("MM_recordId") + ",'"+Request.Form("DateRequested")+"',"+IsReceived+",'"+DateReceived+"','"+Description+"',1,'E',0)}";
18 rsServiceRequested.CursorType = 0;
24
25var rsServiceRequested = Server.CreateObject("ADODB.Recordset");
26rsServiceRequested.ActiveConnection = MM_cnnASP02_STRING;
124<input type="hidden" name="MM_update" value="true">
125<input type="hidden" name="MM_recordId" value="<%=Request.QueryString("intEquip_Srv_id")%>">
126</form>