Ir para conteúdo

POWERED BY:

Arquivado

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

Armanrulla

etiquetas via asp

Por , em ASP Clássico

Recommended Posts

Armanrulla    0

Armanrulla
Postado

Olá pessoal ?? Tenho que desenvolver algo que gere etiquetas pro usuário, mas sei que em ASP eu não vou conseguir algo muito bom, alguem sabe como posso fazer o asp jogar os dados no word pra fazer as etiquetas ??[]`s Armando

Compartilhar este post

Link para o post
Compartilhar em outros sites

Magnoweb    0

Magnoweb
Postado

Taê, eh soh ajustar de acordo com aquilo que você quer tá funcionando perfeitinho

 

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="../globais/connect.asp"-->

<%

Dim RS,SQL

SQL = "SELECT empresas.*,contatos.* FROM empresas INNER JOIN contatos ON empresas.cod_empresa=contatos.cod_empresa WHERE empresas.situacao=1 AND contatos.situacao=1 ORDER BY empresas.Ds_empresa ASC"

Set RS = Server.CreateObject("ADODB.RecordSet")

RS.open SQL,Oconn,3,3

 

pagina = Request.QueryString("p")

if pagina = "" then

pagina = 1

end if

'Seta a variavel pagina como a página em questão na paginação

registros = 30

RS.pagesize = registros

%>

<!--PAGINAÇÃO-->

<%if RS.EOF then%>

<font face="Arial" size="2">

Sua pesquisa não retornou nenhum resultado</font>

<%

Response.End

else

RS.AbsolutePage = pagina

if RS.EOF then

%>

<font face="Arial" size="2">

Sua pesquisa não retornou nenhum resultado</font>

<%

fim = 1

end if

xx = 0

end if

%>

 

<html>

<head>

<title>selecta</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="../Style.css" rel="stylesheet" type="text/css">

</head>

<body leftmargin="0" topmargin="0">

<%

Total = RS.RecordCount

Colunas = 3

%>

 

<table width="779" align="center" cellpadding="0" cellspacing="0">

<%

X = 1

Y = 0

WHILE NOT RS.EOF AND xx < RS.pagesize

xx = xx + 1

%>

<%IF Y = 0 THEN%>

<tr>

<%END IF%>

<%IF X < Total THEN%>

<td width="240" height="96" class="styleMala"> <b><%=RS("Ds_empresa")%></b><br>

 <%=RS("ds_contato")%> <br> <%=RS("endereco")%>  <%=RS("bairro")%> - <%=RS("municipio")%>/<%=RS("uf")%>

CEP:<%=RS("cep")%> </td>

<td width="32" class="style2"> </td>

<%ELSE%>

<td width="240" height="96"><%=RS("Ds_empresa")%></td>

<td width="32"> </td>

<%IF Total mod Colunas <> 0 THEN%>

<%FOR I = Total mod Colunas TO Colunas - 1%>

<td width="235" height="96">vazio</td>

<%NEXT%>

<%END IF%>

<%END IF%>

<%

X = X + 1

Y = Y + 1

IF Y = Colunas Then

Y = 0

End if

RS.MoveNext

Wend

 

if fim = "" then

anterior = pagina - 1

proxima = pagina + 1

if anterior <> 0 then

%>

<a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>" class="link2">Página

Anterior</a> -

<%End if%>

<a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>" class="link2">Próxima

Página</a>

<%

end if

RS.Close

Oconn.Close

%>

</table>

 

</body>

</html>

[/tr]

 

flw B)

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito