<% Response.CacheControl = "no-cache" Dim countnext Dim cnt cnt = Request("cnt") If IsEmpty(cnt) = True Then cnt = 0 End If %> QA Training in New Jersey (NJ), QA Online Taining - QAPool.com
[an error occurred while processing this directive]
 
 
 

QA Training in NJ

Post Your Ad
Excellent Training Available For Manual and Automation Testing in Edison, New Jersey Call Rekha @ 609-799-1181 | 609-977-2974

There will be Weekday and Weekend Classes       For More Details
<% ConnString = "Driver={MySQL ODBC 3.51 Driver};" & _ "Server=qapool1.db.2178770.hostedresource.com;" & _ "Database=qapool1;" & _ "Uid=qapool1;" & _ "Pwd=Ajaytest1972@;" %> <% Dim CountQuest Dim url_name Dim i Dim jobdate Dim jobdate11 Dim jobmonth Dim jobday Dim datedif Dim cnt1 cnt1 = 0 i = 1 CountQuest = cnt*60 countnext = (CInt(cnt) + 1)*60 Dim CountRec Set conid = Server.CreateObject("ADODB.Connection") conid.Open ConnString Set rsid = Server.CreateObject("ADODB.RecordSet") Set rsid.ActiveConnection = conid rsid.Open "select count(*) gcount from qa_postad where status='active'" If not rsid.EOF Then CountRec = rsid.Fields("gcount") End If rsid.Close() conid.Close() Set con = Server.CreateObject("ADODB.Connection") con.Open ConnString Set rs = Server.CreateObject("ADODB.RecordSet") Set rs.ActiveConnection = con rs.Open "select custid, SUBSTRING(coursedetails From 1 For 100) coursedetails1, adtitle, phone from qa_postad where status='active' ORDER BY custid LIMIT 60 OFFSET " & CountQuest If not rs.EOF Then Do While not rs.EOF If i mod 2 = 0 Then %> <% cnt1 = Cint(cnt1) + 1 If not rs.EOF and (Cint(CountRec) <> cnt1) Then rs.MoveNext %> <% Else %> <% End If %> <% Else %> <% cnt1 = Cint(cnt1) + 1 If not rs.EOF and (Cint(CountRec) <> cnt1) Then rs.MoveNext %> <% Else %> <% End If %> <% End If i = Cint(i) + 1 If not rs.EOF Then rs.MoveNext End If cnt1 = Cint(cnt1) + 1 Loop End If rs.Close() con.Close() %>
<%=rs.Fields("coursedetails1")%>
Call @ <%=rs.Fields("phone")%>
<%=rs.Fields("coursedetails1")%>
Call @ <%=rs.Fields("phone")%>
 
<%=rs.Fields("coursedetails1")%>
Call @ <%=rs.Fields("phone")%>
<%=rs.Fields("coursedetails1")%>
Call @ <%=rs.Fields("phone")%>
 
<% If not cnt=0 Then %> <% End If %>     <% If (countnext <= CInt(CountRec)) Then %> <% End If %>
 
 

Copyright © 2007 QAPool.com. All Rights Reserved. | Contact US