Ir para conteúdo
Fórum Script Brasil

emulador

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Sobre emulador

emulador's Achievements

0

Reputação

  1. Baixei um tuturial do endereço: www.tdsf.co.uk/tdsfdemo É um excelente tuturial, lá ensina a criar passo a passo um sistema de busca completo, dá os exemplos de como usar o dream MX e até a configurar querys no access. Não deixem de conferir Me ajudou muito
  2. emulador

    Comando Sql

    Estou tentando fazer um sistema de busca, onde temos dois list menus para a pessoa escolher o tópico da pesquisa . Veja o código abaixo e me ajude a verificar o erro, detalhe só começou a dar erro quando defini as variaveis artist_name e occasionType <% Dim rsResults Dim rsResults_numRows Set rsResults = Server.CreateObject("ADODB.Recordset") rsResults.ActiveConnection = MM_conn_koolkardsotp_STRING rsResults.Source = "SELECT artist_name, Occasion, category, cost, ID, image_path, ref_number, rrp_price, type FROM Occasions INNER JOIN (artists INNER JOIN products ON artists.artist_id = products.artist_id) ON Occasions.occasion_ID = products.occasion_id; WHERE products.artist_id = " + Replace(rsResults__artistName, "'", "''") + " and products.occasion_id = " + Replace(rsResults__occasionType, "'", "''") + "" rsResults.CursorType = 0 rsResults.CursorLocation = 2 rsResults.LockType = 1 rsResults.Open() rsResults_numRows = 0 %> Aparece um erro ODBC dizendo caracteres encontrados apos o final da instrução SQL Se puderem me ajudar mais uma vez !!! Obrigado Fábio EDITADO: Utilize as tags CODE ou QUOTE quando postar códigos
  3. emulador

    Comando Sql

    Bom Dia Moçada Estou tentando fazer uma busca usando o Recordset Advanced do Dreamweaver MX e estou tendo problemas na escrita da instruçao SQL SELECT artist_name, Occasion, category, cost, ID, image_path, ref_number, rrp_price, type FROM Occasions INNER JOIN (artists INNER JOIN products ON artists.artist_id = products.artist_id) ON Occasions.occasion_ID = products.occasion_id; WHERE products.artist_id = artistName AND products.occasion_id = occasionType Variables Name ------------------ Default Value ------------------------- Run-time Value artist_Name ------------------ 1 ----------------------------- RequestForm("artist") occasionType----------------- 2 ----------------------------RequestForm("occasion") Só acontece o erro depois de colocar as variaveis e usar a instrução Where, quando eu retiro as variaveis e o Where tudo funciona. Se puderem me ajudar Obrigado Fábio
  4. emulador

    Indique Esta Pagina

    Bom vamos lá do começo O código que passei é de um página para indicar um amigo. Além dela indicar um amigo ela me passará de qual página o usuário indicou a página, jogando esta variavel <%=Request.ServerVariables("HTTP_REFERER")%, para um banco de dados que poderei estar acessando para saber quantas indicações ocorreram e de quais páginas de meu site ela ocorreu. O problema é que quando o usuário usa o IE ele não passa para meu banco de dados de qual página foi a indicação, ele apenas mostra que houve uma indicação, já no Netscape tudo acontece perfeito, vejo que houve uma indicação e de qual página ela foi gerada, minha dúvida é o que posso trocar no código para isto funcionar nos dois browsers. Sem mais, Emulador
  5. emulador

    Indique Esta Pagina

    O código passado : <% DIM HTTP HTTP = "http://" & request.ServerVariables("HTTP_HOST") + request.ServerVariables("PATH_INFO") %> <body> <% = HTTP %> </body> retorna o endereço certo, o problema é não sei como alterar onde ele só estava <%=Request.ServerVariables("HTTP_REFERER")%>. Me ajudem com o código: <body> <center><%=Rec_GetAd(1)%></center> <hr> <h2 class="style1">Indique esta p&aacute;gina: <br> <span class="style2"><%=Request.ServerVariables("HTTP_REFERER")%></span></h2> <form action="recexec.asp" method ="post"> <table border="0"> <tr> <td><span class="style2">Digite seu nome:</span></td> <td><input type="Text" name="name" size="25" maxlength="100"></td> </tr> <tr> <td><span class="style2">Seu email:</span></td> <td><input type="Text" name="youremail" size="25" maxlength="100"></td> </tr> <tr> <td><span class="style2">Email de seu amigo:</span></td> <td><input name="emailaddress" size="25"></td> </tr> <tr> <td><span class="style2">Comentários:</span></td> <td><textarea rows="5" name="yourmessage" cols="21">Digite aqui <%=Request.ServerVariables("HTTP_REFERER")%> .</textarea></td> </tr> <tr> <td colspan="2"><input type="Submit" name="submit" value="Clique Aqui"></td> <input type="hidden" name="_redir" value="recthanks.asp?page=<%=Request.ServerVariables("HTTP_REFERER")%>"> <input type="hidden" name="_page" value="<%=Request.ServerVariables("HTTP_REFERER")%>"> </tr> </table> </form> <hr> <center><%=Rec_GetAd(2)%></center> </body> </html> Se puderem me ajudar desde já obrigado.
  6. emulador

    Indique Este Site

    E ai moçada, td beleza, já viram um veterinário apanhando para fazer um site de biquinis ??!!! hehehehe. Sou eu na fita. Primeiramente gostaria de falar que gostei muito deste fórum , muit prático, prinicipalmente para aqueles que não sabem nada e usam coisas dos outros e o Dreamweaver para tentar fazer suas páginas. Chega de conversa fiada e dexa eu perguntar logo: To tomando uma surra de um tuturial em asp que pequei da página asp script brasil, feito por Edson Lopes, o cara chama seu esquema de indicar o site para outras pessoas de " recommentor ". São 11 páginas, que terão a função de indicar o site para um amigo e ainda gravar em um banco de dados o visitante que indicou o site. Examinei o código na medida do possível pois é novo para mim, e em tese não consegui achar o erro que está acontecendo, depois do visitante enviar para o amigo retorna uma página de erro: Microsoft JET Database Engine error '80040e21' Field 'rec_logging.page' cannot be a zero-length string. /recommentor/recexec.asp, line 44 O codigo da pagina recexec.asp é: 'Log it Dim oConn, oRS Set oConn = Rec_GetDatabaseConn() Set oRS = Server.CreateObject("ADODB.Recordset") oRS.Open "select * from " & Rec_GetTablePrefix() & "rec_logging where id = -1" , oConn, 1, 3 oRS.AddNew oRS("page").Value = sPage oRS("datum").Value = GetFormattedDate( Now() ) oRS.Update .............................................................aqui é a linha 44. oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing ' Response.Write sRedir 'Response.End Response.Redirect sRedir Response.Flush Response.End %> Analisando o código achei que poderia ser um erro na página que gera a tabela REc_GetTablePrefix() que é: Function Rec_GetAd(nNumber) Select Case nNumber Case 1 Rec_GetAd = "" Case 2 Rec_GetAd = "" Case 3 Rec_GetAd = "" End Select End Function Function Rec_GetTablePrefix() Rec_GetTablePrefix = "" End Function Se puderem ajudar ficaria muito grato. Se ajudar o link para o download dos arquivos é http://asp.scriptbrasil.com/?class=2.3&id=...egoria=V%E1rios
×
×
  • Criar Novo...