Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

mon

Upload de imagens

Recommended Posts

Ola fiz esse script

 

mas nao ta funcionado alguen sabe me dizer pq

 

esse é o script

 

 

<form method="POST" action="insert_ondas.asp">        <p align="center" style="margin-top: 5; margin-bottom: 5">        <font face="Tahoma"><span style="font-size: 13pt; font-weight: 700; text-decoration: overline underline">        Boletim das Ondas</span></font></p>        </p>        <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber9">          <tr>            <td width="100%" bgcolor="#FFCC00">            <p align="center" style="margin-top: 0; margin-bottom: 0">            <font face="Tahoma" style="font-size: 8.5pt">Data:             <input type="text" name="dataehora" size="20" value="<%=RecSet("dataehora")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="1"></font></td>          </tr>        </table>        <p style="margin-top: 0; margin-bottom: 0"> </p>          <div align="center">            <center>        <table border="1" bordercolor="#0000FF" cellspacing="0" bordercolorlight="#008080"                bordercolordark="#000080" cellpadding="3" style="border-collapse: collapse">          <tr>            <td width="100" bgcolor="#008080" align="left" height="12">            <font face="Tahoma" color="#FFFFFF" style="font-size: 8.5pt"><b>Picos</b></font></td>            <td width="150" bgcolor="#008080" align="left" height="12">              <p style="text-indent: 0; line-height: 100%; word-spacing: 0; margin: 0" align="center">              <font face="Tahoma" color="#FFFFFF" style="font-size: 8.5pt"><b>Molhes</b></font></p>            </td>            <td width="150" bgcolor="#008080" align="center" height="12">              <p style="text-indent: 0; line-height: 100%; word-spacing: 0; margin: 0" align="center">              <font face="Tahoma" color="#FFFFFF" style="font-size: 8.5pt"><b>Praia              da Cal</b></font></td>            <td width="150" bgcolor="#008080" align="center" height="12">          <p style="text-indent: 0; line-height: 100%; word-spacing: 0; margin: 0" align="center">                  <font face="Tahoma" color="#FFFFFF" style="font-size: 8.5pt"><b>Guarita</b></font></td>          </tr>                  <tr>            <td bgcolor="#CCCC00" align="left"><p align="left">            <font face="Tahoma" style="font-size: 8.5pt"><b>Tamanho</b></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="molhes_tam" size="26" value="<%=RecSet("molhes_tam")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="2"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="cal_tam" size="26" value="<%=RecSet("cal_tam")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="10"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="guar_tam" size="26" value="<%=RecSet("guar_tam")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="20"></font></td>          </tr>          <tr>            <td bgcolor="#CCFF33" align="left"><p align="left">            <font face="Tahoma" style="font-size: 8.5pt"><b>Condição</b></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="molhes_cond" size="26" value="<%=RecSet("molhes_cond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="3"></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="cal_cond" size="26" value="<%=RecSet("cal_cond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="11"></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="guar_cond" size="26" value="<%=RecSet("guar_cond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="21"></font></td>          </tr>          <tr>            <td bgcolor="#CCCC00" align="left"><p align="left">                <font face="Tahoma" style="font-size: 8.5pt"><b>Ondulação</b></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="molhes_ond" size="26" value="<%=RecSet("molhes_ond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="4"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="cal_ond" size="26" value="<%=RecSet("cal_ond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="12"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="guar_ond" size="26" value="<%=RecSet("guar_ond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="22"></font></td>          </tr>          <tr>            <td bgcolor="#CCFF33" align="left">                <font face="Tahoma" style="font-size: 8.5pt"><b>Vento</b></font></td>            <td bgcolor="#CCFF33" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="molhes_vento" size="26" value="<%=RecSet("molhes_vento")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="5"></font></td>            <td bgcolor="#CCFF33" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="cal_vento" size="26" value="<%=RecSet("cal_vento")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="13"></font></td>            <td bgcolor="#CCFF33" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="guar_vento" size="26" value="<%=RecSet("guar_vento")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="23"></font></td>          </tr>          <tr>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt"><b>Água</b></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="molhes_agua" size="26" value="<%=RecSet("molhes_agua")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="6"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="cal_agua" size="26" value="<%=RecSet("cal_agua")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="14"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="guar_agua" size="26" value="<%=RecSet("guar_agua")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="24"></font></td>          </tr>          <tr>            <td bgcolor="#CCFF33" align="left">                <font face="Tahoma" style="font-size: 8.5pt"><b>Roupa</b></font></td>            <td bgcolor="#CCFF33" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="molhes_roupa" size="26" value="<%=RecSet("molhes_roupa")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="7"></font></td>            <td bgcolor="#CCFF33" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="cal_roupa" size="26" value="<%=RecSet("cal_roupa")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="15"></font></td>            <td bgcolor="#CCFF33" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="guar_roupa" size="26" value="<%=RecSet("guar_roupa")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="25"></font></td>          </tr>          <tr>            <td bgcolor="#CCCC00" align="left" valign="middle">                <font face="Tahoma" style="font-size: 8.5pt"><b>Observação</b></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="molhes_observ" size="26" value="<%=RecSet("molhes_observ")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="8"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="cal_observ" size="26" value="<%=RecSet("cal_observ")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="16"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="guar_observ" size="26" value="<%=RecSet("guar_observ")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="26"></font></td>          </tr>          <tr>            <td bgcolor="#CCCC00" align="left" valign="middle">                <font face="Tahoma" style="font-size: 8.5pt"><b>Foto</b></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                <input type="file" name="molhes_foto" size="20" value="" style="font-family: Tahoma; font-size: 8.5pt" tabindex="8"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="file" name="cal_foto" size="20" value="" style="font-family: Tahoma; font-size: 8.5pt" tabindex="16"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="file" name="guar_foto" size="20" value="" style="font-family: Tahoma; font-size: 8.5pt" tabindex="26"></font></td>          </tr>        </table>            </center>          </div>        <p style="margin-top: 0; margin-bottom: 0"> </p>        <table border="1" bordercolor="#0000FF" cellspacing="0" bordercolorlight="#008080"        bordercolordark="#000080" height="251" cellpadding="3" style="border-collapse: collapse">          <tr>            <td width="100" bgcolor="#008080" align="left" height="21">            <font face="Tahoma" color="#FFFFFF" style="font-size: 8.5pt"><b>Picos</b></font></td>            <td width="150" bgcolor="#008080" align="left">              <p style="text-indent: 0; line-height: 100%; word-spacing: 0; margin: 0" align="center">              <font face="Tahoma" color="#FFFFFF" style="font-size: 8.5pt"><b>Mampituba</b>              (meio do rio)</font></td>            <td width="150" bgcol8or="#008080" align="center">              <p style="text-indent: 0; line-height: 100%; word-spacing: 0; margin: 0" align="center">              <font face="Tahoma" color="#FFFFFF" style="font-size: 8.5pt"><b>Prainha              </b>(praia do meio)</font></td>            <td width="150" bgcolor="#008080" align="center">              <p style="text-indent: 0; line-height: 100%; word-spacing: 0; margin: 0" align="center">              <font face="Tahoma" color="#FFFFFF" style="font-size: 8.5pt"><b>Praia              Grande</b></font></td>          </tr>            <tr>            <td bgcolor="#CCCC00" align="left"><p align="left">            <font face="Tahoma" style="font-size: 8.5pt"><b>Tamanho</b></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="mampi_tam" size="26" value="<%=RecSet("mampi_tam")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="30"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="prainha_tam" size="26" value="<%=RecSet("prainha_tam")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="40"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="pgrande_tam" size="26" value="<%=RecSet("pgrande_tam")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="50"></font></td>          </tr>          <tr>            <td bgcolor="#CCFF33" align="left"><p align="left">            <font face="Tahoma" style="font-size: 8.5pt"><b>Condição</b></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="mampi_cond" size="26" value="<%=RecSet("mampi_cond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="31"></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="prainha_cond" size="26" value="<%=RecSet("prainha_cond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="41"></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="pgrande_cond" size="26" value="<%=RecSet("pgrande_cond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="51"></font></td>          </tr>          <tr>            <td bgcolor="#CCCC00" align="left"><p align="left">            <font face="Tahoma" style="font-size: 8.5pt"><b>Ondulação</b></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="mampi_ond" size="26" value="<%=RecSet("mampi_ond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="32"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="prainha_ond" size="26" value="<%=RecSet("prainha_ond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="42"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">             <input type="text" name="pgrande_ond" size="26" value="<%=RecSet("pgrande_ond")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="52"></font></td>          </tr>          <tr>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt"><b>Vento</b></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="mampi_vento" size="26" value="<%=RecSet("mampi_vento")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="33"></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="prainha_vento" size="26" value="<%=RecSet("prainha_vento")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="43"></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="pgrande_vento" size="26" value="<%=RecSet("pgrande_vento")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="53"></font></td>          </tr>          <tr>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt"><b>Água</b></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="mampi_agua" size="26" value="<%=RecSet("mampi_agua")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="34"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="prainha_agua" size="26" value="<%=RecSet("prainha_agua")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="44"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="pgrande_agua" size="26" value="<%=RecSet("pgrande_agua")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="54"></font></td>          </tr>          <tr>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt"><b>Roupa</b></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="mampi_roupa" size="26" value="<%=RecSet("mampi_roupa")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="35"></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="prainha_roupa" size="26" value="<%=RecSet("prainha_roupa")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="45"></font></td>            <td bgcolor="#CCFF33" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="pgrande_roupa" size="26" value="<%=RecSet("pgrande_roupa")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="55"></font></td>          </tr>          <tr>            <td bgcolor="#CCCC00" align="left" valign="middle">            <font face="Tahoma" style="font-size: 8.5pt"><b>Observação</b></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="mampi_observ" size="26" value="<%=RecSet("mampi_observ")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="36"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="prainha_observ" size="26" value="<%=RecSet("prainha_observ")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="46"></font></td>            <td bgcolor="#CCCC00" align="left">            <font face="Tahoma" style="font-size: 8.5pt">                 <input type="text" name="pgrande_observ" size="26" value="<%=RecSet("pgrande_observ")%>" style="font-family: Tahoma; font-size: 8.5pt" tabindex="56"></font></td>          </tr>             <tr>            <td bgcolor="#CCCC00" align="left" valign="middle">                <font face="Tahoma" style="font-size: 8.5pt"><b>Foto</b></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="file" name="mampi_foto" size="20" value="" style="font-family: Tahoma; font-size: 8.5pt" tabindex="8"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="file" name="prainha_foto" size="20" value="" style="font-family: Tahoma; font-size: 8.5pt" tabindex="16"></font></td>            <td bgcolor="#CCCC00" align="left">                <font face="Tahoma" style="font-size: 8.5pt">                 <input type="file" name="pgrande_foto" size="20" value="" style="font-family: Tahoma; font-size: 8.5pt" tabindex="26"></font></td>          </tr>            </table>        <p align="center" style="margin-top: 5; margin-bottom: 5">        <input type="submit" value="Confirma" name="B1" style="font-family: Tahoma; font-size: 9pt" tabindex="60"></td>        </form></td>
esse é o formulario

 

esse é o script para inserir no banco

 

 

<!-- #INCLUDE FILE="autenticacao.asp" --><%Dim tipo, secao, nomeconexao = "conect"dataehora = request.form("dataehora")molhes_tam = request.form("molhes_tam")molhes_cond = request.form("molhes_cond")molhes_ond = request.form("molhes_ond")molhes_vento = request.form("molhes_vento")molhes_agua = request.form("molhes_agua")molhes_roupa = request.form("molhes_roupa")molhes_observ = request.form("molhes_observ")molhes_foto = request.Form("molhes_foto")cal_tam = request.form("cal_tam")cal_cond = request.form("cal_cond")cal_ond = request.form("cal_ond")cal_vento = request.form("cal_vento")cal_agua = request.form("cal_agua")cal_roupa = request.form("cal_roupa")cal_observ = request.form("cal_observ")cal_foto = request.Form("cal_foto")guar_tam = request.form("guar_tam")guar_cond = request.form("guar_cond")guar_ond = request.form("guar_ond")guar_vento = request.form("guar_vento")guar_agua = request.form("guar_agua")guar_roupa = request.form("guar_roupa")guar_observ = request.form("guar_observ")guar_foto = request.Form("guar_foto")mampi_tam = request.form("mampi_tam")mampi_cond = request.form("mampi_cond")mampi_ond = request.form("mampi_ond")mampi_vento = request.form("mampi_vento")mampi_agua = request.form("mampi_agua")mampi_roupa = request.form("mampi_roupa")mampi_observ = request.form("mampi_observ")mampi_foto = request.Form("mampi_foto")prainha_tam = request.form("prainha_tam")prainha_cond = request.form("prainha_cond")prainha_ond = request.form("prainha_ond")prainha_vento = request.form("prainha_vento")prainha_agua = request.form("prainha_agua")prainha_roupa = request.form("prainha_roupa")prainha_observ = request.form("prainha_observ")prainha_foto = request.Form("prainha_foto")pgrande_tam = request.form("pgrande_tam")pgrande_cond = request.form("pgrande_cond")pgrande_ond = request.form("pgrande_ond")pgrande_vento = request.form("pgrande_vento")pgrande_agua = request.form("pgrande_agua")pgrande_roupa = request.form("pgrande_roupa")pgrande_observ = request.form("pgrande_observ")pggrande_foto = request.Form("pgrande_foto")---------------------------------------------------------------------function limpa_path (wArq)    if wArq = "" then         wArq = " "    Else        Dim novo        novo = " "        For x = Len(wArq) to 1 step -1            novo = mid(wArq,x,1) + novo            if mid(wArq,x,1) = "/" or mid(wArq,x,1) = "\" then                 wArq = mid(wArq,x+1,len(wArq)-x)                exit for            end if        Next    End If    limpa_path = wArqend function'-------------------------------------------------------------------Set Upload = Server.CreateObject("Persits.Upload.1")Upload.Save "d:\pasta\pasta\pasta\pasta\surf\foto\"'Option ExplicitResponse.Expires = 0For Each Item in Upload.Form    Select Case Item.Name        Case "dataehora"            dataehora = Item.Value        Case "molhes_tam"            molhes_tam = Item.Value        Case "molhes_cond"            molhes_cond = Item.Value        Case "molhes_ond"            molhes_ond = Item.Value            Case "molhes_vento"            molhes_vento = Item.Value        Case "molhes_agua"            molhes_agua = Item.Value        Case "molhes_roupa"            molhes_roupa = Item.Value        Case "molhes_observ"            molhes_observ = Item.Value        Case "cal_tam"            cal_tam = Item.Value        Case "cal_cond"            cal_cond = Item.Value        Case "cal_ond"            cal_ond = Item.Value        Case "cal_vento"            cal_vento = Item.Value        Case "cal_agua"            cal_agua = Item.Value        Case "cal_roupa"            cal_roupa = Item.Value        Case "cal_observ"            cal_observ = Item.Value        Case "guar_tam"            guar_tam = Item.Value        Case "guar_cond"            guar_cond = Item.Value        Case "guar_ond"            guar_ond = Item.Value        Case "guar_vento"            guar_vento = Item.Value        Case "guar_agua"            guar_agua = Item.Value        Case "guar_roupa"            guar_roupa = Item.Value        Case "guar_observ"            guar_observ = Item.Value        Case "mampi_tam"            mampi_tam = Item.Value        Case "guar_cond"            mampi_cond = Item.Value        Case "mampi_ond"            mampi_ond = Item.Value        Case "mampi_vento"            mampi_vento = Item.Value        Case "mampi_agua"            mampi_agua = Item.Value        Case "mampi_roupa"            mampi_roupa = Item.Value        Case "mampi_observ"            mampi_observ = Item.Value        Case "prainha_tam"            prainha_tam = Item.Value        Case "prainha_cond"            prainha_cond = Item.Value        Case "prainha_ond"            prainha_ond = Item.Value        Case "prainha_vento"            prainha_vento = Item.Value        Case "prainha_agua"            prainha_agua = Item.Value        Case "prainha_roupa"            prainha_roupa = Item.Value        Case "prainha_observ"            prainha_observ = Item.Value          Case "pgrande_tam"            pgrande_tam = Item.Value        Case "pgrande_cond"            pgrande_cond = Item.Value        Case "pgrande_ond"            pgrande_ond = Item.Value        Case "pgrande_vento"            pgrande_vento = Item.Value        Case "pgrande_agua"            pgrande_agua = Item.Value        Case "pgrande_roupa"            pgrande_roupa = Item.Value        Case "pgrande_observ"            pgrande_observ = Item.Value     End SelectNextFor Each File in Upload.Files    select case File.Name        case "molhes_foto"            w_molhes_foto = limpa_path(Trim(File.Path))        case "cal_foto"            w_cal_foto = limpa_path(Trim(File.Path))        case "guar_foto"            w_guar_foto = limpa_path(Trim(File.Path))        case "mampi_foto"            w_mampi_foto = limpa_path(Trim(File.Path))        end select        case "prainha_foto"             w_prainha_foto = limpa_path(Trim(File.Path))        case "pgrande_foto"             w_pgrande_foto = limpa_path(Trim(File.Path))      end selectNext    W_update = "UPDATE ondas "W_set = "SET dataehora = '" & dataehora & "', molhes_tam = '" & molhes_tam & "', molhes_cond = '" & molhes_cond & "', molhes_ond = '" & molhes_ond & "', molhes_vento = '" & molhes_vento & "', molhes_agua = '" & molhes_agua & "', molhes_roupa = '" & molhes_roupa & "', molhes_observ = '" & molhes_observ & "', " & _"mampi_tam = '" & mampi_tam & "',mampi_cond = '" & mampi_cond & "', mampi_ond = '" & mampi_ond & "', mampi_vento = '" & mampi_vento & "', mampi_agua = '" & mampi_agua & "', mampi_roupa = '" & mampi_roupa & "', mampi_observ = '" & mampi_observ & "', " & _"prainha_tam = '" & prainha_tam & "', prainha_cond = '" & prainha_cond & "', prainha_ond = '" & prainha_ond & "', prainha_vento = '" & prainha_vento & "', prainha_agua= '" & prainha_agua & "', prainha_roupa= '" & prainha_roupa & "', prainha_observ= '" & prainha_observ & "', "  & _"pgrande_tam = '" & pgrande_tam & "', pgrande_cond = '" & pgrande_cond & "', pgrande_ond = '" & pgrande_ond & "', pgrande_vento = '" & pgrande_vento & "', pgrande_agua = '" & pgrande_agua & "', pgrande_roupa = '" & pgrande_roupa & "', pgrande_observ = '" & pgrande_observ & "', " & _"cal_tam = '" & cal_tam & "', cal_cond = '" & cal_cond & "', cal_ond = '" & cal_ond & "', cal_vento = '" & cal_vento & "', cal_agua = '" & cal_agua & "', cal_roupa = '" & cal_roupa & "', cal_observ = '" & cal_observ & "', " & _"guar_tam = '" & guar_tam & "', guar_cond = '" & guar_cond & "', guar_ond = '" & guar_ond & "', guar_vento = '" & guar_vento & "', guar_agua = '" & guar_agua & "', guar_roupa = '" & guar_roupa & "', guar_observ = '" & guar_observ & "', "& _"foto_molhes = '" & molhes_foto & "', foto_mampi = '" & mampi_foto & "', foto_grande = '" & pgrande_foto & "', foto_prainha = '" & prainha_foto & "', foto_cal = '" & cal_foto & "', foto_guarita = '" & guar_foto &  "' "'On error Resume NextSet objConn =  Server.CreateObject("ADODB.Connection")objConn.Open Conexao'response.write w_update + w_setSet RecSet = objConn.Execute(W_update + W_set)objConn.closeSet RecSet = NothingSet objConn = Nothingif error = 0 Then    'Redireciona o usuário caso não tenha ocorrido erro na transação    response.redirect "manut_principal.asp"end ifselect case Trim(w_molhes_foto)    case "sem foto"        strQuery = strQuery + ", molhes_foto = ' '"    case ""        '    case else        strQuery = strQuery + ", molhes_foto = '" &w_molhes_foto& "'"end selectselect case Trim(w_cal_foto)    case "sem foto"        strQuery = strQuery + ", cal_foto = ' '"    case ""        'response.write "Foto cal sem alteraçao Sem Alteração"    case else        strQuery = strQuery + ", cal_foto = '" &w_cal_foto& "'"end selectselect case Trim(w_guar_foto)    case "sem foto"        strQuery = strQuery + ", guar_foto = ' '"    case ""        'response.write "Foto guarita Sem Alteração"    case else        strQuery = strQuery + ", guar_foto = '" &w_guar_foto& "'"end selectselect case Trim(w_mampi_foto)    case "sem foto"        strQuery = strQuery + ", mampi_foto = ' '"    case ""        'response.write "Foto rio Sem Alteração"    case else        strQuery = strQuery + ", mampi_foto = '" &w_mampi_foto& "'"end selectselect case Trim(w_prainha_foto)    case "sem foto"        strQuery = strQuery + ", prainha_foto = ' '"    case ""        'response.write "Foto prainha Sem Alteração"    case else        strQuery = strQuery + ", prainha_foto = '" &w_prainha_foto& "'"end selectselect case Trim(w_pgrande_foto)    case "sem foto"        strQuery = strQuery + ", pgrande_foto = ' '"    case ""        'response.write "Foto Praia grande Sem Alteração"    case else        strQuery = strQuery + ", pgrande_foto = '" &w_pgrande_foto& "'"end selectSet RecSet = objConn.Execute(strQuery)if error = 0 Then    '----------------------- Redireciona o usuário caso não tenha ocorrido erro na transação    For Each File in Upload.Files        Response.Write "<br>" & File.Name & "= " & File.Path & " (" & File.Size &" bytes)"    Next    response.redirect "manut_principal.asp"end if%>W_update = "UPDATE ondas "W_set = "SET dataehora = '" & dataehora & "', molhes_tam = '" & molhes_tam & "', molhes_cond = '" & molhes_cond & "', molhes_ond = '" & molhes_ond & "', molhes_vento = '" & molhes_vento & "', molhes_agua = '" & molhes_agua & "', molhes_roupa = '" & molhes_roupa & "', molhes_observ = '" & molhes_observ & "', " & _"mampi_tam = '" & mampi_tam & "',mampi_cond = '" & mampi_cond & "', mampi_ond = '" & mampi_ond & "', mampi_vento = '" & mampi_vento & "', mampi_agua = '" & mampi_agua & "', mampi_roupa = '" & mampi_roupa & "', mampi_observ = '" & mampi_observ & "', " & _"prainha_tam = '" & prainha_tam & "', prainha_cond = '" & prainha_cond & "', prainha_ond = '" & prainha_ond & "', prainha_vento = '" & prainha_vento & "', prainha_agua= '" & prainha_agua & "', prainha_roupa= '" & prainha_roupa & "', prainha_observ= '" & prainha_observ & "', "  & _"pgrande_tam = '" & pgrande_tam & "', pgrande_cond = '" & pgrande_cond & "', pgrande_ond = '" & pgrande_ond & "', pgrande_vento = '" & pgrande_vento & "', pgrande_agua = '" & pgrande_agua & "', pgrande_roupa = '" & pgrande_roupa & "', pgrande_observ = '" & pgrande_observ & "', " & _"cal_tam = '" & cal_tam & "', cal_cond = '" & cal_cond & "', cal_ond = '" & cal_ond & "', cal_vento = '" & cal_vento & "', cal_agua = '" & cal_agua & "', cal_roupa = '" & cal_roupa & "', cal_observ = '" & cal_observ & "', " & _"guar_tam = '" & guar_tam & "', guar_cond = '" & guar_cond & "', guar_ond = '" & guar_ond & "', guar_vento = '" & guar_vento & "', guar_agua = '" & guar_agua & "', guar_roupa = '" & guar_roupa & "', guar_observ = '" & guar_observ & "' "'On error Resume NextSet objConn =  Server.CreateObject("ADODB.Connection")objConn.Open Conexao'response.write w_update + w_setSet RecSet = objConn.Execute(W_update + W_set)objConn.closeSet RecSet = NothingSet objConn = Nothingif error = 0 Then    'Redireciona o usuário caso não tenha ocorrido erro na transação    response.redirect "manut_principal.asp"end if%>

Algue pode me ajudar??

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.