usuariodaweb

Tem algum script fácil de configurar para buscar arquivos dentro do meu site?
Encontrei alguns que baixei, mas nao entendi muito bem.

Obrigada,

Tenho um script de membros no site, mas não sei como criar um codigo q apareça os ultimos membros cadastrados e a qtde. Alguem poderia me ajudar?

att,

Alguem conhece um bom script de Estatísticas, simples de configurar?
E eu gostaria de saber tb., como criar um botão "procurar:" , que busca arqs dentro do pc do usuário? É simples, porém num sei fazer.

Obrigada,

Como faço a parte "enviar" desse formulario utilizando o componente Cdonts?

<FORM name="form" method="post" action="enviar.asp">
<TABLE width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<TR>
<TD height="30" class="texto">Nome:</TD>
<TD>
<INPUT name="nome" type="text" id="nome" value="" size="50">
</TD>
</TR>
<TR>
<TD height="30" class="texto"><Email:</TD>
<TD>
<INPUT name="nome" type="text" id="email" value="" size="50">
</TD>
</TR>
<TR>
<TD height="20" class="texto">Mensagem:</TD>
<TD>
<TEXTAREA name="msg" cols="30" rows="5" id="msg"></TEXTAREA>
</TD>
</TR>
<TR>
<TD colspan="2">
<TABLE width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<INPUT type="submit" name="Submit" value="enviar">

Está dando o seguinte erro:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/sitedufrayer/contato/enviar.asp, line 6

800401f3

Como posso resolver?!?!

O código de envio é esse:


[QUOTE]<%
Response.Buffer=true
Response.clear
Dim strBody,objMail

Set objMail = Server.CreateObject("Persits.MailSender")
objMail.ResetAll

objMail.AddAddress "sdufrayer@sdufrayer.com" 'endereço do e-mail que receberá a mensagem

objMail.Host = "mail.sdufrayer.com" 'endereço smtp

objMail.From = Request("stremail")
objMail.FromName = Request("strnome")
objMail.Subject = "Titulo da Mensagem" 'título da mensagem

strBody = "Dados: " & vbCrLf & vbCrLf & _
"Nome: "& Request("strnome") & vbCrLf & _
"Empresa: "& Request("strempresa") & vbCrLf & _
"E-Mail: "& Request("stremail") & vbCrLf & _
"Telefone: "& Request("strtelefone") & vbCrLf & _
"Assunto: "& Request("strassunto") & vbCrLf & _
"Mensagem: "& Request("strmensagem")
strBody = strBody & "."
objMail.Body = strBody
objMail.Send
Set objMail = nothing

response.redirect "obrigado.asp"
%>[QUOTE]