Hej,
Jeg har et problem med en asp upload, hvor kunden skal have mulighed for at vedhæfte en fil.
Jeg har følgende kode:
<%
if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
if request.form("adresse") = "" Then
Response.write "Skriv venligst din adresse"
else
if request.form("postnr_og_by") = "" Then
Response.write "Skriv venligst dit postnr og din by"
else
if request.form("telefonnummer") = "" Then
Response.write "Skriv venligst dit telefonnummer"
else
if request.form("mail") = "" Then
Response.write "Skriv venligst din email adresse"
else
if request.form("kommentar") = "" Then
Response.write "Skriv venligst en kommentar"
else
if request.form("cv") = "" Then
Response.write "Vedhæft venligst dit cv"
else
'Brugerens bekræftelses-e-mail:
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "HOST"
Mailer.AddRecipient request.Form("navn"), request.Form("mail")
Mailer.Subject = "Jobsøger - Konsulent"
Mailer.FromName = "Datacompagniet A/S"
Mailer.FromAddress = "MAIL"
Mailer.ReplyTo = "MAIL"
Mailer.ContentType = "text/html"
msg = "<html><body><span style=""font-family: Calibri, Verdana; font-size: 14px; color: #333333;"">"
msg = msg & "Kære " & request.Form("navn") & "<br><br>"
msg = msg & "Vi har modtaget din uopfordrede ansøgning.<br><br>"
msg = msg & "Som du ved, så har vi ingen åbne stillinger i øjeblikket, men så snart vi har screenet din ansøgning vil vi melde tilbage om din profil passer til datacompagniet.<br><br>"
msg = msg & "Passer din profil, vil vi gemme den og tillade os at tage kontakt, når en stilling bliver åben.<br><br>"
msg = msg & "Tak for du har valgt at søge arbejde hos datacompagniet.<br><br>"
msg = msg & "<strong>Med venlig hilsen</strong><br>Thomas Larsen<br>Teknisk direktør<br><br><img src=""http://ringstedtennisklub.dk/datacompagniet/Nyweb/Images/Logo.png"">"
msg = msg & "</span></body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2
if not Mailer.SendMail then
Response.Write "Email-bekræftelsen blev ikke sendt... Fejlen er: <br>"
Response.Write Mailer.Response
else
Response.Write ""
Response.Write "" & replace(msg,vbCrLf,"<br>")
end if
Set Mailer = Nothing
msg = ""
' Din egen e-mail:
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "HOST"
Mailer.AddRecipient "Datacompagniet A/S","MAIL"
Mailer.Subject = "Jobsøger - Konsulent"
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "MAIL"
Mailer.ContentType = "text/html"
msg = "<html><body><span style=""font-family: Calibri, Verdana; font-size: 14px; color: #333333;"">"
msg = msg & "Kære Jesper<br><br>"
msg = msg & "En jobsøger som konsulent har kontaktet dig med følgende oplysninger:<br><br>"
msg = msg & "<strong>Navn: </strong><br>" & request.Form("navn") & "<br><br>"
msg = msg & "<strong>Adresse: </strong><br>" & request.Form("adresse") & "<br><br>"
msg = msg & "<strong>Postnr og by: </strong><br>" & request.Form("postnr_og_by") & "<br><br>"
msg = msg & "<strong>Telefonnummer: </strong><br>" & request.Form("telefonnummer") & "<br><br>"
msg = msg & "<strong>E-mail adresse: </strong><br>" & request.Form("mail") & "<br><br>"
msg = msg & "<strong>Kommentar: </strong><br>" & Replace(request.Form("kommentar"), vbCrLf, "<br>") & "<br><br>"
msg = msg & "Med venlig hilsen<br><strong>Datacompagniet</strong><br><br><img src=""http://ringstedtennisklub.dk/datacompagniet/Nyweb/Images/Logo.png"">"
msg = msg & "</span></body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2
if not Mailer.SendMail then
Response.Write "Email til mig blev ikke sendt... Fejlen er: <br>"
Response.Write Mailer.Response
end if
Set Mailer = Nothing
end if
end if
end if
end if
end if
end if
end if
%>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Savevirtual("/log")
Response.Write Count & " file(s) uploaded to mappenavn"
'Luk Objectet
Set Upload = nothing
%>Problemet er at jeg får denne fejl meddelse:
Skriv venligst dit navn
Persits.Upload.1 error '800a0001'
Unspecified error
/Datacompagniet/Nyweb/Jobs_konsulent.asp, line 148
Linje 148 ser sådan ud: Count = Upload.Savevirtual("/log")
Jeg tester den hos dandomain, men når hjemmesiden er færdig skal det ligge hos wannafind.
Håber der er nogen der kan hjælpe.
På forhånd tak!
Indlæg senest redigeret d. 15.10.2010 15:25 af Bruger #14619