Ir para conteúdo
Fórum Script Brasil

Cassius Andrade

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    6

  • Registro em

  • Última visita

Sobre Cassius Andrade

Cassius Andrade's Achievements

0

Reputação

  1. Cassius Andrade
    Olá turma.. Bem, estou utilizando o Editor de Texto Advanced Content Editor da Yusuf Wiryonoputro. Nele tem a opção de inserir imagem naquele esqueminha de upload. Eles estava dando um erro de caminho, detectei que o caminho fica numa global.asa a dúvida é saber se alguém já utilizou ou se alguém sabe e pode me ajudar com esse caminho. o código onde é chamado é esse abaixo.. <% imgFolder = Application("PastaImagens") 'Locate your image folder here if Request.QueryString("action")="del" then filepath = request.QueryString("file") Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = objFSO1.GetFile(Server.MapPath(filepath)) MyFile.Delete Response.Redirect "default_Image.asp?catid="& request.QueryString("catid") end if if Request.QueryString("action")="upload" then Response.Expires = 0 Response.Buffer = TRUE Response.Clear Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") ByteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) BuildUploadRequest RequestBin Dim aux, aux1, FILEFLAG Dim ImageCateg, ContentType, FilePathName, FileName, Value ImageCateg=UploadRequest.Item("inpcatid").Item("Value")'Image Folder on error resume next ContentType =UploadRequest.Item("inpFile").Item("ContentType") FILEFLAG = err.number on error goto 0 if FILEFLAG = 0 then ContentType = UploadRequest.Item("inpFile").Item("ContentType") FilePathName = UploadRequest.Item("inpFile").Item("FileName") FileName = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) Value = UploadRequest.Item("inpFile").Item("Value") else FileName = "" end if if FileName<>"" then Set objFSO2 = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = objFSO2.CreateTextFile(ImageCateg&"\"&FileName) MyFile.Write getString(value) MyFile.Close end if set UploadRequest = nothing Response.Redirect "default_Image.asp?catid="&ImageCateg End If '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <html> <head> <title>Inserir/Alterar Imagem</title> <style> form { margin: 0px; } TABLE { FONT-SIZE: 10; FONT-FAMILY: Verdana } .bar { BORDER-TOP: #99ccff 1px solid; BACKGROUND: #336699; WIDTH: 100%; BORDER-BOTTOM: #000000 1px solid; HEIGHT: 20px } .texto {font-size: 10px} </style> <link href="includes/estilo.css" rel="stylesheet" type="text/css"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"> <!-- body,td,th { font-size: 10px; } --> </style></head> <% dim objFSO dim objMainFolder dim strOptions dim strHTML dim catid strHTML = "" set objFSO = server.CreateObject ("Scripting.FileSystemObject") set objMainFolder = objFSO.GetFolder(server.MapPath(imgFolder)) catid = CStr(request("catid"))'bisa form, bisa querystring if catid="" then catid = objMainFolder.path dim objTempFSO dim objTempFolder dim objTempFiles dim objTempFile set objTempFSO = server.CreateObject ("Scripting.FileSystemObject") set objTempFolder = objTempFSO.GetFolder (catid) set objTempFiles = objTempFolder.files strHTML = strHTML & "<table border=0 cellpadding=0 cellspacing=0 width='100%'>" for each objTempFile in objTempFiles '*********** 'objTempFile.path => image physical path 'basePath => base path set basePath = objFSO.GetFolder(server.MapPath(imgFolder)) PhysicalPathWithoutBase = Replace(objTempFile.path,basePath.path,"") sTmp = replace(PhysicalPathWithoutBase,"\","/")'fix from physical to virtual sCurrImgPath = Application("Caminho") & imgFolder & sTmp '*********** strHTML = strHTML & "<tr bgcolor=#D7D7D7 height=20>" strHTML = strHTML & "<td valign=middle width=8>&nbsp;</td>" strHTML = strHTML & "<td valign=middle width=180>" & objTempFile.name & "</td>" 'strHTML = strHTML & "<td valign=top>" & objTempFile.type & "</td>" strHTML = strHTML & "<td valign=middle width=50>" & FormatNumber(objTempFile.size/1000,0) & " kb</td>" strHTML = strHTML & "<td valign=middle width=20><center><font color='#666666'><img src='imagens/ofile.gif' alt='Selecionar Arquivo' align='absmiddle' onclick=""selectImage('" & sCurrImgPath & "')"" style=""cursor:hand;""></font></center></td>" 'strHTML = strHTML & "<td valign=middle><div align=left><font color='#666666'><img src='imagens/del.gif' alt='Deletar Arquivo' align='absmiddle' onclick=""deleteImage('" & sCurrImgPath & "')"" style=""cursor:hand;""></font></div></td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "<tr height='1'><td><img src='imagens/transp.gif' width=1 height=1></td></tr>" next strHTML = strHTML & "</table>" Function createCategoryOptions(pi_objFolder) dim objFolder dim objFolders set objFolders = pi_objfolder.SubFolders for each objFolder in objFolders 'Recursive programming starts here createCategoryOptions objFolder next if pi_objFolder.attributes and 2 then 'hidden folder then do nothing else '*********** set basePath = objFSO.GetFolder(server.MapPath(imgFolder)) 'response.Write catid & " - " & oo.path Response.Write Replace(pi_objFolder.path,basePath.path,"") '*********** if CStr(catid)=CStr(pi_objFolder.path) then strOptions = strOptions & "<option value=""" & pi_objFolder.path & """ selected>" & Replace(pi_objFolder.path,basePath.path,"") & "</option>" & vbCrLf else strOptions = strOptions & "<option value=""" & pi_objFolder.path & """>" & Replace(pi_objFolder.path,basePath.path,"") & "</option>" & vbCrLf end if end if strOptions = strOptions & vbCrLf createCategoryOptions = strOptions End Function function ConstructPath(str) str = mid(str,len(server.MapPath ("./"))+1) ConstructPath = replace(str,"\","/") end function %> <body onLoad="checkImage()" link=Blue vlink=MediumSlateBlue alink=MediumSlateBlue background='imagens/cor_fundo_cinza_claro.jpg'> <table width="600" border="0" cellpadding="0" cellspacing="0"> <tr> <td valign=top> <!-- Content --> <table width="100%" border=0 align=center cellpadding=0 cellspacing=0> <tr> <td height="10" colspan="5" align=center><img src="imagens/transp.gif" width="1" height="1"></td> </tr> <tr> <td width="10" align=center>&nbsp;</td> <td width="250" align=center valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="7" height="7"><img src="imagens/quadro_canto_sup_esq.jpg" width="7" height="7"></td> <td height="7" background="imagens/quadro_lado_sup.jpg"><img src="imagens/transp.gif" width="1" height="1"></td> <td width="7" height="7"><img src="imagens/quadro_canto_sup_dir.jpg" width="7" height="7"></td> </tr> <tr> <td width="7" background="imagens/quadro_lado_esq.jpg">&nbsp;</td> <td height="200" align="center" valign="middle" bgcolor="#FFFFFF"><div id="divImg" style="overflow:auto;width:250;height:150" align="center" > </div></td> <td width="7" background="imagens/quadro_lado_dir.jpg">&nbsp;</td> </tr> <tr> <td width="7" height="7"><img src="imagens/quadro_canto_inf_esq.jpg" width="7" height="7"></td> <td height="7" background="imagens/quadro_lado_inf.jpg"><img src="imagens/transp.gif" width="1" height="1"></td> <td width="7" height="7"><img src="imagens/quadro_canto_inf_dir.jpg" width="7" height="7"></td> </tr> </table></td> <td width="10" valign=top>&nbsp;</td> <td width="320" height="25" valign=top> <form method=post action=<%=Request.ServerVariables("SCRIPT_NAME")%> id=form2 name=form2> <table width="100%" height=20 border=0 cellpadding=0 cellspacing=0><tr valign="middle"> <td width="150"><span class="texto"><b><img src="imagens/cfolder.gif" width="20" height="20" align="absmiddle">&nbsp;Selecione a Pasta &nbsp;:</b></span><b>&nbsp;</b></td> <td> <select name=catid class="campos" id=catid onChange="form2.submit()"> <%=createCategoryOptions(objMainFolder)%> </select> </td></tr> </table></form> <table width='100%' border=0 cellpadding=0 cellspacing=0> <tr> <td height="10"><img src="imagens/transp.gif" width="1" height="1"></td> </tr> <tr><td height="20" bgcolor="#B4B4B4"> <div class="texto" style="padding-left: 5px; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #FFFFFF;"> <b>Sele&ccedil;&atilde;o de Arquivo: </b> </div> </td> </tr> </table> <div style="overflow:auto;height:163;width:100%;BORDER-LEFT: #B4B4B4 1px solid;BORDER-RIGHT: #B4B4B4 1px solid;BORDER-BOTTOM: #B4B4B4 1px solid;"> <%=strHTML%> </div> </td> <td width="8" valign=top>&nbsp;</td> </tr> <tr> <td height="4" colspan=5><img src="imagens/transp.gif" width="1" height="1"></td> </tr> <tr> <td colspan=5><hr size="1" color="#999999"></td> </tr> <tr> <td colspan=5><FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="default_Image.asp?action=upload" ID="form1" name="form1"> <table width="100%" height="19" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="10">&nbsp;</td> <td width="120"><span class="texto"><img src="imagens/upload.gif" width="27" height="26" align="absmiddle">&nbsp;&nbsp;Upload :</span></td> <td> <INPUT name=inpFile type="file" style='height: 18px; width: auto; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; text-decoration: none; border: 1px solid #999999;' id="inpFile" size="60"> <input name="inpcatid" ID="inpcatid" type=hidden> &nbsp; <INPUT name="button" TYPE="button" class="botao_upload" onclick="inpcatid.value=form2.catid.value;form1.submit()" value="Upload"></td> </tr> </table> </FORM></td> </tr> <tr> <td colspan=5> <hr size="1" color="#999999"> <table border=0 width=100% cellpadding=0 cellspacing=0> <tr> <td width="10" rowspan="5" class="texto">&nbsp;</td> <td width="120" height="22" class="texto">Arquivo : </td> <td height="22" colspan=3> <INPUT name=inpImgURL type="text" class="campos" id="inpImgURL" size=60> <!--<font color=red>(you can type your own image path here)</font>--> </td> </tr> <tr> <td width="120" height="22" class="texto">Texto Alternativo : </td> <td height="22" colspan=3><INPUT name=inpImgAlt type="text" class="campos" id="inpImgAlt" size=60></td> </tr> <tr> <td width="120" height="22" class="texto">Alinhamento : </td> <td width="80" height="22"> <select NAME="inpImgAlign" class="campos" ID="inpImgAlign"> <option value="">&lt;N&atilde;o Informado&gt;</option> <option value="absBottom">absBottom</option> <option value="absMiddle">absMiddle</option> <option value="baseline">baseline</option> <option value="bottom">bottom</option> <option value="left">left</option> <option value="middle">middle</option> <option value="right">right</option> <option value="textTop">textTop</option> <option value="top">top</option> </select> </td> <td width="120" height="22" class="texto">Tamanho Borda :</td> <td width="100" height="22"><INPUT NAME="inpImgBorder" type="text" class="campos" ID="inpHSpace3" size=5> </td> </tr> <tr> <td width="120" height="22" class="texto">Comprimento :</td> <td width="80" height="22"><INPUT NAME="inpImgWidth" type="text" class="campos" ID="inpImgWidth" size=5></td> <td width="120" height="22" class="texto">Espa&ccedil;o Horizontal :</td> <td width="100" height="22"><INPUT NAME="inpHSpace" type="text" class="campos" ID="inpHSpace" size=5></td> </tr> <tr> <td width="120" height="22" class="texto">Altura :</td> <td width="80" height="22"><INPUT NAME="inpImgHeight" type="text" class="campos" ID="inpImgHeight" size=5></td> <td width="120" height="22" class="texto">Espa&ccedil;o Vertical :</td> <td width="100" height="22"><INPUT NAME="inpVSpace" type="text" class="campos" ID="inpVSpace" size=5></td> </tr> <tr> <td height="8" colspan="5" class="texto"><img src="imagens/transp.gif" width="1" height="1"></td> </tr> </table> </td> </tr> <tr> <td height="40" colspan=5 align=center> <table width="100" align=center cellpadding=0 cellspacing=0><tr> <td><INPUT type="button" style='height: 18px; width: auto; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; text-decoration: none; border: 1px solid #999999;' value="Cancelar" onClick="self.close();" ID="Button1" NAME="Button1"></td> <td width="30">&nbsp;&nbsp;&nbsp;&nbsp;</td> <td> <span id="btnImgInsert" style="display:none"> <INPUT type="button" value="Inserir" onClick="InsertImage();self.close();" style='height: 18px; width: auto; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; text-decoration: none; border: 1px solid #999999;' ID="Button2" NAME="Button2"> </span> <span id="btnImgUpdate" style="display:none"> <INPUT type="button" value="Alterar" onClick="UpdateImage();self.close();" style='height: 18px; width: auto; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000; text-decoration: none; border: 1px solid #999999;' ID="Button3" NAME="Button3"> </span> </td> </tr></table> </td> </tr> </table> </td> </tr> </table> <script language="JavaScript"> function deleteImage(sURL) { if (confirm("Tem certeza que quer\ndeletar este aquivo?") == true) { window.navigate("default_Image.asp?action=del&file="+sURL+"&catid="+form2.catid.value); } } function selectImage(sURL) { inpImgURL.value = sURL; divImg.style.visibility = "hidden" divImg.innerHTML = "<img id='idImg' src='" + sURL + "'>"; var width = idImg.width var height = idImg.height var resizedWidth = 150; var resizedHeight = 170; var Ratio1 = resizedWidth/resizedHeight; var Ratio2 = width/height; if(Ratio2 > Ratio1) { if(width*1>resizedWidth*1) idImg.width=resizedWidth; else idImg.width=width; } else { if(height*1>resizedHeight*1) idImg.height=resizedHeight; else idImg.height=height; } divImg.style.visibility = "visible" } /*************************************************** If you'd like to use your own Image Library : - use InsertImage() method to insert image Params : url,alt,align,border,width,height,hspace,vspace - use UpdateImage() method to update image Params : url,alt,align,border,width,height,hspace,vspace - use these methods to get selected image properties : imgSrc() imgAlt() imgAlign() imgBorder() imgWidth() imgHeight() imgHspace() imgVspace() Sample uses : window.opener.obj1.InsertImage(...[params]...) window.opener.obj1.UpdateImage(...[params]...) inpImgURL.value = window.opener.obj1.imgSrc() Note: obj1 is the editor object. We use window.opener since we access the object from the new opened window. If we implement more than 1 editor, we need to get first the current active editor. This can be done using : oName=window.opener.oUtil.oName // return "obj1" (for example) obj = eval("window.opener."+oName) //get the editor object then we can use : obj.InsertImage(...[params]...) obj.UpdateImage(...[params]...) inpImgURL.value = obj.imgSrc() ***************************************************/ function checkImage() { oName=window.opener.oUtil.oName obj = eval("window.opener."+oName) if (obj.imgSrc()!="") selectImage(obj.imgSrc())//preview image inpImgURL.value = obj.imgSrc() inpImgAlt.value = obj.imgAlt() inpImgAlign.value = obj.imgAlign() inpImgBorder.value = obj.imgBorder() inpImgWidth.value = obj.imgWidth() inpImgHeight.value = obj.imgHeight() inpHSpace.value = obj.imgHspace() inpVSpace.value = obj.imgVspace() if (obj.imgSrc()!="") //If image is selected btnImgUpdate.style.display="block"; else btnImgInsert.style.display="block"; } function UpdateImage() { oName=window.opener.oUtil.oName eval("window.opener."+oName).UpdateImage(inpImgURL.value,inpImgAlt.value,inpImgAlign.value,inpImgBorder.value,inpImgWidth.value,inpImgHeight.value,inpHSpace.value,inpVSpace.value); } function InsertImage() { oName=window.opener.oUtil.oName eval("window.opener."+oName).InsertImage(inpImgURL.value,inpImgAlt.value,inpImgAlign.value,inpImgBorder.value,inpImgWidth.value,inpImgHeight.value,inpHSpace.value,inpVSpace.value); } /***************************************************/ </script> </body> </html> aqui é o global .asa Sub Application_OnStart REM Configuração dos e-mails do site Application("Registro_Pagina_Admin") = 30 Application("PastaImagens") = "imagens_up" Application("PastaMultimidia") = "multimidia" Application("Caminho") = "http://met/crcbusca/admin/" End Sub a pasta onde é para ser salva é essa imagens_up e ela está na raiz do admin. gostaria de saber o caminho se coloco virtual ou físico? um abraço... Cassius
  2. Cassius Andrade

    Enquete

    uma questão postou Cassius Andrade ASP

    Oi Pessoal veja http://www.abauditores.com.br/enquete.asp ao votar, ele chama outra página, mas não computa o voto. imprimi na outra pagina e veio como "ta vazio" e "request = " o que acontece é que chamo essa página por um java.. a página de votação <script> <!-- function vejaresults() { var desktop = window.open('enquete_view.asp', '_blank', 'width=350,height=350,toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no') } function votarn() { var desktop = window.open('enquete_exe.asp', '_blank', 'width=350,height=350,toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no') } // --> </script> <form method="get" action="java script:votarn()"> Participe de nossas enquetes.</p> <p><%=sQuestion%></p> <p> <% Dim nCount Dim nDef For nCount=1 To 8 If vAnswers(nCount) <> "" Then %> <input type="radio" value="<%=nCount%>" <%If nDef = False Then %>checked<%End If%> name="R1"><%=vAnswers(nCount)%><br> <% nDef = True End If Next %> <p> <input type="submit" value="Votar" name="B1"> <p><a href="java script:vejaresults()"><img src="images/bt_enquete.jpg" alt="Veja os Resultados da Enquete" width="116" height="22" border="0" /></a><br> </form> a de captura <% OPTION EXPLICIT Response.Buffer = True %> <!--#include file="enquete_script.asp"--> <% 'Some before doings... 'Lets get the current poll... Dim sTitle Dim sQuestion Dim vAnswers(8) Dim vCount(8), sID sID = Request.QueryString("id") If sID = "" Then sID = -1 End If Dim sError 'Are we trying to vote? If Request.Form("R1") <> "" Then 'First try to vote... sError = PollMentor_TryToVote(sID,Request.Form("R1") ) else Response.Write("ta vazio") End If 'Get active one... Dim nRet nRet = PollMentor_GetPollInfo( sID, sTitle, sQuestion, vAnswers, vCount ) %> <HTML> <HEAD> <TITLE>Enquete</TITLE> </HEAD> <script> <!-- function vejaantigas() { var desktop = window.open('enquete_antigas.asp', '_blank', 'width=350,height=350,toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no') } // --> </script> <BODY bgcolor="#FFFFFF" LINK="#0000FF" VLINK="#0000FF" ALINK="#0000FF"> <%=sError%> <form method="POST" action="enquete_exe.asp"> <TABLE BORDER=1 CELLSPACING=0 CELLPADDING=3><TR> <TD BGCOLOR="#000000" align="center" colspan=2><font face="Arial, Helvetica" size="2" color="#FFFFFF"><b><%=sQuestion%></b></font> </TD></TR> <% Dim nCount, nMaxValue, nLowValue 'First of all get max value and nLowValue nMaxValue = 0 For nCount=1 To 8 If vAnswers(nCount)<>"" And vCount(nCount)>nMaxValue Then nMaxValue = vCount(nCount) End If Next If nMaxValue = 0 Then nMaxValue = 1 End If Dim nMaxWidth nMaxWidth = 200 'This is number of pixels for maxvalue Dim nThisVal, nTotal, nPercent nTotal = 0 For nCount=1 To 8 If vAnswers(nCount)<>"" Then nTotal = nTotal + vCount(nCount) nThisVal = FormatNumber(vCount(nCount)/nMaxValue * nMaxWidth,0) %> <tr><td><%=vAnswers(nCount)%></td> <td width="<%=nMaxWidth%>" align="left"><img src="images/bar.gif" width="<%=nThisVal%>" height="10" > </td></tr> <% End If Next %> </TABLE> <p> <%="request = " & Request.Form("R1")%> Total de votos: <%=nTotal%><br> <p> <input type="button" value="Voltar" Onclick="history.back();"> </form> </BODY> </HTML> na enquete_script.asp ta assim... <% Function String_GetFullPath( strVirtualPath ) String_GetFullPath = Server.MapPath( strVirtualPath ) String_GetFullPath = Replace(String_GetFullPath,"/","\") End Function Function PollMentor_GetDatabaseConn() Dim oRet Dim strDSN Set strDSN = Server.CreateObject("Adodb.Connection") strDSN.Provider = "Microsoft.Jet.OLEDB.4.0" strDSN.Open "caminho" 'strDSN = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("dados/bd.mdb") Set oRet = Server.CreateObject ("ADODB.Connection") oRet.Open strDSN Set PollMentor_GetDatabaseConn = oRet End Function Function PollMentor_GetTitle() PollMentor_GetTitle = "Enquete" End Function Function PollMentor_TryToVote( sID, nNumber ) Dim sRet, strSQL Dim oConn Set oConn = PollMentor_GetDatabaseConn() 'Get real id... Dim oRS If sID = -1 Then Set oRS = oConn.Execute("select id from poll where active=true") sID = oRS("id").Value oRS.Close Set oRS= Nothing End If If PollMentor_CanUserVote( oConn, sID ) = False Then sRet = "Você já votou nesta enquete. Não é possível votar novamente." Else strSQL = "update poll set count" & nNumber & " = count" & nNumber & " +1 where " If nNumber =-1 Then strSQL = strSQL & " active=true" Else strSQL = strSQL & " id=" & sID End If oConn.Execute strSQL oConn.Execute "insert into votelog(poll_id, ip) values(" & sID & ",'" & Request.ServerVariables( "REMOTE_ADDR" ) & "')" sRet = "Obrigado por participar." End If oConn.Close Set oConn = Nothing PollMentor_TryToVote=sRet End Function Function PollMentor_CanUserVote( oConn, sID ) ' 'Check of user already has voted within 24 hours? 'If so then no voting can be done... ' Here's your chance to display some other content '1. Check IP address Dim strSQL, sTime, oRS sTime = DateAdd( "d", -Request.Form("time"), now() ) strSQL = "select id from votelog where poll_id=" & sID & " AND datum < #"&sTime & "# AND ip='" & Request.ServerVariables( "REMOTE_ADDR" ) & "'" Set oRS = oConn.Execute(strSQL) If oRS.EOF Then PollMentor_CanUserVote = True Else PollMentor_CanUserVote = False End If oRS.Close Set oRS = Nothing End Function Function PollMentor_GetPollInfo ( ByVal nID, ByRef sTitle, ByRef sQuestion, ByRef vAnswers, ByRef vCount ) Dim sRet, strSQL Dim oConn, oRS, nCount Set oConn = PollMentor_GetDatabaseConn() strSQL = "select * from poll where " If nID = -1 Then strSQL = strSQL & " active=true" Else strSQL = strSQL & " id=" & nID End If Set oRS = oConn.Execute(strSQL) If oRS.EOF Then PollMentor_GetPollInfo = False Else sTitle=PollMentor_GetTitle() sQuestion=oRS("question") For nCount=1 To 8 vAnswers(nCount)=oRS("answer" & CStr(nCount)) vCount(nCount)=oRS("count" & CStr(nCount)) Next PollMentor_GetPollInfo = True End If oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing End Function %> alguém por favor... preciso dessa solucao urgente.. obrigado e um abraço a todos !!
  3. Cassius Andrade
    Olá Pessoal, é o seguinte.. o problema esta aqui... <textarea id="idTextarea" name="idTextarea" style="display:none"> <% if acao = "alterar" then if rsAltera("conteudo") <> "" Then response.write rsAltera("conteudo") end if end if %> </textarea> Trata-se de um administrador para alterar conteúdo.. essa é a parte onde ele deveria buscar o que esta no bd e colocar ai para ser alterado... mas não aparece nada, nem erro... é um administrador para alteração... onde está assim era para exibir o que ta no banco de dados... mas não aparece nada, nem erro... se eu digitar qualquer coisa, ele atualiza no bd, apaga o que tiver lá e coloca o que foi digitado por último, mas não aparece nada para exibir para fazer alteração somente no texto a conexão ta certa pois é a mesma que faz o update. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Option Explicit%> <!--#include file="acesso_verifica.asp"--> <!--#include file="conexao_conteudo.asp" --> <!--#include file="funcoes_conteudo.asp" --> <% Dim acao, rsGravaNova, rsAltera acao = request.QueryString("acao") If acao = "incluir" then Set rsGravaNova = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * from tbl_conteudo" rsGravaNova.Open Sql, ConexaoCtd, 1, 3 rsGravaNova.MoveLast rsGravaNova.AddNew if ISNumeric( request.form("numero") ) Then rsGravaNova("numero") = request.form("numero") Else rsGravaNova("numero") = Null End If if ISDate( request.form("data") ) Then rsGravaNova("data") = request.form("data") Else rsGravaNova("data") = Null End If rsGravaNova("conteudo") = request.form("txtContent") rsGravaNova("ativo") = request.form("ativo") rsGravaNova.Update response.write "<script>alert('Registro inclu�do com sucesso!');</script>" rsGravaNova.Close Set rsGravaNova = Nothing End if If acao = "alterar" then Set rsAltera = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * from tbl_conteudo WHERE codigo = " & request.QueryString("id") rsAltera.Open Sql, ConexaoCtd, 1, 3 End if If acao = "grava_altera" then Set rsGravaNova = Server.CreateObject("ADODB.Recordset") Sql = "SELECT * from tbl_conteudo WHERE codigo = " & request.QueryString("id") rsGravaNova.Open Sql, ConexaoCtd, 1, 3 if ISNumeric( request.form("numero") ) Then rsGravaNova("numero") = request.form("numero") Else rsGravaNova("numero") = Null End If if ISDate( request.form("data") ) Then rsGravaNova("data") = request.form("data") Else rsGravaNova("data") = Null End If rsGravaNova("conteudo") = request.form("txtContent") rsGravaNova("ativo") = request.form("ativo") rsGravaNova.Update rsGravaNova.Close Set rsGravaNova = Nothing response.write "<script>alert('Registro alterado com sucesso!');</script>" response.write "<script>self.location = 'inicial.asp';</script>" End if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Conselho Regional de Contabilidade de Minas Gerais</title> <link href="includes/estilo.css" rel="stylesheet" type="text/css" /> <script language="JavaScript" src="include/yusasp_ace.js"></script> <script language="JavaScript" src="include/yusasp_color.js"></script> <script> function SubmitForm(){ if(obj1.displayMode == "HTML"){ alert("Por favor, desmarque a op��o de visualiza��o HTML") return false; }else{ document.form1.txtContent.value = obj1.getContent() document.form1.submit() } } function LoadContent(){ obj1.putContent(document.form1.idTextarea.value) } </script> </head> <body onLoad="<%if acao = "alterar" then response.write("LoadContent();") end if%>"> <!--#include file="topo.asp" --> <table width="100%" border="0" cellspacing="20" cellpadding="0"> <tr> <td><p><strong>A Empresa &raquo; <%if acao = "alterar" then%> Altera&ccedil;&atilde;o <%end if%> </strong></p> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="10" height="10"><img src="imagens/tabela_01.gif" width="10" height="10" /></td> <td background="imagens/tabela_fundo_01.gif"><img src="imagens/tabela_fundo_01.gif" width="1" height="10" /></td> <td width="10"><img src="imagens/tabela_02.gif" width="10" height="10" /></td> </tr> <tr> <td background="imagens/tabela_fundo_02.gif"><img src="imagens/tabela_fundo_02.gif" width="10" height="1" /></td> <td><table width="100%" border="0" cellpadding="0" cellspacing="10"> <tr> <td valign="top"><form name="form1" method="post" action=""> <p> <input type="hidden" name="txtContent" value="" ID="txtContent"> </p> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td width="60"><strong>N&uacute;mero:</strong></td> <td width="50"><span class="texto"> <input name="numero" type="text" id="numero" style="width:100%" value="<%if acao = "alterar" then response.write rsAltera("numero") end if%>" size="10" maxlength="10" /> </td> <td width="20">&nbsp;</td> <td width="50"><strong>Data:</strong></td> <td width="40"><input name="data" type="text" id="data" value="<%if acao = "alterar" then response.write rsAltera("data") end if%>" size="7" maxlength="10" /></td> </tr> </table> <br /> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><strong>Conte&uacute;do:</strong></td> </tr> <tr> <td> <script> var obj1 = new ACEditor("obj1") obj1.width = "100%" //set editor dimension obj1.height = 400 obj1.useAsset = true obj1.useInternalLink = false obj1.usePageProperties = false obj1.StyleSelection = "mystyleselection.css"; //specify the css file obj1.AssetPageURL = "default_Asset.asp"; obj1.AssetPageWidth = 480; obj1.AssetPageHeight = 425; obj1.ImagePageURL = "default_image.asp" //specify Image library management page obj1.RUN() //run & show the editor </script></td> </tr> <tr> <td><div align="right"> <textarea id="idTextarea" name="idTextarea" style="display:none"> <% if acao = "alterar" then if rsAltera("conteudo") <> "" Then response.write rsAltera("conteudo") end if end if %> </textarea></div></td> </tr> </table> <br /> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="60"><strong>Ativo:</strong></td> <td><select name="ativo" id="ativo"> <option value="N" <%if acao = "alterar" then response.write selected( UCase( rsAltera("ativo") ), "N" ) end if%> >N�o</option> <option value="S" <%if acao = "alterar" then response.write selected( UCase( rsAltera("ativo") ), "S" ) end if%> >Sim</option> </select></td> </tr> </table> <p> <%if acao = "alterar" then%> <input name="Button" type="button" class="botao_upload" value="Gravar Altera��es" onClick="document.form1.action='altera_empresa.asp?acao=grava_altera&id=<%=rsAltera("codigo")%>';SubmitForm();"> <%else%> <input name="Submit" type="button" class="botao_upload" value="Incluir Dados" onClick="document.form1.action='altera_empresa.asp?acao=incluir';SubmitForm();"> <%end if%> </p> </form> </td> <td width="1" align="left" valign="top" background="imagens/ponto.gif"><img src="imagens/ponto.gif" width="1" height="1" /></td> <td width="150" align="left" valign="top"><p><font color="#7A462E"><img src="imagens/unknown.gif" width="20" height="20" align="absmiddle" /><span class="style3"><font color="#3366CC"> Dicas</font></span></font></p> <p>Preencha os campos corretamente e clique no bot&atilde;o no fim do formul&aacute;rio.</p> <p>O campo <strong>data</strong> deve ser preenchido apenas com uma data v&aacute;lida, para ser gravado.</p> </td> </tr> </table> </td> <td background="imagens/tabela_fundo_03.gif"><img src="imagens/tabela_fundo_03.gif" width="10" height="1" /></td> </tr> <tr> <td width="10" height="10"><img src="imagens/tabela_03.gif" width="10" height="10" /></td> <td background="imagens/tabela_fundo_04.gif"><img src="imagens/tabela_fundo_04.gif" width="1" height="10" /></td> <td width="10"><img src="imagens/tabela_04.gif" width="10" height="10" /></td> </tr> </table></td> </tr> </table> </body> </html>
  4. Cassius Andrade
    Oi Kuroi, Pelo que percebi ele não ta nem abrindo o bd mesmo, pois como disse deletei a tabela e continuou a mesma coisa, nem erro falando que falta a tabela ele deu.. o por que eu não sei... pois eu abro a conxeão lá embaixo Conexao.Open e agora tentei também com a sugestão do Fernando Conexao.Open, mas também não deu ! o obj de conexão esta assim agora ! Dim Conexao Set Conexao = Server.CreateObject("Adodb.Connection") Conexao.Provider = "Microsoft.Jet.OLEDB.4.0" Conexao.Open "D:\webs\ab\dados\bd.mdb" os inclues estão certinhos, pois na mesma página tem outro include <!--#include file="noticias.asp" --> o include da conexão é chamada em outro include [topo] PUTZ, PUTZ... FOI MAL GALERA... TER MOBILIZADO vocês AI E O NEGÓCIO SER TÃO SIMPLES... essas instruções que coloquei estavão antes da tag <html> e o include do topo.asp onde se chama a conexão e consequentemente abre o banco estava abaixo. <%códigos postados antes%> <html> ... ... ... <body onload="Rolar()"> <!--#include file="topo.asp" --> agora que coloquei abaixo funcionou !!! vlw ai a todos, Fernando, Kuroi... ainda aprendo... espero contar com vocês novamente em outras dúvidas que certamente virão !!! um abraço !!!
  5. Cassius Andrade
    Fala Fernando.. seguinte, colocando como variável igual sugeriu retornou da mesma forma SELECT * FROM tbl_conteudo WHERE secao = '1' detalhe... deletei a tabela(tbls_conteudo) do banco de dados e continua dando o mesmo erro e apresentando a mesma respostas acima ! a conexão é <% '**** DECLARAMOS AS VARIÁVEIS Dim Conexao '**** CRIAMOS, CONFIGURAMOS E ABRIMOS A CONEXÃO COM O BANCO DE DADOS Set Conexao = Server.CreateObject("Adodb.Connection") Conexao.Provider = "Microsoft.Jet.OLEDB.4.0" '**** Conexao local Conexao.ConnectionString = "D:\webs\ab\dados\bd.mdb" Conexao.Open %> é a mesma conexão que estou utilizando para noticias e esta funfando beleza
  6. Cassius Andrade
    Olá Pessoas.. seguinte.. Já procurei a solução e não acho, falam muitas coisas, mas não da nada certo... O Erro é esse Tipo de erro: ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /webs/ab/inst_empresa.asp, line 14 O Código é esse: Dim rsConteudo Set rsConteudo = Server.CreateObject("ADODB.RecordSet") rsConteudo.CursorType = 3 SQL = "SELECT * FROM tbl_conteudo WHERE secao = 1" 'Linha com problema rsConteudo.Open SQL,Conexao Colocando Response.Write Sql Response.End Da isso SELECT * FROM tbl_conteudo WHERE secao = 1 o campo secao é texto mesmo... já tentei colocar SQL = "SELECT * FROM tbl_conteudo WHERE secao = '1'" e rsConteudo.Open SQL,Conexao,3,3 Mas nada Resolvel... Outr detalhe.. essa mesma página tem um <!--#include file="noticias.asp" --> que roda tranquilo uma consulta no mesmo banco. e agora? quem poderá me ajudar ?alguém se candidata? por favor... perdi ontem o dia inteiro com isso e hoje a parte da manhã !! Obrigado !
×
×
  • Criar Novo...