insertar imagenes en dreamweaver

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • insertar imagenes en dreamweaver

    Hola chicos:

    La verdad es que de dreamweaver no se mucho pero igual trabajo con el, lo que me gustaria saber si se puede hacer lo siguiente, tengo una pagina asp que imprime una cuponera de pago pero necesito insertar una imagen que no se mueva de la posicion en la que la pongo algo asi como una marca de agua pero que no se vea transparente, el problema es que necesito que encima de esa imagen se imprima un codigo de barra, pero cuando inserto el codigo de barra me corre todas las imagenes hacia abajo y me descuadra todos los cupones, en la hoja tamaño carta tengo 4 cupones de pago.
    esto es lo que tengo en el body de la pagina


    Código:
    Set rsSol = Server.CreateObject("ADODB.Recordset")
    sql = "Select max(ppFVcto) as Vcto from PlanPago" _
        & " where ppSuc = " & Session("WgKSuc") _
        & " and ppCr = " & Session("WgKCred")
    rsSol.Open sql, dbp, adOpenForwardOnly, adLockReadOnly, adCmdText
    If Not rsSol.EOF Then
    	If DateDiff("m", Session("FecI"), rsSol("Vcto")) > 12 Then
    		rsSol.Close
    		sql = "Select lcSimil From LineasCred" _
    			& " Where lcCod = " & Session("Lc")
    		rsSol.Open sql, dbp, adOpenForwardOnly, adLockReadOnly, adCmdText
    		If Not rsSol.EOF Then
    			Session("Lc") = rsSol("lcSimil")
    		End if
    		rsSol.Close
    	Else
    		rsSol.Close
    	End if
    End If
    
    sql = "Select scFCuponera, scCodBEstado  from SolCred" _
        & " where scSuc = " & Session("WgKSuc") _
        & " and scCre = " & Session("WgKCred")
    rsSol.Open sql, dbp, adOpenDynamic, adLockOptimistic, adCmdText
    If Not rsSol.EOF Then
        CodBEstado=rsSol("scCodBEstado")	
        rsSol("scFCuponera") = Date()
        rsSol.Update
    else
    	CodBEstado="000000000000000"	
    End If
    rsSol.Close
    Set rsSol = Nothing
    
    
    Session("ApRi") = Request.QueryString("id")
    If Not Session("ApRi") Then
        sql = "select cliNro, cliNomb, cliRut, cliDv, ppCr, ppScr, crMto, crCodB as scCodB ," _
            & " ppNcta, crCtas, ppFVcto, ppVCta, ppAmort, ppInt, crFApr" _
            & " from Creditos" _
            & " inner join Clientes on crSuc = cliSuc and crcli = cliNro" _
            & " inner join PlanPago on ppCr = crNro and ppSuc = crSuc" _
            & " Where ppSuc = " & Session("WgKSuc") _
            & " and ppCr = " & Session("WgKCred") _
            & " and ppIPag = 0 " _
            & " order by ppNCta"
    		paso=0
    Else
        sql = "select cliNro, cliNomb, cliApPat, cliApMat, cliRut, cliDv, ppCr, ppScr, scMtoAp as crMto, scCodB, scCodBEstado, " _
            & " ppNcta, dscCtas as crCtas, ppFVcto, ppVCta, ppAmort, ppInt, scFecIni as crFApr" _
            & " from SolCred" _
            & " inner join DatSolCred on scSuc = dscSuc and scNro = dscNro" _
            & " inner join Clientes on scSuc = cliSuc and sccli = cliNro" _
            & " inner join PlanPago on ppCr = scCre and ppSuc = scSuc" _
            & " Where ppSuc = " & Session("WgKSuc") _
            & " and ppCr = " & Session("WgKCred") _
            & " and ppIPag = 0 " _
            & " order by ppNCta"
    		paso=1
    End If
    Set rs = Server.CreateObject("ADODB.Recordset")
    i = 0
    rs.Open sql, dbp, adOpenForwardOnly, adLockReadOnly, adCmdText
    	i = rs("ppNcta") - 1
    %>
    		<%
    		While Not rs.EOF
    		
    			%>
    			<table width="640"  cellpadding="0" border="1px" cellspacing="0" class="cuponera">
    			  <tr>
    				<td width="82"  bgcolor="#FFFFFF">Cliente:</td>
    				<td width="423" bordercolor="#FFFFFF"><%=rs("cliNro") & " " & Trim(rs("cliNomb")) & " " & Trim(rs("cliApPat")) & " " & Trim(rs("cliApMAt"))%></td>
    				<td width="24" >Rut:</td>
    				<td width="101" bordercolor="#FFFFFF"><%=FormatNumber(rs("cliRut"), 0) & "-" & rs("cliDv")%></td>
    			  </tr>
    			</table>
    <br>
    			<table width="601"  cellspacing="0" cellpadding="0" class="cuponera">
    			  <tr><%Session("WgKCred")=rs("ppCr")%>
    				<td width="124"  style="border:1px;" class="cuponera">Nro. Cr&eacute;dito: </td>
    				<td width="65" style="border:1px;" class="cuponera"><%=rs("ppCr")%></td>
    				<td width="410" ></td>
    			  </tr>
    			  <tr>
    				<td style="border:1px;" class="cuponera">Nro. Cuota:</td>
                    <% if Session("Lc") = 5192 or Session("Lc") = 5142 or Session("Lc") = 5130 or Session("Lc") = 5180 or Session("Lc") = 5134 or Session("Lc") = 5184 or Session("Lc") = 5135 or Session("Lc") = 5185 or Session("Lc") = 6101 or Session("Lc") = 6151 or Session("Lc") = 6166 Then %>
                        <td style="border:1px;" class="cuponera"><%=rs("ppNcta") & "/" & rs("crCtas")%></td>
                    <%
    				Else%>
                    <td style="border:1px; border-color:#000"><%=rs("ppNcta") & "/" & rs("crCtas")%></td> 
    				              <%'response.write "---ppncta---" & rs("ppNcta") %>
                    <%End if%>
                    	<td align="center" style="font-size:12px">C&oacute;digo  identificador Convenio SERVIESTADO - CAJA VECINA (6965)</td>  
    			  </tr>
    			  <tr>
    				<td style="border:1px; border-color:#000" class="cuponera">Vencimiento:</td>
    				<td style="border:1px; border-color:#000" class="cuponera"><%=FFecha(rs("ppFVcto"))%></td>
    				<td bgcolor="#FFFFFF" style="vertical-align:text-top" align="center">
    				  <%
    				response.write CodBEstado%>
    				</td>
    			  </tr>
    			  <tr>
    			    <td style="border:1px; border-color:#000" class="cuponera">Valor Cuota: </td>
    			    <td style="border:1px; border-color:#000" class="cuponera"><%=formatnumber(rs("ppVCta"),0,0,-2)%></td>
    			    <td bgcolor="#FFFFFF" align="center">C&oacute;digo de barra sencillito</td>
    		      </tr>
    			  <tr>
    				<td height="40"  style="vertical-align:text-top">Saldo:</td>
    				<td style="vertical-align:text-top;"><%=formatnumber(rs("ppSCr"),0,0,-2)%></td>
    	<td bordercolor="#FFFFFF" align="center"><%
    				Response.write "<IMG SRC='CodBarra/asterisk.gif' WIDTH='14' HEIGHT='36'>"
    				For x = 1 to Len(Trim(rs("scCodB")))
    				  Response.Write "<IMG SRC='CodBarra/" & mid(rs("scCodB"),x,1) & ".gif' WIDTH='14' HEIGHT='36'>"
    				Next
    				Response.write "<IMG SRC='CodBarra/asterisk.gif' WIDTH='14' HEIGHT='36'>"
    				%>
          <br>
          <font size="-1" face="Courier New, Courier, monospace"><%=rs("scCodB")%></font></td>
        </tr>
                  
    </table>
    <br />
    <hr />
    			<%
    			If (i + 4) = rs("ppNcta") Then%>
    				<!--<p></p>
    				<br>
    				<p></p>-->
    				<div style="page-break-before:always"></div>
    			<%	i = i + 4	
    			End if
    			rs.MoveNext
    		Wend
    rs.Close
    Set rs = Nothing
    lo que esta con naranjo es lo que necesito reemplazar por las imágenes, espero que me puedan ayudar o dar una mejor idea, gracias.
    soy feliz

  • #2
    Re: insertar imagenes en dreamweaver

    Saludos.
    Vas a trabajar mucho mejor si trabajas con capas (divs), ve dejando la idea de usar <table> para maquetar todo el contenido de tu web. Además con div podrás hacer lo que quieres. No te coloco un código de ejemplo pues no se si tengas concepto de .css, saludos.

    Comentario

    Trabajando...
    X