Jump to content
Fórum Script Brasil
  • 0

Simulado On-line


Guest --Claytonprog --
 Share

Question

Guest --Claytonprog --

Pessoal estou tentando montar simulado on-line com um código que peguei na net. Está quanse pronto, porém está dando um erro.

vejam o código abaixo:



seleciona_disciplina.asp

<% @LANGUAGE=VBSCRIPT %>


<!--#include file="config.inc" -->
<%

Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

Response.CacheControl = "no-cache"

if Session("brquiz") <> "logado" then
Response.Redirect("login.asp")
sql3 = "SELECT * FROM usuarios WHERE login = '" & Session("username") & "'"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.CursorType = 3
rs3.CursorLocation = 3
rs3.LockType = 3
rs3.Open sql3, conn

else
%>


<%
'Seta as conecao
Set conn = Server.CreateObject("ADODB.Connection")

'Seta os registros
set rs = server.createobject("adodb.RecordSet")

'Seta caminho para abrir banco
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bd/simulado.mdb")


'Consulta

SQL = "SELECT * FROM disciplinas Order By descricao Desc"

'Abre conexao
rs.open sql, conn, 3, 3


'Acerta a posição do cursor
'rs.CursorLocation = adUseClient

'Define o tamanho do Cache = para o número de páginas
rs.CacheSize = 30

'Move o cursor para a primeira linha
rs.MoveFirst



%>


<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<LINK HREF="style1.css" TYPE="text/css" REL="stylesheet">
<LINK
href="default.css"
type=text/css rel=stylesheet>
<script src="codigos.js"
type=text/javascript></SCRIPT>

<style type="text/css">
<!--
a:active{
text-decoration: none;
color: #333333;
}
a:hover{
text-decoration: none;
color: #000000;
}
a:link{
text-decoration: none;
color: #333333;
}
a:visited{
text-decoration: none;
color: #333333;
}
.Texto1{
font-family: Verdana;
font-size: 10px;
font-weight: none;
color: #000000;
text-decoration: none;
}
.Texto2{
font-family: Verdana;
font-size: 10px;
font-weight: bold;
color: #000000;
text-decoration: none;
}
.Borda1{
border: 1px solid #999999;
}
.Form1{
border: 1px solid #999999;
font-family: Verdana;
font-size: 12px;
color: #000000;
text-decoration: none;
background-color: #F4F4F4;
}
-->
</style>


<title>Simulado On-Line</title>
</head>
<center>
<body style="background-color: #C0C0C0" link="#000000" alink="#800000" vlink="#7D7D7D">
<table width="42%" border="0" cellpadding="0" cellspacing="0" >
<tr>

<td width="422" align="left" valign="top">
<div align="center">
<table width="422" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="422" height="100%">
<div align="center">
<table width="356" border="0" cellspacing="0" cellpadding="0" height="237">
<tr>
<td align="center" valign="top" style="border-top:5px solid #EBEBEB" height="237" width="356">
<table width="50%" border="0" cellpadding="0" cellspacing="0" bgcolor="#EBEBEB" height="1">
<tr align="left" valign="top">
<td width="359" height="1" bgcolor="#FFFFFF">
<div align="center">
<table width="421" border="1" cellspacing="0" cellpadding="0" style="height:232px " bordercolor="#C0C0C0">
<TR>
<TD HEIGHT="230" style="border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" width="417" bgcolor="#FFFFFF">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width:0; border-right-width:0; border-bottom-width:0" bordercolor="#C0C0C0" width="98%" id="AutoNumber18" height="226">
<tr>
<td width="98%" style="border-style: none; border-width: medium" height="225" bordercolor="#C0C0C0" bgcolor="#FFFFFF">
<p align="center"><font face="Verdana"><font size="2">
<b>
<font color="#D2691E"><br> </font>
<font color="#800000">Seja
bem vindo ao</font><font color="#D2691E"> </font>
</b> </b> <strong>Simulado On-line</em></strong></font><b><font size="2" color="#D2691E"><em><br>
</font></b></font><p align="center"><img src="img/Simulado.png" width="166" height="100" border="0"><p align="center">
<b>
<font size="3" face="Verdana" color="#800000">
Selecione a Disciplina</font><font size="2" face="Verdana" color="#800000"></font></b><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="419" id="AutoNumber3" height="91">
<tr>
<td width="419" style="border-style: none; border-width: medium" height="1">
<tr>
<td height="90" valign="top" align="center" style="border-style:none; border-width:medium; " width="419">



<table border="1" cellspacing="1" style="border-collapse: collapse; border-right-width:0px" width="99%">
<tr>

<% Do while not rs.eof %>

<tr>

<td align="left" valign="top" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium">
<p align="center"></a></b>
<br>
</b><br><font face="Verdana" size="2" color="#00080"><%=rs("descricao")%><br>
<a href="simulado.asp?id2=<%=rs("descricao")%>"><font face="Verdana" size="2" color="#00000">
[ Acessar Simulado ]
<br>
</tr>

<%
rs.movenext
loop
%>

</td>
</tr>
</table>

</td>
</tr>
</td>
</tr>
</table>
<p style="text-align: center"><b>
<font size="2" face="Verdana">
<a href="../index.asp">Voltar</a></font></b></td>
</tr>
</td>
</tr>
</table>







<TABLE WIDTH="50%" BORDER="0" ALIGN="CENTER" CELLPADDING="0">

</TABLE>
</TD>
</TR>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table></td>
</tr>
</table>
</div>
</tr>
</table>
</div>
</center>
</table>
</body>
<%
end if
%></html>[/codebox]

[code]página que está dando o erro simulado.asp <% @LANGUAGE=VBSCRIPT %> <!--#include file="config.inc" --> <% Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" if Session("brquiz") <> "logado" then Response.Redirect("login.asp") else id2 = Request.querystring("id2") Session.TimeOut = "1" strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados) Set conn = Server.CreateObject("ADODB.Connection") conn.open strCon SQL = "SELECT * FROM perguntas where disciplinas = "&id2 Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = 3 rs.CursorLocation = 3 rs.LockType = 3 [color=#8B0000]rs.Open sql, conn[/color] erro nesta linha Dim Arr() Dim i, RowCount RowCount = RS.RecordCount Redim Arr(RowCount - 1) For i = 0 To RowCount - 1 Arr(i) = RS("id") rs.movenext Next Randomize 'perg_id = Arr(Int((Ubound(arr) + 1) * rnd)) rs.close sql2 = "SELECT * FROM perguntas WHERE id = "& perg_id & "" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open sql2, conn ' Verifica se o existe a pergunta selecionada aleatoreamente, não houver a página será recarregada... ' Então evite deletar perguntas do banco de dados do quiz! if rs2.eof then response.redirect("simulado.asp") end if %> <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <LINK HREF="style1.css" TYPE="text/css" REL="stylesheet"> <LINK href="default.css" type=text/css rel=stylesheet> <script src="codigos.js" type=text/javascript></SCRIPT> <style type="text/css">         <!--             a:active{                 text-decoration: none;                 color: #333333;             }             a:hover{                 text-decoration: none;                 color: #000000;             }             a:link{                 text-decoration: none;                 color: #333333;             }             a:visited{                 text-decoration: none;                 color: #333333;             }             .Texto1{                 font-family: Verdana;                 font-size: 10px;                 font-weight: none;                 color: #000000;                 text-decoration: none;             }             .Texto2{                 font-family: Verdana;                 font-size: 10px;                 font-weight: bold;                 color: #000000;                 text-decoration: none;             }             .Borda1{                 border: 1px solid #999999;             }             .Form1{                 border: 1px solid #999999;                 font-family: Verdana;                 font-size: 12px;                 color: #000000;                 text-decoration: none;                 background-color: #F4F4F4;             }         -->         </style> <title>Simulado On-Line</title> </head> <body style="background-color: #C0C0C0" link="#000000" alink="#F4A460" vlink="#800000"> <div align="center"> <table width="36%" border="0" cellpadding="0" cellspacing="0" >   <tr>     <td width="364" align="left" valign="top">     <table width="362"  border="0" cellspacing="0" cellpadding="0">       <tr align="left" valign="top">         <td width="355" height="100%">         <table width="355"  border="0" cellspacing="0" cellpadding="0" height="496">           <tr>             <td align="left" valign="top" style="border-top:5px solid #EBEBEB" height="496" width="355">             <table width="107%"  border="0" cellpadding="0" cellspacing="0" bgcolor="#EBEBEB" height="1">               <tr align="left" valign="top">                 <td width="381" height="1" bgcolor="#FFFFFF">                 <table width="354"  border="1" cellspacing="0" cellpadding="0" style="height:491px " bordercolor="#C0C0C0">                                                                  <TD HEIGHT="489" style="border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1; border-top-style:none; border-top-width:medium; border-bottom-style:solid; border-bottom-width:1" width="460">       <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber18">         <tr>           <td width="100%" style="border-style: none; border-width: medium"><tr>                           <td width="100%" style="border-style: none; border-width: medium" height="273">                           <p align="center">                           <% sql3 = "SELECT * FROM usuarios WHERE login = '" & Session("username") & "'" Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.CursorType = 3 rs3.CursorLocation = 3 rs3.LockType = 3 rs3.Open sql3, conn %>&nbsp;                                                                                       <table border="1" cellspacing="1" style="border-collapse: collapse; border-left-width:0px; border-right-width:0px" width="100%" height="39">                                                                       <tr>         <td width="39%" valign="top" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">         <p style="text-align: center"><b><font size="2" color="#800000">Disciplina:</font></b></td>         <td width="59%" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">                   &nbsp;<%=rs2("disciplina")%></td>       </tr> </td>                                 </tr>                             </table>                             <center> <p style="margin-left: 12; margin-right: 12"> <font size="2" face="Tahoma">Usuário: <%=Session("username")%> <br> Pontos: <%=rs3("pontos")%> <Br><br> <b>Aviso:</b> Você tem exatamente <b>1 minuto</b> pra responder a pergunta, caso não responda, você precisará fazer o login novamente! </font> </p> <p style="margin-left: 12; margin-right: 12"> &nbsp;</p> </center> </p> <form method="POST" action="responde.asp" name="responde">                               <center>     <table border="0" width="94%" cellspacing="0" cellpadding="0" height="115">       <tr>         <td width="100%" height="31" bgcolor="#800000"><font color="#FFFFFF" size="2" face="Tahoma">&nbsp;&nbsp;<%=rs2("pergunta")%></font></td>       </tr>       <tr>         <td width="100%" height="21"><input type="radio" value="1" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #800000;; background-color:#800000"><font size="2" face="Tahoma"><%=rs2("resp1")%></font></td>       </tr>       <tr>         <td width="100%" height="21"><input type="radio" value="2" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #D2691E;; background-color:#800000"><font size="2" face="Tahoma"><%=rs2("resp2")%></font></td>       </tr>       <tr>         <td width="100%" height="21"><input type="radio" value="3" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #D2691E;; background-color:#800000"><font size="2" face="Tahoma"><%=rs2("resp3")%></font></td>       </tr>       <tr>         <td width="100%" height="21"><input type="radio" value="4" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #000000; border: 1px dashed #D2691E;; background-color:#800000"><font size="2" face="Tahoma"><%=rs2("resp4")%></font></td>       </tr>       <tr>         <td width="100%" height="21"></td>       </tr>     </center>       <tr>         <td width="100%" height="21">           <p align="center">           <input border="0" src="img/responder.png" name="I1" type="image" WIDTH="120" HEIGHT="35" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 0px dashed #fffff;; background-color:#FFFFCC"></td>       </tr>     </table>     <input type="hidden" name="id" value="<%=rs2("id")%>"> </form> <p align="center"><br><a href="logout.asp"> <img border="0" src="img/logout.gif" WIDTH="58" HEIGHT="15"></a> <% end if %> </body> </html></td>                         </tr>          </td>         </tr>       </table>       <TABLE WIDTH="50%" BORDER="0" ALIGN="CENTER" CELLPADDING="0">                </TABLE>       </TD>   </TR> </td>                   </tr>                   </table>                 </td>                                </tr>             </table></td>           </tr>           </table></td>       </tr>     </table></td>   </tr> </table> </div> </body> </html>[/code]

o erro é este:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 2.

/simulado/simulado.asp, line 34

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...