<% Dim frompage frompage = Request("frompage") 'If frompage.Length = 0 Then If IsEmpty(frompage) = True Then frompage = "Manual_Testing" End If If Session("logintype") = "ADM" Then Response.Redirect("adminfaq.asp?frompage="&frompage) Response.Flush End If Dim countnext Dim cnt cnt = Request("cnt") If IsEmpty(cnt) = True Then cnt = 0 End If Response.CacheControl = "no-cache" %> <% Dim displaytitle If frompage = "Manual_Testing" Then displaytitle = "Manual Testing Interview Questions & Answers" ElseIf frompage = "Quality_Center" Then displaytitle = "Quality Center Interview Questions & Answers" ElseIf frompage = "Quick_Test_Professional" Then displaytitle = "Quick Test Professional Interview Questions & Answers" ElseIf frompage = "WinRunner" Then displaytitle = "WinRunner Interview Questions & Answers" ElseIf frompage = "LoadRunner" Then displaytitle = "LoadRunner Interview Questions & Answers" ElseIf frompage = "Rational_Robot" Then displaytitle = "Rational Robot Interview Questions & Answers" ElseIf frompage = "Database" Then displaytitle = "Database Interview Questions & Answers" ElseIf frompage = "Unix" Then displaytitle = "Unix Interview Questions & Answers" ElseIf frompage = "Datawarehouse" Then displaytitle = "Datawarehouse Interview Questions & Answers" ElseIf frompage = "Genaral_Q" Then displaytitle = "Genaral Q Interview Questions & Answers" End If %> <%=displaytitle%>
[an error occurred while processing this directive]






<%=displaytitle%>

  Post Your Question
Post Your Answer
<% ConnString = "Driver={MySQL ODBC 3.51 Driver};" & _ "Server=qapool1.db.2178770.hostedresource.com;" & _ "Database=qapool1;" & _ "Uid=qapool1;" & _ "Pwd=Ajaytest1972@;" %> <% Dim CountQuest CountQuest = cnt*25 countnext = (CInt(cnt) + 1)*25 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_postquest_manual where typeoftesting ='" & frompage & "' and 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 * from qa_postquest_manual where typeoftesting ='" & frompage & "' and status='active' LIMIT 25 OFFSET " & CountQuest If not rs.EOF Then Do While not rs.EOF %> <% Set conAnswer = Server.CreateObject("ADODB.Connection") conAnswer.Open ConnString Set rsAnswer = Server.CreateObject("ADODB.RecordSet") Set rsAnswer.ActiveConnection = conAnswer rsAnswer.Open "select * from qa_postanswer where questionId =" & rs.Fields("custid") & " and status ='active'" If not rsAnswer.EOF Then Do While not rsAnswer.EOF %> <% rsAnswer.MoveNext Loop End If rsAnswer.Close() conAnswer.Close() rs.MoveNext Loop End If rs.Close() con.Close() %>
 

<%=rsAnswer.Fields("answer")%>
<% If not cnt=0 Then %> <% End If %>     <% If (countnext <= CInt(CountRec)) Then %> <% End If %>

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