Jump to content
Fórum Script Brasil

angelolima

Membros
  • Posts

    10
  • Joined

  • Last visited

About angelolima

  • Birthday 03/26/1983

Contatos

Perfil

  • Location
    São Paulo
  • Interests
    ASP, SQL, VB e Designer

angelolima's Achievements

0

Reputation

  1. teria que colocar RAND(id); ???? funcionou, mas quando dou f5 ele não roda ! rsrsrs ..
  2. Pessoas, estou tentando fazer o select randomico como está dito neste topic, porém ele retorna o erro: Microsoft OLE DB Provider for SQL Server error '80040e14' 'INT' is not a recognized function name. a base de dados é MS SQL Thanks !
  3. dark0, parabéns man, adorei esse script s/ componente !!!! A interação com Ajax fica supimpa .. rsrsrsrsr e rapido, quando tiver 1 min eu posto aqui ok ? Mas estou encontrando um dificuldade .... se eu tiver um campo no form que não é preenchido ele dá o erro: Object required: 'UploadRequest.Item(...)' como eu manipulo o Request do form ? Abraços
  4. <% rs.Close %> Coloca na Ultima linha !
  5. Seguinte galera, eu to com problemas na logica do negocio ... Eu tenho lá ; Produtos de Higiene Produtos Alimenticios Produtos de Limpeza Produtos de Churrasco Bom, isso seria a categoria .... ai cada produto tem os campos nome do produto , valor, quantidade Estou com o seguinte problema; Queria listar desta forma em 1 pagina só Produtos de Higiene - produto 1 - produto 2 - produto 3 Produtos Alimenticios - produto 1 - produto 2 - produto 3 Produtos de Limpeza - produto 1 - produto 2 - produto 3 Produtos de Churrasco - produto 1 - produto 2 - produto 3 Alguém poderia me ajudar pelo amor de Deus ?????
  6. cara, resolvi o problema, tava comendo toca .... quando eu chamva o link da pagina era pagina.asp?cadastro_cliente certo ? eu tava colocando cadastro_empresa ... hahahahaha .. viajei, valeu pela força .
  7. angelolima

    Iis Parou

    Não está executando scripts ASP ....
  8. Bom eu mudei a parte do form, não dá mais erro, mas tb não aparece nenhum registro pra atualiza-lo .... To tentando ver aqui mas n consigo descobrir o erro !!! você tem ideia de outra sintaxe pra colocar ? Abraços e Obrigado.
  9. E esse erro dá quando tento fazer o delete Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] Não foi possível excluir items das tabelas especificadas. /zeus/sistema/listar_todos.asp, line 56
  10. Bom Gente o codígo é esse eu to com o seguinte problema ... Printa o seguinte erro. Tipo de erro: ADODB.Field (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /zeus/sistema/atualizar_form.asp, line 208 Alguém pode me ajudar por favor, eu ainda acho q possa ser algo relacionado a permissão ! Abraços e Obrigado <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/cadastro.asp" --> <% MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' record edit MM_abortEdit = false ' query string MM_editQuery = "" %> <% ' *** Update Record If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_cadastro_STRING MM_editTable = "cadastro_cliente" MM_editColumn = "cod" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "confirma_atualizacao.asp" MM_fieldsStr = "obra|value|localizacao|value|categoria|value|data|value|area|value|prazo|value|efetivo|value|foto|value|url|value|descritivo|value" MM_columnsStr = "obra|',none,''|localizacao|',none,''|categoria|',none,''|data|',none,''|area|',none,''|prazo|',none,''|efetivo|',none,''|foto|',none,''|url|',none,''|descritivo|',none,NULL" ' criar MM_fields e MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' setar valores do form For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' query string para redirect URL 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 If End If %> <% If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' sql update MM_editQuery = "update " & MM_editTable & " set " 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 ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' update 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 If End If %> <% Dim Recordset1__Cod Recordset1__Cod = "0" if (request.querystring("cadastro_cliente") <> "") then Recordset1__Cod = request.querystring("cadastro_cliente") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_cadastro_STRING Recordset1.Source = "SELECT * FROM cadastro_cliente WHERE cod = " + Replace(Recordset1__Cod, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Zeus Engenharia - Painel Administrativo</title> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; background-repeat: no-repeat; } body,td,th { color: #000000; } --> </style> <link href="../cs_styles.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- a:link { color: #000000; } a:visited { color: #000000; } a:hover { color: #666666; } a:active { color: #000000; } .style2 {color: #D4635C} --> </style> </head> <body> <table width="711" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="left"> <table border="0" cellpadding="0" cellspacing="0" width="712"> <!-- fwtable fwsrc="Untitled" fwbase="slices_admin.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" --> <tr> <td><img src="../slices/spacer.gif" width="318" height="1" border="0" alt=""></td> <td><img src="../slices/spacer.gif" width="118" height="1" border="0" alt=""></td> <td><img src="../slices/spacer.gif" width="276" height="1" border="0" alt=""></td> <td><img src="../slices/spacer.gif" width="1" height="1" border="0" alt=""></td> </tr> <tr> <td><img name="slices_admin_r1_c1" src="../slices/slices_admin_r1_c1.gif" width="318" height="101" border="0" alt=""></td> <td><img name="slices_admin_r1_c2" src="../slices/slices_admin_r1_c2.gif" width="118" height="101" border="0" alt=""></td> <td><img name="slices_admin_r1_c3" src="../slices/slices_admin_r1_c3.gif" width="276" height="101" border="0" alt=""></td> <td><img src="../slices/spacer.gif" width="1" height="101" border="0" alt=""></td> </tr> <tr> <td colspan="3" valign="top"><table width="100%" height="368" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" id="General"> <tr> <td height="275" background="../slices/slices_admin_r2_c1.gif"> <form method="post" action="<%=MM_editAction%>" name="form1"> <table width="85%" border="0" align="center" cellpadding="2" cellspacing="2"> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="30%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p class="tit1 style2">Atualiza&ccedil;&atilde;o de Cadastro de Obras</p> <p>&nbsp;</p> <p>&nbsp;</p> <p>&nbsp;</p> <p>&nbsp;</p> <p>&nbsp;</p> <p>&nbsp;</p> </td> </tr> <tr> <td class="vesttexto1">Caso haja d&uacute;vidas entre em contato com o suporte t&eacute;cnico. </td> </tr> <tr> <td class="vesttexto1"><div align="center" class="menu1"> <p>&nbsp;</p> <p>&nbsp;</p> </div></td> </tr> <tr> <td class="vesttexto1"><div align="center"><span class="menu1"><a href="javascript:history.back(-1)">Voltar</a></span></div></td> </tr> </table></td> <td width="70%"> <table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="29%" class="vesttexto1">Titulo da Obra </td> <td width="71%" class="vesttexto1"><%=(Recordset1.Fields.Item("obra").Value)%></td> </tr> <tr> <td class="vesttexto1">Localiza&ccedil;&atilde;o</td> <td class="vesttexto1">&nbsp;</td> </tr> <tr> <td class="vesttexto1">Categoria</td> <td class="vesttexto1">&nbsp;</td> </tr> <tr> <td class="vesttexto1">Data de Entrega</td> <td class="vesttexto1">&nbsp;</td> </tr> <tr> <td class="vesttexto1">Area Contru&iacute;da</td> <td class="vesttexto1">&nbsp;</td> </tr> <tr> <td class="vesttexto1">Prazo de Execu&ccedil;&atilde;o</td> <td class="vesttexto1">&nbsp;</td> </tr> <tr> <td class="vesttexto1">Efetivo M&eacute;dio</td> <td class="vesttexto1">&nbsp;</td> </tr> <tr> <td class="vesttexto1">Foto da Obra </td> <td class="vesttexto1">&nbsp;</td> </tr> <tr> <td class="vesttexto1">Site / Contato </td> <td class="vesttexto1">&nbsp;</td> </tr> <tr> <td class="vesttexto1">&nbsp;</td> <td class="vesttexto1">Descritivo</td> </tr> <tr> <td class="vesttexto1">&nbsp;</td> <td class="vesttexto1"></textarea></td> </tr> <tr> <td class="vesttexto1">&nbsp;</td> <td class="vesttexto1"><div align="center"> <input name="Submit" type="submit" class="vesttexto1" value="Atualizar"> &nbsp;&nbsp;&nbsp; <input name="Submit2" type="reset" class="vesttexto1" value="Limpar"> </div></td> </tr> </table></td> </tr> </table></td> </tr> </table> <input type="hidden" name="MM_update" value="true"> </form> </td> </tr> </table></td> <td><img src="../slices/spacer.gif" width="1" height="368" border="0" alt=""></td> </tr> </table> </div></td> </tr> </table> </body> </html> <% Recordset1.Close() %>
×
×
  • Create New...