rcnery

Estou com grande problema, e preciso de alguma idéia para soluicioná-lo: Tenho um check box de form que é gerando utilizando loop, não sei quantos serão gerados, preciso saber o que eu faço para recuperar esses check box que irão servir como causa (WHERE) para abrir uma tabela do bd equivalente aos ckeck selecionados. Por favor aguar ajuda. Obrigado Ricardo código do check loop <% ' Open Recordset Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Con RS.Open "Select expo, idexpocal, idexpo FROM expos WHERE idexpocal = '"& idcal & "' " While not RS.EOF %> <table width="100%" cellspacing="0"> <tr> <td><div align="left"> <input name="expo" type="checkbox" value="<%=RS ("idexpo")%>"> <font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=RS ("expo")%> </font></div></td> </tr> </table> <font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> <% RS.MoveNext Wend %> Código q estou utilizando para recuperar q esta dando erro: <% '****** Exemplo de split() varCheck = Request.Form("expo") '** quando é mais de um check ele manda os valores entre virgulas, tipo (13,47,98...), entendeu?! '** quebrando os valores valor = split(varCheck,",") '** o FOR vai mostrar na tela os ID's for i = 0 to uBound(valor) Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Con RS.Open "Select expotipo, idexpo FROM expos WHERE idexpo = '"& valor(i) & "' " While not RS.EOF resultidexpo = RS ("idexpo") resulttipoexpo = RS("expotipo") Wend sqlString = "INSERT INTO exporesul " &_ "( resultiddog, resultdograca, resultsexo, resultidexpo, resultidcal resulttipoexpo) VALUES ( " &_ " '" & rg & "', " &_ " '" & dogRaca & "', " &_ " '" & dogsexo & "', " &_ " '" & resultidexpo & "', " &_ " '" & idcal & "', " &_ " '" & resulttipoexpo & " ')" Con.Execute sqlString next %>

Urso, valeu mas é exatamente isso que estou utilizando que tem alguns textos que aparce só um letra ou meia palavra no final... Isso é só um detalhe, valeu pela força.

Urso, Eu coloquei os 3 pontinhos, mas se tivesse alguma função ficaria melhor, eu vi que você utilizou a contagem de caracteres para dividir uma mátéria, você teve esse tipo de problema?

Na pagina principal do meu site aparece texto aleatórios que estão sendo limitados em 220 caracteres, o problema é que alguns casos a palvra fica cortada ao meio, existe alguma maneira de fazer com que a palavra só apareça se estiver completa. Obrigado Ricardo

Acho que você precisa escrever assim fisica_media= ((<%=fisica1%>+<%=fisica2%>+<%=fisica3%>+<%fisica4%>)/4) Acho que é isso, testa ai e nos fala.

Urso Resolvi o problema alterando o código para esse aqui. Pode fechar o tópico. Valeu pela ajuda. Ricardo <!--#include virtual="../adm/openbanco.asp"--> <%Session.LCID=1046 votoid = cINT ("2") ipvoto = Request.ServerVariables("REMOTE_ADDR") mdata = date Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Con Sql = "delete * from ipvoto where (#"&mdata&"#-ipdata)<>0" Con.Execute Sql RS.Open "Select * FROM ipvoto WHERE ipvotou = '"& ipvoto & "' " While not RS.EOF ipidvoto = cInt (RS ("ipidvoto"))%> <%=ipidvoto%> <br> <%=votoid%><br> <% IF ipidvoto = votoid THEN Response.Redirect("../webroom.asp?showpage=galeria") END IF RS.MOVENEXT WEND%> <%= ipvoto %> <br> <%= votoid %> <br> <%= mdata %> <br> <% ' Add New IP sqlString = "INSERT INTO ipvoto " &_ "( ipvotou, ipidvoto, ipdata ) VALUES (" &_ "'" & ipvoto &"', "&_ "'" & votoid &"', "&_ "'" & mdata &"')" Con.Execute sqlString %>

Urso Valeu pela dica, vou tentar e depois eu fala se funcionou. Estou usando o acces. Valeu Abraço Ricardo

Pessoal, To fazendo um sistema de votação que a pessoa só pode votar uma vez por dia verificando o enderço ip e gravando o mesmo em um bd por 1 dia. O problema é que estou recebendo a seguinte mensagem e não consegui resolver. Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /galeria/ipvoto.asp, line 39 Código. <!--#include virtual="../adm/openbanco.asp"--> <% Dim ipvoto Dim votoid Dim ipdata Dim data votoid = 0 ipvoto = Request.ServerVariables("REMOTE_ADDR") data = date Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Con RS.Open "Select * FROM ipvoto WHERE ipidvoto = "& votoid & " " WHILE not RS.EOF ipdata = RS ("ipdata") varDiferenca = datediff("d",ipdata,data) IF varDiferenca < 1 THEN sqlString = "delete * from ipvoto where ipdata = '"& data & "' " Con.Execute sqlString ELSE sqlString = "Select * from ipvoto where ipvotou = "& ipvoto & " " Con.Execute sqlString IF sqlString <> "" THEN Response.Write " Você já votou nessa foto hoje, por favor retorne amanhã." END IF RS.MoveNext END IF WEND %> <%=ipvoto%><br> <%=data%><br> <%=votoid%><br> <% ' Add New IP sqlString = "INSERT INTO ipvoto " &_ "(ipvotou, ipidvoto, ipdata ) VALUES (" &_ "'" & ipvoto &"', "&_ "'" & votoid &"', "&_ "'" & data &"')" Con.Execute sqlString %> O BD esta assim ipvotou - Texto já tentei com numero e tb deu erro. ipidvoto - Numero já tentei com texto e nada ipdata - Data/hora unico que não auterei. Obrigado por me ajudarem.

Para solucionar o erro eu criei uma pagina com o upload sózinho e chamei ela diretamente... O q estava acontecendo que não rodou ai?

Preciso urgente fazer uma verificação para ver se o campo preenchido esta correto, como eu faço isso? Os campos devem conter os seguintes dados, um campo para cada opção abaixo: Nacional CBKC (RG/XXXn/99/9999) ou Importado Homologado (CBKCE/99999 ou CBKCE/XXXn/X9999) ou Importado não Homologado (letras, números e "/") ou Nacional Transferido (RG/XXXn/TR/99999) ou Grupo 11 (NRnn/XXXn/99/99999 Obrigado

Vitor, Valeu pela força, já consegui resolver o problema. Abraço Ricardo

Pessoal consegui fazer o upload do jeito que eu precisava, sozinho funciona normal mas quando eu coloco o arquivo dentro da pagina do site com include da a seguinte mensagem de erro: Microsoft VBScript compilation error '800a03ea' Syntax error /clsComLessUpload.asp, line 2 Class ComLessUpload Código completo: <% Class ComLessUpload Private aAllData Private aHdr Private isPosted Private q '--------------------------------------------------------------------------- ' Constructor '--------------------------------------------------------------------------- Private Sub Class_Initialize() If Request.TotalBytes > 0 Then Dim AllDataB, x ' Set flag for posted data isPosted = True ' Retrieve post data q = Chr(34) aAllDataB = Request.BinaryRead(Request.TotalBytes) ' Convert to Ascii from Unicode For x = 1 To LenB(aAllDataB) aAllData = aAllData & Chr(AscB(MidB(aAllDataB, x, 1))) Next ' Retrieve header aHdr = Left(aAllData, InStr(aAllData, vbCrLf) + 1) Else isPosted = False End If End Sub '--------------------------------------------------------------------------- ' Destructor '--------------------------------------------------------------------------- Private Sub Class_Terminate() ' End Sub '--------------------------------------------------------------------------- ' Save with original filename '--------------------------------------------------------------------------- Public Function Save(directory, field, overwrite) 'As Boolean If isPosted Then Dim filename filename = directory & GetFileName(field) SaveFile field,filename,overwrite End If End Function '--------------------------------------------------------------------------- ' Save with different filename '--------------------------------------------------------------------------- Public Function SaveAs(filename, directory, field, overwrite) 'As Boolean If isPosted Then Dim filenameAll filenameAll = directory & filename SaveFile field,filenameAll,overwrite End If End Function '--------------------------------------------------------------------------- ' Look for the specified form field in the data, retrieve its filename '--------------------------------------------------------------------------- Public Function GetFileName(field) If isPosted Then Dim x2, i x = InStr(aAllData, aHdr & "Content-Disposition: form-data; name=" & q & field & q) If x >0 Then x = InStr(x, aAllData, "filename=" & q) x2 = InStr(x, aAllData, vbCrLf) For i = x2 To x Step -1 If Mid(aAllData, i, 1) = "\" Then x = i - 9 Exit For End If Next GetFileName = Mid(aAllData, x + 10, x2 - (x + 11)) End If End If End Function '--------------------------------------------------------------------------- ' Get file data from upload, for a specified field '--------------------------------------------------------------------------- Private Function GetFileData(field) Dim x2 x = InStr(aAllData, aHdr & "Content-Disposition: form-data; name=" & q & field & q) If x > 0 Then x = InStr(x, aAllData, vbCrLf) x = InStr(x + 1, aAllData, vbCrLf) x = InStr(x + 1, aAllData, vbCrLf) + 2 x2 = InStr(x, aAllData, Left(aHdr, Len(aHdr) - 2)) GetFileData = Mid(aAllData, x + 2, x2 - x - 4) End If End Function '--------------------------------------------------------------------------- ' Create an FSO object, save the data to disk '--------------------------------------------------------------------------- Private Sub SaveFile(aField, aFilename, overwrite) 'As Boolean Dim FSO, TS Set FSO = CreateObject("Scripting.FileSystemObject") Set TS = FSO.CreateTextFile(aFilename, overwrite, False) ' final param is unicode TS.Write GetFileData(aField) TS.Close Set TS = Nothing Set FSO = Nothing End Sub End Class %> Se alguém souber de alguma maneira para resolver esse problema me ajude por favor!!!

Urso, Valeu por me ajudar, mas qual seria a sua sujestão para eu resolver esse problema? Abraço Ricardo

Obrigado a todos pelas informações a solução mais simples que encontrei foi essa: response.write replace(campotexto, vbcrlf,"<br>") Abraço Ricardo

Pessoal, Estou utilizando o seguinte comando para upload: Pagina 1: <HTML> <BODY BGCOLOR="#FFFFFF"> <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript1.asp"> <INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR> <INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR> <INPUT TYPE=SUBMIT VALUE="Upload!"> </FORM> </BODY> </HTML> Pagina2: <% Set Upload = Server.CreateObject("Persits.Upload") Count = Upload.Save("endereço do servidor") Response.Write Count & " file(s) uploaded to Selected Folder" Gostaria de saber se tem como eu grara o arquivo enviado com um nome específico ou se tem como eu recuperar somente o nome do arquivo para poder grava-lo no banco de dados para poder recupera=lo posteriormente em outra pagina. Agradeço a ajuda que todos tem me dado. Ricardo %>

Se você puder me envie o código em java script que você usou. Valeu

Urso valeu pela força mais acho que eu não me expressei direito. Eu quero que fique igual a pessoa digitar e se ela colocar enter para quebrar a linha fique com o enter na hora que eu busco. (igual a esse forum) Valeu

Pessoal estou com um pequeno problema, no meu fórum, quando eu recupero do Banco de Dados uma mensagem ela vem como texto corrido, não obedece as quebra de linha (enter) que foi colocado. Como eu resolvo isso? Obrigado a todos

Eu tenho o BD, só não sei como agendar. Obrigado por tentar ajudar

Pessoal, primeiro quero desjar um bom ano novo a todos do fórum!!! Estou querendo fazer com que seja enviado a cada mês um relatório sobre as visualizações e clicks dos banner do meu site. O relatório está pronto, minha dúvida é como eu faço para que o provedor envie automáticamente a cada mês. Obrigado a todos Ricardo

Obrigado a todos pela atenção. Já consegui resolver o problema!!!

Estou com um novo problema com datas, a data aparece normal da primeira vez que eu chamo, mas após fazer um update para nova data ela me retorna como hora, alguém sabe o que pode estar acontecendo? Abaixo o código q estou utilizando <%Session.LCID=1046 mData = Date() %> <!--#include file="openbanco.asp"--> <% 'Open Recordset Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = Con RS.Open "Select codigoperg, contresp, contdata FROM forum where codigoperg = " & codigoperg & " " contresp = RS("contresp") + 1 Con.Execute("UPDATE forum SET contresp = " & contresp & " where codigoperg = " & codigoperg & "") Con.Execute("UPDATE forum SET contdata = " & mData & " where codigoperg = " & codigoperg & "") %> Valeu.

era isso que eu estava precisando, valeu amigo!!!

Urso valeu pela força, O que eu quero é o seguinte, preciso identificar o mês atual e com isso abrir uma pagina relaciona com o mes. Consegui me explicar? Valeu

Preciso tirar duas dúvida relacionadas as datas: 1º Como eu faço para exibira a data como dd/mm/aaaa? 2º Como eu faço para utilizar o mes como base de busca? Obrigado pela ajuda