<% LEMES %>

Bom Dark, acho que não expliquei certo! Bom você deve ter visto mais ou menos o sistema funcionando no link que passei.... Quando você clicar na foto pequena que são as sete primeiras listadas pela páginação a foto Grande do lado deve ser referente ao clique. Consegui fazer abrir as fotos pequenas com a paginação correta, aparentemente, mas não consegui mudar a foto grande. Como faço para abrir a foto grande refente ao clique na pequena. Coloquei este código, mas não consegui nada, gostaria de saber qual mudança devo fazer para quando eu clicar na foto pequena a foto grande aparece-se.... Link da FOTO PEQUENA <% dim idfoto, fotopequena, fotogrande fotopequena=rs("fotopeq") fotogrande=rs("fotogra") idfoto=rs("id_fotomodelo") response.write "<a href=albumteste.asp?clicar="&idfoto&"><img src=modelos/peq/"&fotopequena&" width=""70"" height=""45"" border=0>" %> Exibindo a FOTO GRANDE <% response.write"<img src=modelos/gra/"&fotogrande&" width=""516"" height=""360"" border=0>" %> Na tabela FOTOSBOOK tenho os seguintes campos: id_modelo id_foto fotogra fotopeq id_modelo vai receber o número do album cadastrado id_foto vai receber a ordem das fotos cadastradas fotogra vai receber a imagem grande 516x360px fotopeq vai receber a imagem pequena 70x45px A paginação faz a contagem das fotos pequenas e exibi 7 fotos em cada página (1 2 3 4...). Quando clicar na foto pequena ele exibi a foto grande ao lado..... Qualquer duvida, poste ai.... Valeuuuu

Fala Dark, tentei usar o href mas não obtive muito sucesso? De uma olhada como ficou no link abaixo: http://www.listar.com.br/thefashion/albumteste.asp Coloquei o seguinte código na visualização da foto PEQUENA, mas não deu muito certo! <% dim idfoto, fotopequena, fotogrande fotopequena=rs("fotopeq") fotogrande=rs("fotogra") idfoto=rs("id_fotomodelo") response.write "<a href=albumteste.asp?clicar="&idfoto&"><img src=modelos/peq/"&fotopequena&" width=""70"" height=""45"" border=0>" %> e para a foto GRANDE <%response.write"<img src=modelos/gra/"&fotogrande&" width=""516"" height=""360"" border=0>" %> Dúvidas 1º Como vou fazer para quando clicar na foto pequena aparecer a foto grande referente ao clique; 2º A paginação esta funcionando quase corretamente, apenas um erro está me confundindo: quando passo para a pa´gina 2 e clico em uma foto pequena ela volta para a primeira página. Se puderem me ajudar agradeço....

Onde posso encontrar um script para este componente. No meu servidor se tem ele instalado. Alguém pode me ajudar?

bom bareta, no caso eu queria que quando clicasse na foto pequena, apresenta-se a foto grande. è isto que não estou conseguindo fazer.... Quando ao seu sitema de busca, que tipo de acordo podemos fazer.... O que pronho é que em todo o sistema de busca o seu logo pudesse ser visualizado com um link para sua página... você me envia seu logo que eu coloco no sistema de album de fotos... Gostei muito do seu sistema e gostaria de utiliza-lo, pois assim tb terei como estudar o seu sistema... Qualquer coisa me eenvie um e-mail.... ateé mais, valeu!

Atualmente vimos que a maioria dos sistema possuem uma imagem de segurança que o usuário tem que digitar para prosseguir.... Gostaria de saber qual é a lógica utilizado neste sistema, e como são geradas as imagens para que os usuários possam digitar? Qual o nome desse sistema e quando devo utilizar?

E ai galera, tudo beleza.... Estou desenvolvendo um sistema de album de fotos mas não consigo fazer funcionar... Já pesquisei em vários sites mas não consegui resolver o problema... Bem veja como está o album para vocês terem uma idéia http://www.listar.com.br/thefashion/albumteste.asp A minha dúvida é a seguinte. Como faço para clicar na foto pequena e ao lado aparecer ela grande sem usar frames, somente com paginação. No banco de dados existe uma tabela chamada fotosbook onde terão os seguintes campos Id_nome fotospeq fotosgra página de conexão <% option explicit dim caminhoBDthefashion '------------------ caminhoBDthefashion = "DBQ=" & Server.Mappath("admsis/banco/thefashion.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- CursorLocationEnum Values ---- Const adUseServer = 2 Const adUseClient = 3 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 %> página albumteste.asp <!--#include file="configthefashion.asp" --> <html> <head> <title>TESTE</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="css/estilo_thefashion.css" rel="stylesheet" type="text/css"> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="779" height="54" border="0" cellpadding="0" cellspacing="0" bgcolor="#666666"> <tr> <td height="54" align="center" valign="middle">TITULO DO ALBUM DE FOTOS</td> </tr> </table> <table width="779" border="0" cellpadding="0" cellspacing="0" bgcolor="#666666"> <tr> <td width="164"><table width="164" height="90" border="0" cellpadding="0" cellspacing="0" bgcolor="#666666"> <tr> <td width="163" height="89" valign="top">&nbsp;</td> </tr> </table></td> <td width="449"><table width="440" height="60" border="0" cellpadding="0" cellspacing="0" bgcolor="#990000"> <tr> <td width="358" align="center" valign="middle"><strong><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">ESPA&Ccedil;O RESERVADO PARA PUBLICIDADE</font></strong></td> </tr> </table></td> <td width="166"><table width="151" height="60" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF9900"> <tr> <td width="151" align="center" valign="middle"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>EMPRESAS PARA SUA PUBLICIDADE</strong></font></td> </tr> </table></td> </tr> </table> <table width="779" height="838" border="0" cellpadding="0" cellspacing="0" bgcolor="#666666"> <tr> <td height="559" valign="top"><table width="779" height="488" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="164" height="485" align="center" valign="top"><table width="120" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p>-fotos</p> <p>- comentarios</p> <p>- votar</p> </td> </tr> </table> <table width="120" border="0" cellspacing="0" cellpadding="0"> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> </td> <td width="615" valign="top"><table width="601" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="78" height="396" valign="top"> <% dim conn dim rs dim sql Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show dim iRecordsShown dim i iPageSize = 7 if request("page")="" then iPageCurrent = 1 else iPageCurrent = cint(request.querystring("page")) end if Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open caminhoBDthefashion SQL = "select * from fotosbook order by id_fotopeq" Rs.Open sql, conn,adOpenStatic, adLockReadOnly, adCmdText RS.PageSize = iPageSize RS.CacheSize = iPageSize RS.AbsolutePage = iPageCurrent iPageCount = RS.PageCount iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not RS.EOF %> <table width="74" height="49" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td width="99" height="45" align="center" valign="middle"> <% dim nomedoarquivo dim caminhofotopeq nomedoarquivo=rs("id_fotopeq") caminhofotopeq="modelos/peq/" response.write "<img src=modelos/peq/"&nomedoarquivo&" width=""70"" height=""45"" border=0>" '<img src="modelos/peq/carineveloso_01.jpg" width="70" height="45"> %></td> </tr> </table> <table width="74" border="0" cellpadding="0" cellspacing="0" class="texto-5px"> <tr> <td width="66">&nbsp;</td> </tr> </table> <%iRecordsShown = iRecordsShown+1%> <% dim pagesup rs.movenext loop%> </td> <td width="523" valign="top"> <table width="522" height="366" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td width="523" height="346" align="center" valign="middle"><img src="modelos/gra/carineveloso_01.jpg" width="516" height="360"></td> </tr> </table> <table width="522" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="179"> <%response.write "<font color=#FFFFFF face=verdana,arial size=3><b>Página " for i=1 to ipagecount response.write "</b>" response.write "<a class='box' href='ALBUMTESTE.asp?page="&i&"'>" & i & "</a>&nbsp;" next %> </td> <td width="73">&nbsp;</td> <td width="60">&nbsp;</td> <td width="104">&nbsp;</td> <td width="106">&nbsp;</td> </tr> </table> </td> </tr> </table> </td> </tr> </table></td> </tr> </table> </body> </html>

Como faço para testar o CDONTS no IIS na minha máquina. Tenho que estar conectado com a internet?

Acho que está é a duvida de muitos programadores... Muitos pensam e eu tb cheguei a creditar que este tipo de sistema era mais para sites de lojas on-line. Me enganei, pois qualquer tipo de sistema de serviços on-line pode ser gerado um sistema de boleto bancário e até mesmo outras transações financeiras. Pois um programador quando é requisitado para desenvolver um sistema para empresa, não deve somente pensar em desenvolver o que a empresa solicita, até mesmo porque se ela o procurou, é porque necessita, confiou em você, e para o site alcançar o sucesso que a empresa está depositando, isso depende ativamente dos seus conhecimentos. Por isso pesquisem muito sobre este tema e outros, pois quanto mais informações e conhecimentos tiverem, mas chances de atrair novos clientes. Acessei o site do bradesco para me informar sobre o sistema de boleto báncario e achei isto... Estou entrando em contato com o Banco para maiores informações de como devo proceder para incluir o sistema em meu site. Quando obtiver estas informações vou colocar aqui para que tenham uma amplitude maior do serviço. Até mais... Ai vai o link do site: Boleto Báncario Site BRADESCO Depois encontre a opção serviços e clique em Comércio Eletrônico. Valeu pelos tuto, são de grande ajuda e servirão muito pra mim, continuem postando, pois quanto mais informações tivermos poderemos esolher o que melhor nos adpta.

E como faço para capturar a data e hora neste formato e soma-las para a data de expiração?

Tenho uma página de Cadastro de anúncios, até beleza... Tenho que criar um código que quando cadastrados some + 07 dias a apartir da hora cadastradas, para que os usuários só possam acessar a página até a data de expiração. Como faço para somar as datas. Vamos supor que o usuário se cadastrou hoje dia 01/09/2004 as 03:00hs da madruga. A validade do ACESSO vai ser de até 07/09/2004 as 03:00hs da madruga. E outro se cadastrou hoje tb mas as 14:00hs da tarde. A validade do ACESSO vai ser de até 07/09/2004 as 14:00hs da tarde. A DATA É GRAVADA NO CAMPO DATA DA TABELA ASSIM=01/09/2004 E A HORA NO CAMPO HORAS DA TABELA ASSIM=24:10:30 Como devo fazer esse código...Se poderem me ajudar postem aí...

Já tive alguns problemas com contratos por isso recorri até aqui para ver as dúvidas e informações que a galera tem e já passaram, pois um contrato vale mais que a "Palavra" para algumas pessoas. Sei que muitos vão perguntar porque estou postando aqui, mas crei que tudo começa atravéz dos contratos, e muitos como eu tem dúvidas ainda... Como... Onde posso consegui informações sobre constratos de prestação de serviços com uma visão voltada para internet. O que devo abordar na Politica de Privacidade e nos Ternos de compromissos para os visitantes do meu site?

Como faço para incluir um sistema de boleto bancário (bradesco, Itaú entre outros) no meu site? Onde posso consegui estes boletos? Tenho que pagar alguma coisa para utilizar este sistema?

Valeu galera, mas o que eu não consegui fazer é pegar o nome da foto para fazer a comparação se o arquivo existe na mminha pasta onde são guardadas as fotos. e nem onde colocar o código. "D:\codigo_fonte\Asp\_exemplos\upload_sem_comp\arquivos\" Estou utilizando FSO para fazer a comparação e uma renomeação incluindo 01 para os arquivos que já existem. MAS O QUE NÃO ESTOU COSEGUINDO É PEGAR O NOME DO ARQUIVO ESCOLHIDO PELO USUÁRIO GUARDA-LA EM UMA VARIÁVEL PARA PODER FAZER A COMPARAÇÃO. ESSE CÓDIGO ESTÁ TIRANDO O SONO. HEHEHEHEHE.

Bom galera deixe eu ex´plicar. Gostaria de saber como faço para trazer os dados do "ESTADOS" que estão gravados no Banco de Dados aparecer na CAIXA DE SELEÇÂO DO FORMULÁRIO. e quando clicar em um estado apareça as cidades que também estão gravados no Banco de Dados tb, apareçam em entra caixa de seleção. Exemplo. Puxa do BD os estados e coloca na Caixa de Seleção e ai o usuário escolhe um estado, vamos supor SP, quando o usuário clicar em SP aparecam as cidades do Estado de São Paulo na outra Caixa de Seleção. Tem como fazer isso com ASP?

Tá certo dark, mas acho que você não entendeu... O que eu queria saber como faço para guardar o nome do arquivo que o usuário escolheu em uma variavél para comparar se ele existe na pasta.... Eu não consegui fazer isso com o metodo request.form e gostaria de saber se existe outra forma. Para mim utilizar neste código.

Posso guardar o login e senha do usuário em um cookie? Existe algum risco de segurança se eu utilizar este processo?

A minha dúvida é a seguinte dark. Como faço para recuperar o nome do arquivo escolhido no formulário quando o usuário clica procurar e coloca-los em uma variável. exemplo var1=d:\lemes.jpg var2=d:\lemes2.jpg var3=d:\lemes3.jpg var4=d:\lemes4.jpg

Ai galera valeu, mas acho que vocês não entenderam bem... Usar o comando eu já sei, O que eu não estou conseguindo é recuperar o no do arquivo para mim fazer a comparação antes de grava-los na pasta.... exemplo: FOTO 1 : lemes\lemes\lemes.jpg FOTO 2 : lemes\lemes\lemes1.jpg FOTO 3 : lemes\lemes\lemes2.jpg FOTO 4 : lemes\lemes\lemes3.jpg Quero pegar o nome lemes.jpg e compara-la com o que existe na pasta... mas não consegui pois eu não sei recuperar este nome do formulário... pois o formulário utiliza ENCTYPE="multipart/form-data". e não consigo recupera-las por request.form. Em qual variavél é guardada o nome da foto que o usuário acabou de escolher...

Pesquisei aqui no forum e achei algumas coisas sobre isto, mas ainda estou com algumas dúvidas e por isso gostaria de saber se podem me ajudar com algumas informações. Estou desenvolvendo um sistema de login de Teste para mim poder postar Aqui no forum para ajudar a explicar melhor o sistema de criação de login, pois já pesquisei muito e não achei nada que pudesse me ajudar a enteder melhor o sistema. Gostaria que vocês colocassem suas informações aqui, para mim poder desenvolver mehor este sistema, que podera servir para milhares de desenvolvedores iniciantes.

Estou utilizando o código de UPLOAD SEM COMPONENTE que encontrei aqui no forum. Estou utilizando um banco de dados para guardar o nome das fotos apos o upload ser realizado. Até ai funciona bem. Mas percebi que se eu enviar uma outra foto com o mesmo nome, ele substitui a antiga foto. Tentei usar o REQUEST.FORM para guardar em uma variavel o nome e o caminho da foto e quebrar o nome do arquivo para comprar no diretorio com FOS Exist, mas o comando request não funcionou pois o form utiliza ENCTYPE="multipart/form-data". Tentei localizar as variáveis onde é guardada as fotos no codigo mas não consegui utiliza-las e nem encontra-las. A minha duvida é o seguinte: Como faço para testar se o nome foto existe na pasta onde serão guardadas as fotos e se existir renomea-las para outro nome. Código logo abaixo - UPLOADTESTER.ASP <%@ Language=VBScript %> <% option explicit Response.Expires = -1 Server.ScriptTimeout = 600 %> <!--#include file="config.asp" --> <!--#include file="freeaspupload.asp" --> <% Dim uploadsDirVar uploadsDirVar = "D:\codigo_fonte\Asp\_exemplos\upload_sem_comp\arquivos\" function OutputForm() %> <form name="frmSend" method="POST" action="uploadTester.asp" ENCTYPE="multipart/form-data" onSubmit="return ChecaExtensaoArquivo(this)"> Foto 1: <input name=foto1 type=file size=35 style="background-color: #F9F9F9; color: black; font-family: Verdana; font-size: 10px; border: 1 solid #000000"><br> Foto 2: <input name=foto2 type=file size=35 style="background-color: #F9F9F9; color: black; font-family: Verdana; font-size: 10px; border: 1 solid #000000"><br> Foto 3: <input name=foto3 type=file size=35 style="background-color: #F9F9F9; color: black; font-family: Verdana; font-size: 10px; border: 1 solid #000000"><br> Foto 4: <input name=foto4 type=file size=35 style="background-color: #F9F9F9; color: black; font-family: Verdana; font-size: 10px; border: 1 solid #000000"><br> <br> <input type=submit value="Enviar fotos" style="margin-top:4; background-color: #F3F3F3; color: #000000; font-family: Verdana; font-size: 10px; border: 1 fina #000000"> </form> <% end function function TestEnvironment() Dim FSO, fileName, testFile, streamTest TestEnvironment = "" Set FSO = Server.CreateObject("Scripting.FileSystemObject") if not FSO.FolderExists(uploadsDirVar) then TestEnvironment = "<B>Caminho " & uploadsDirVar & " não existe.</B><br>O caminho atribuido na variável uploadsDirVar não existe. Abra o arquivo uploadTester.asp em um editor e corrija o caminho atribuído a variável uploadsDirVar." exit function end if fileName = uploadsDirVar & "\tedfdfst.txt" on error resume next Set testFile = FSO.CreateTextFile(fileName, true) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions." exit function end if Err.Clear testFile.Close FSO.DeleteFile(fileName) If Err.Number<>0 then TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder." exit function end if Err.Clear Set streamTest = Server.CreateObject("ADODB.Stream") If Err.Number<>0 then TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries." exit function end if Set streamTest = Nothing end function function SaveFiles Dim Upload, fileName, fileSize, ks, i, fileKey, fotos, sql, conn, rs, idimoveis Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar) SaveFiles = "" ks = Upload.UploadedFiles.keys if (UBound(ks) <> -1) then SaveFiles = "<B>Arquivos carregados:</B> " for each fileKey in Upload.UploadedFiles.keys SaveFiles = SaveFiles &" , " & Upload.UploadedFiles(fileKey).FileName fotos = Upload.UploadedFiles(fileKey).FileName&"," fotos=replace(fotos,",","") idimoveis=1 Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open dsn1 sql = "insert into fotos (id_imoveis,fotos_imoveis)values ('" & idimoveis & "','" & fotos & "')" Rs.Open sql, conn next else SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system." end if 'end if end function %> <HTML> <HEAD> <TITLE>Test Free ASP Upload</TITLE> <style> BODY {background-color: white;font-family:arial; font-size:12} </style> <script type="text/javascript"> function ChecaExtensaoArquivo( frmSend ) { var extensoesOk = ",.jpg,.gif,"; var extensao =frmSend.foto1.value.substr( frmSend.foto1.value.length - 4 ).toLowerCase() + ","; if( extensoesOk.indexOf( extensao) == -1 ){ alert("\ERRO FOTO 1: Permitido somente arquivos com extensões .JPG ou .GIF - Caminho do Arquivo escolhido: " +frmSend.foto1.value); return false; } var extensao2 =frmSend.foto2.value.substr( frmSend.foto2.value.length - 4 ).toLowerCase() + ","; if( extensoesOk.indexOf( extensao2) == -1 ){ alert("\ERRO FOTO 2: Permitido somente arquivos com extensões .JPG ou .GIF - Caminho do Arquivo escolhido: " +frmSend.foto2.value); return false; } var extensao3 =frmSend.foto3.value.substr( frmSend.foto3.value.length - 4 ).toLowerCase() + ","; if( extensoesOk.indexOf( extensao3) == -1 ){ alert("\ERRO FOTO 3: Permitido somente arquivos com extensões .JPG ou .GIF - Caminho do Arquivo escolhido: " +frmSend.foto3.value); return false; } var extensao4 =frmSend.foto4.value.substr( frmSend.foto4.value.length - 4 ).toLowerCase() + ","; if( extensoesOk.indexOf( extensao4) == -1 ){ alert("\ERRO FOTO 4: Permitido somente arquivos com extensões .JPG ou .GIF - Caminho do Arquivo escolhido: " +frmSend.foto4.value); return false; } return true; } </script> </HEAD> <BODY> <br><br> <% Dim diagnostics if Request.ServerVariables("REQUEST_METHOD") <> "POST" then diagnostics = TestEnvironment() if diagnostics<>"" then response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">" response.write diagnostics response.write "<p>Contate o suporte técnico: <a href=mailto:chisleme@ig.com.br>chisleme@ig.com.br</a>" response.write "</div>" else response.write "<div style=""margin-left:150"">" OutputForm() response.write "</div>" end if else response.write "<div style=""margin-left:150"">" OutputForm() response.write SaveFiles() response.write "<br><br></div>" end if %> </BODY> </HTML> FREEASPUPLOAD.ASP <% Class FreeASPUpload Public UploadedFiles Public FormElements Private VarArrayBinRequest Private StreamRequest Private uploadedYet Private Sub Class_Initialize() Set UploadedFiles = Server.CreateObject("Scripting.Dictionary") Set FormElements = Server.CreateObject("Scripting.Dictionary") Set StreamRequest = Server.CreateObject("ADODB.Stream") StreamRequest.Type = 1 'adTypeBinary StreamRequest.Open uploadedYet = false End Sub Private Sub Class_Terminate() If IsObject(UploadedFiles) Then UploadedFiles.RemoveAll() Set UploadedFiles = Nothing End If If IsObject(FormElements) Then FormElements.RemoveAll() Set FormElements = Nothing End If StreamRequest.Close Set StreamRequest = Nothing End Sub Public Property Get Form(sIndex) Form = "" If FormElements.Exists(LCase(sIndex)) Then Form = FormElements.Item(LCase(sIndex)) End Property Public Property Get Files() Files = UploadedFiles.Items End Property 'Calls Upload to extract the data from the binary request and then saves the uploaded files Public Sub Save(path) Dim streamFile, fileItem if Right(path, 1) <> "\" then path = path & "\" if not uploadedYet then Upload For Each fileItem In UploadedFiles.Items Set streamFile = Server.CreateObject("ADODB.Stream") streamFile.Type = 1 streamFile.Open StreamRequest.Position=fileItem.Start StreamRequest.CopyTo streamFile, fileItem.Length streamFile.SaveToFile path & fileItem.FileName, 2 streamFile.close Set streamFile = Nothing fileItem.Path = path & fileItem.FileName Next End Sub Public Sub DumpData() 'only works if files are plain text Dim i, aKeys, f response.write "Form Items:<br>" aKeys = FormElements.Keys For i = 0 To FormElements.Count -1 ' Iterate the array response.write aKeys(i) & " = " & FormElements.Item(aKeys(i)) & "<BR>" Next response.write "Uploaded Files:<br>" For Each f In UploadedFiles.Items response.write "Name: " & f.FileName & "<br>" response.write "Type: " & f.ContentType & "<br>" response.write "Start: " & f.Start & "<br>" response.write "Size: " & f.Length & "<br>" Next End Sub Private Sub Upload() Dim nCurPos, nDataBoundPos, nLastSepPos Dim nPosFile, nPosBound Dim sFieldName 'RFC1867 Tokens Dim vDataSep Dim tNewLine, tDoubleQuotes, tTerm, tFilename, tName, tContentDisp, tContentType tNewLine = Byte2String(Chr(13)) tDoubleQuotes = Byte2String(Chr(34)) tTerm = Byte2String("--") tFilename = Byte2String("filename=""") tName = Byte2String("name=""") tContentDisp = Byte2String("Content-Disposition") tContentType = Byte2String("Content-Type:") uploadedYet = true VarArrayBinRequest = Request.BinaryRead(Request.TotalBytes) nCurPos = FindToken(tNewLine,1) 'Note: nCurPos is 1-based (and so is InstrB, MidB, etc) If nCurPos <= 1 Then Exit Sub 'vDataSep is a separator like -----------------------------21763138716045 vDataSep = MidB(VarArrayBinRequest, 1, nCurPos-1) 'Start of current separator nDataBoundPos = 1 'Beginning of last line nLastSepPos = FindToken(vDataSep & tTerm, 1) Do Until nDataBoundPos = nLastSepPos nCurPos = SkipToken(tContentDisp, nDataBoundPos) nCurPos = SkipToken(tName, nCurPos) sFieldName = ExtractField(tDoubleQuotes, nCurPos) nPosFile = FindToken(tFilename, nCurPos) nPosBound = FindToken(vDataSep, nCurPos) If nPosFile <> 0 And nPosFile < nPosBound Then Dim oUploadFile, sFileName Set oUploadFile = New UploadedFile nCurPos = SkipToken(tFilename, nCurPos) sFileName = ExtractField(tDoubleQuotes, nCurPos) oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\")) if (Len(oUploadFile.FileName) > 0) then 'File field not left empy nCurPos = SkipToken(tContentType, nCurPos) oUploadFile.ContentType = ExtractField(tNewLine, nCurPos) nCurPos = FindToken(tNewLine, nCurPos) + 4 'skip empty line oUploadFile.Start = nCurPos-1 oUploadFile.Length = FindToken(vDataSep, nCurPos) - 2 - nCurPos If oUploadFile.Length > 0 Then UploadedFiles.Add LCase(sFieldName), oUploadFile End If Else Dim nEndOfData nCurPos = FindToken(tNewLine, nCurPos) + 4 'skip empty line nEndOfData = FindToken(vDataSep, nCurPos) - 2 If Not FormElements.Exists(LCase(sFieldName)) Then FormElements.Add LCase(sFieldName), String2Byte(MidB(VarArrayBinRequest, nCurPos, nEndOfData-nCurPos)) End If 'Advance to next separator nDataBoundPos = FindToken(vDataSep, nCurPos) Loop StreamRequest.Write(VarArrayBinRequest) End Sub Private Function SkipToken(sToken, nStart) SkipToken = InstrB(nStart, VarArrayBinRequest, sToken) If SkipToken = 0 then Response.write "Error in parsing uploaded binary request." Response.End end if SkipToken = SkipToken + LenB(sToken) End Function Private Function FindToken(sToken, nStart) FindToken = InstrB(nStart, VarArrayBinRequest, sToken) End Function Private Function ExtractField(sToken, nStart) Dim nEnd nEnd = InstrB(nStart, VarArrayBinRequest, sToken) If nEnd = 0 then Response.write "Error in parsing uploaded binary request." Response.End end if ExtractField = String2Byte(MidB(VarArrayBinRequest, nStart, nEnd-nStart)) End Function Public Function SaveBinRequest(path) ' For debugging purposes StreamRequest.SaveToFile path & "debugStream.bin", 2 End Function 'String to byte string conversion Private Function Byte2String(sString) Dim i For i = 1 to Len(sString) Byte2String = Byte2String & ChrB(AscB(Mid(sString,i,1))) Next End Function 'Byte string to string conversion Private Function String2Byte(bsString) Dim i String2Byte ="" For i = 1 to LenB(bsString) String2Byte = String2Byte & Chr(AscB(MidB(bsString,i,1))) Next End Function End Class Class UploadedFile Public ContentType Public FileName Public Start Public Length Public Path End Class %>

A maior diferença é o tempo... Uma vez feito uma página dinâmica você ganha muito em atualização e valor... pois sai mais barato do que você ter que pagar sempre que for atualizar as páginas estáticas. As páginas dinâmicas são um pontecial em tanto para as empresas que tem que fazer atualizações constantemente. Pois com uma administração e um banco de dados você pode enviar e-mails para os novos usuários cadastrados, fazer pagamentos on-line, realizar deiversos serviços automomáticamente... É isso aí...

Como faço para enviar uma pagina.asp para o e-mails dos os usuários cadastrados em meu BD em massa. Utilizo o aspMaill

Bom cara, existem vários sistemas prontos para serem feito downloads e ai é so você fazer as alterações que deseja, mas se esta querendo desenvolver o seu proprio sistema, aconselho a você dar uma pesquisada no forum e ler algumas apostilas de asp... Acho que aqui você não vai conseguir um sistema pronto de graça, pois isso envolve custo e horas de desenvolvimento... Mas comece a fazer e ir postando ai as dúvidas... Mas não fique colocando vários TÓPICOS sobre o mesmo assunto...Crie somente um tópico e coloque lá suas dúvidas

Quando coloquei os pontinhos não era somente para você copiar era para voê completar o resto do código. Mas veja ai se funciona. Coloque este código depois do </head> </head> <body leftmargin="5" bgcolor="#e5ffff"> <div id="image1"> <% idmostar=ler("id") frases = ler("frases") fotoCidades = ler("fotoCidades") pessoas = ler("pessoas") email = ler("email") estudos = ler("estudos") brasileiro = ler("brasileiro") data = ler("data") %> <table border="0" colspan="3" width="750"> <tr> <td colspan="3" class="1" > <div id="1"> <%response.write"<a href='default1.asp?idmostrar="&rs("id") & "' target='_blank'>"&data&"</a>"%> </div> </td> </tr> <tr> <td width="150" VALIGN="TOP" class="1" rowspan="2"> <div id="bot"> <a href="default.asp?id=22&amp;data=22">Marcos olviera</a> </div> </td> <td width="420" valign="TOP" class="1"> <%=pessoas%> </td> <td width="180" VALIGN="TOP" class="1" rowspan="2"> <%=fotoCidades%> <%=estudos%> <%=brasileiro%> </td> </tr> <tr> <td class="1"> <%response.write"<a href='default1.asp?idmostrar="&rs("id") & "' target='_blank'>"&data&"</a>"%> </td> </tr> <tr> <td colspan="3" class="1" style="text-align:center" id="4"><%=menu1%></td> </tr> </table> </div> </BODY> se der algum erro poste ai em vermelho e apenaso local onde da o erro. faça um teste ai.

Cara tb uso o Nortan 2004 e funciona bem... Será que não tem nehum arquivo no system da sua máquina fazendo o bloqueio do IIS. há algum tempo atráz aconteceu isto comigo tb, o IIS Tinha ficado doido, mas eu formatei e quando voltou ficou beleza... Boa Sorte, ai...