Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal!!Estou tentando fazer aplicações em ASP no Dreamweaver e até estava me dando super bem... consegui fazer quase tudo o q precisava, menos uma coisinha...tenho um banco de dados chamado "favoritos.mdb"... nele tem a tabela chamada "tab_favoritos".... e lá contem um campo chamado "status"Fiz a conexão pelo Dreamweaver e criei um Recordset chamado "rsExibir"gostaria de fazer um código tipo esse abaixo:1 - pegar o valor contido em "status"2 - soma com o valor de digitado em um campo de texto q tb possue o nome de "status"3 - somar os dois valores e dividir eles por 24 - salvar o resultado no banco de dadosse alguem puder me ajudar.....posso passar os arquivos tb pra vcs analisaremabração
Ai está o Código da Página
<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/Conexao.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)End If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Update Record: set variablesIf (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_Conexao_STRING MM_editTable = "tab_favoritos" MM_editColumn = "urlid" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "teste2.asp" MM_fieldsStr = "urlnome|value|urlendereco|value|urlstatus|value" MM_columnsStr = "urlnome|',none,''|urlendereco|',none,''|urlstatus|none,none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the 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 IfEnd If%><%' *** Update Record: construct a sql update statement and execute itIf (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the 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 IfEnd If%><%Dim rsAtualiza__MMColParamrsAtualiza__MMColParam = "1"If (Request.QueryString("urlid") <> "") Then rsAtualiza__MMColParam = Request.QueryString("urlid")End If%><%Dim rsAtualizaDim rsAtualiza_numRowsSet rsAtualiza = Server.CreateObject("ADODB.Recordset")rsAtualiza.ActiveConnection = MM_Conexao_STRINGrsAtualiza.Source = "SELECT * FROM tab_favoritos WHERE urlid = " + Replace(rsAtualiza__MMColParam, "'", "''") + ""rsAtualiza.CursorType = 0rsAtualiza.CursorLocation = 2rsAtualiza.LockType = 1rsAtualiza.Open()rsAtualiza_numRows = 0%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"><!--.style1 { font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif;}td { border: thin groove #CCCCCC;}a { font-weight: bold; color: #FFFFFF; text-decoration: none; font-family: "Arial Black";}a:hover { color: #000000; text-decoration: none; font-family: "Arial Black";}.style3 { font-size: 12px; font-weight: bold; font-family: Verdana, Arial, Helvetica, sans-serif;}--></style></head><body><form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1"> <table width="322" border="0" cellpadding="2" cellspacing="2"> <tr bgcolor="#88C0EE"> <td colspan="2"><div align="center" class="style3">Cadastro</div></td> </tr> <tr bgcolor="#DDEEFB"> <td width="135"><span class="style1">Nome da Home Page</span></td> <td width="173" bgcolor="#DDEEFB"> <div align="center"> <input name="urlnome" type="text" id="urlnome2" value="<%=(rsAtualiza.Fields.Item("urlnome").Value)%>"> </div></td> </tr> <tr bgcolor="#DDEEFB"> <td><span class="style1">Edereço (URL)</span></td> <td><div align="center"> <input name="urlendereco" type="text" id="urlendereco3" value="<%=(rsAtualiza.Fields.Item("urlendereco").Value)%>"></div></td> </tr> <tr bgcolor="#DDEEFB"> <td bgcolor="#DDEEFB" class="style1">Status</td> <td bgcolor="#DDEEFB"><div align="center"> <select name="urlstatus" size="1" id="urlstatus"> <option selected value="" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>--</option> <option value="1" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("1" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>1</option> <option value="2" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("2" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>2</option> <option value="3" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("3" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>3</option> <option value="4" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("4" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>4</option> <option value="5" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("5" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>5</option> <option value="6" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("6" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>6</option> <option value="7" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("7" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>7</option> <option value="8" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("8" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>8</option> <option value="9" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("9" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>9</option> <option value="10" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If ("10" = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>10</option> <%While (NOT rsAtualiza.EOF)%> <option value="<%=(rsAtualiza.Fields.Item("urlstatus").Value)%>" <%If (Not isNull((rsAtualiza.Fields.Item("urlstatus").Value))) Then If (CStr(rsAtualiza.Fields.Item("urlstatus").Value) = CStr((rsAtualiza.Fields.Item("urlstatus").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsAtualiza.Fields.Item("urlstatus").Value)%></option> <% rsAtualiza.MoveNext()WendIf (rsAtualiza.CursorType > 0) Then rsAtualiza.MoveFirstElse rsAtualiza.RequeryEnd If%> </select></div></td> </tr> </table> <p> <input type="submit" name="Submit" value="Alterar"> </p> <input type="hidden" name="MM_update" value="form1"> <input type="hidden" name="MM_recordId" value="<%= rsAtualiza.Fields.Item("urlid").Value %>"></form></body></html><%rsAtualiza.Close()Set rsAtualiza = Nothing%>Espero q tenha solução
posta os arquivos a para downloads!!!