Trabalhando com usuário logado ...

[Angelo lima 0]

E ai pessoal, tudo bem ? Estou com problemas ....

 

Preciso terminar um sisteminha mais complexo aonde ocorre o seguinte :

 

- O usuário cadastra

- Automaticamente ele depois de cadastrado estará logado.

- Esse mesmo usuário responde 3 perguntas, aonde isso eu gravo num outro banco, porém com o id e nome da tabela do cadastro.

 

Alguém poderia me dar uma força na lógica disso ????

 

Abraços

 

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif http://forum.imasters.com.br/public/style_emoticons/default/excl.gif http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

[Angelo lima 0]

<%'conecto no banco pra me trazer o recordset da tabela de cadastro de usuario%><!--#include file="includes/conn.asp" --><%set Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_cadastro_STRINGRecordset1.Source = "SELECT * FROM cad_participante"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 3Recordset1.Open()Recordset1_numRows = 0%><%'Seto uma nova conexão com o banco%><%Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("./database/db_grandcru.mdb") Conn.open' trago o recordset do usuáriologin2 = Recordset1("email")senha2 = Recordset1("senha")SQL = "select * from cad_participante where email = '"&login2&"' and senha = '"&senha2&"' "Set RS = Conn.Execute(SQL)If RS.EOF Then Response.Write "Usuário ou Senha Inválida!" Response.EndEnd Ifsession("usuario") = RS("nome") Response.Redirect "quizSemanas.asp"' Problema é aqui .... preciso que ele redirecione pra essa pagina, porém abrindo a session e id do usuário, ' Porque quando o usuário responder essas 3 perguntas, isso será gravado no banco com o id do usuário que respondeu.%> <%Recordset1.close%>

[Angelo lima 0]

Vou tentar aqui brother ....ai no form das questões eu coloco assim<input type="hidden" name="id" value="<%=recordset1("id")%> ??eu até entendo a logica, mas o funcional é fogo meu ... rsrsrsrs ....

[Angelo lima 0]

A Pagina que retorna do login ou do cadastro do usuário é essa ....<%@LANGUAGE="VBSCRIPT"%><!--#include file="includes/conn.asp" --><%MM_editAction = CStr(Request("URL"))If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryStringEnd IfMM_abortEdit = falseMM_editQuery = ""%><%If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_cadastro_STRING MM_editTable = "cad_quiz" MM_editRedirectUrl = "quizSemanas.htm" MM_fieldsStr = "campo|value" MM_columnsStr = "campo|',none,NULL" MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End IfEnd If%><%If (CStr(Request("MM_insert")) <> "") Then MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End IfEnd If%><%set Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_cadastro_STRINGRecordset1.Source = "SELECT * FROM cad_quiz"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 3Recordset1.Open()Recordset1_numRows = 0%><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Vinho, uma viagem!</title><link href="css/css.css" rel="stylesheet" type="text/css" /><script src="js/mouseover.js"></script><style type="text/css"><!--.style8 { color: #666666; font-style: italic;}--></style></head><body><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p class="titulos">Quiz: Semana 1 <span class="style8">|</span> <span class="style8">Semana 2</span> <span class="style8">|</span> <span class="style8">Semana 3</span> <span class="style8">|</span> <span class="style8">Semana 4 </span></p> <p>Olá <%=Session("usuario")%>,</p></td> </tr> <tr> <td>Essa semana a região enoturística é Vale do Rioja, no Chile. </td> </tr></table><br /><form action="" name="formquiz"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p class="perguntas">1) Pergunta 1: </p> </td> </tr></table><table width="100%" border="0" cellspacing="1" cellpadding="3"> <tr> <td width="1"><input name="r1" type="radio" value="0" /></td> <td>Resposta 1 Resposta 1 </td> </tr> <tr> <td width="1"><input name="r1" type="radio" value="1" /></td> <td>Resposta 2 Resposta 2 </td> </tr> <tr> <td width="1"><input name="r1" type="radio" value="0" /></td> <td>Resposta 3 Resposta 3 </td> </tr></table><br /><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p class="perguntas">2) Pergunta 2: </p></td> </tr></table><table width="100%" border="0" cellspacing="1" cellpadding="3"> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 1 Resposta 1 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 2 Resposta 2 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 3 Resposta 3 </td> </tr></table><br /><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p class="perguntas">3) Pergunta 3: </p></td> </tr></table><table width="100%" border="0" cellspacing="1" cellpadding="3"> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 1 Resposta 1 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 2 Resposta 2 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 3 Resposta 3 </td> </tr></table><br /><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p class="perguntas">4) Pergunta 4: </p></td> </tr></table><table width="100%" border="0" cellspacing="1" cellpadding="3"> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 1 Resposta 1 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 2 Resposta 2 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 3 Resposta 3 </td> </tr></table><br /><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p class="perguntas">5) Pergunta 5: </p></td> </tr></table><table width="100%" border="0" cellspacing="1" cellpadding="3"> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 1 Resposta 1 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 2 Resposta 2 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 3 Resposta 3 </td> </tr></table><br /><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p class="perguntas">6) Pergunta 6: </p></td> </tr></table><table width="100%" border="0" cellspacing="1" cellpadding="3"> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 1 Resposta 1 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 2 Resposta 2 </td> </tr> <tr> <td width="1"><input name="radiobutton" type="radio" value="radiobutton" /></td> <td>Resposta 3 Resposta 3 </td> </tr></table><input type="hidden" name="MM_insert" value="true"><input type="hidden" name="id" value="<%=session("id")%>"></form><%Recordset1.Close()%></body></html>

[Rafael Barros 0]

o que voce deve fazer neste caso e colocar mais 5 campos na tabela users..(quiz, pergunta1, p2, p3, p4) o campo quiz vai dizer se ele já responseu.. e os outros 4 gravam sua resposta.utilizando sessions quando ele entrar e o quiz for false então ele deve responder as perguntas, junte as respostas mais o idusuario vindo de uma session("idusuariologado") e de upgrade no banco, não esquece de deixar o valor de quiz true.Assim ele quando entrar denovo não terá que responder...Abraços...