Ændring af upload-komponent i formular
Hej,Jeg fik for en uges tid siden glimrende hjælp til nedenstående formular. Nu vil jeg så høre om der er nogen der kan ændre forumlaren således, at den som upload-komponent bruger ASP Smart Upload (http://www.aspsmart.com/) i stedet for ASP Upload (http://www.aspupload.com/)
Koden kan ses her:
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set Upload = Server.CreateObject("Persits.Upload.1")
'ret brugernavn til dit brugernavn hos azero:
Count = Upload.Save ("d:\Webfiler\test\db\")
if Count>0 then
set file1=Upload.Files("file1")
end if
navn = Upload.form("navn")
email = Upload.form("email")
Set JMail = Server.CreateObject("JMail.SMTPMail")
'REt DOMÆNE til dit domæne navn:
JMail.ServerAddress = "post.tele.dk"
JMail.Sender = "post@test.dk"
JMail.Subject = "Måske en fil til dig"
JMail.AddRecipient "post@test.dk"
JMail.Body = "En mail fra : " & navn & " og brugeren har denne email adresse : " & email
if Count>0 then
JMail.AddAttachment (file1.path)
end if
JMail.Execute
Set JMail = Nothing
if count>0 then
Upload.DeleteFile (file1.path)
end if
Set file1=nothing
set upload=nothing
Response.Write "Mail sendt."
end if
%>
<html>
<head></head>
<body>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST" ENCTYPE="multipart/form-data">
<br>Navn: <input type="text" name="navn" size="20">
<br>Fra (email): <input type="text" name="email" size="20">
<br>Fil: <input type="file" name="file1" size="20">
<br><input type="submit" name="send" value="send">
</form>
</body>
</html>
På forhånd tak.
/cholm
