Avatar billede denny Nybegynder
01. juni 2007 - 22:22 Der er 4 kommentarer og
1 løsning

User servey in excel eller txt format?

Hej alle,

Jeg har bruger for at gem eller modtage en user servey i txt formate eller excel fil? D.v.s jeg har en web site hvor bruger kan besvar sprøgsmål og jeg vil gerne modatage dem som en txt eller i en excel formate. Er der nogen har en god ide, hvor kan find en ekampler?

Mange hilsen
denny
Avatar billede mitbrugernavn Praktikant
02. juni 2007 - 09:18 #1
<%
' når brugeren har udfyldt spørgsmålene og submitter så skriv det til en txtfil -
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
filnavn = "ditdokument.txt" 'sti og navn på dit dokument
set f=fs.OpenTextFile(Server.MapPath(filnavn),2,true)
f.WriteLine "svar på spørgsmål <br>"
f.WriteLine "<br>" & request("navn") & "<br>" & request("adresse")
f.WriteLine "<br>" & request("postnr") & "<br>" & request("bue")
f.Close
set f=Nothing
set fs=Nothing

'herefter kan du sende pr. email til dig selv med filen som vedhæftet dokument

strHost = "mail.ditdomæne.dk"
  Set Mail = Server.CreateObject("Persits.MailSender")
  ' enter valid SMTP host
  Mail.Host = strHost
Mail.From = "mail@ditdomæne.dk"
  Mail.FromName = "fil fra websiden"
Mail.AddAddress "din email adresse"
'Mail.AddAddress email

Mail.IsHTML = True

strPath = Server.MapPath(filnavn)
        Mail.AddAttachment strPath
  ' message overskrift
  Mail.Subject = "Svar på spørgsmål"
  ' message body er det der skal fremsendes
    Mail.Body = "tekst du have til at stå i bodyen af din mail"   
  strErr = ""
  bSuccess = False
  On Error Resume Next ' catch errors
  Mail.Send ' send message
  If Err <> 0 Then ' error occurred
response.write "Der er fejl på mailserveren og dine svar er ikke blevet sendt."
end if

%>
Avatar billede denny Nybegynder
05. juni 2007 - 07:26 #2
Jeg vil lige sprøg 2 tinge:-
den første, det er at for filnavn og sti f.eks. kan jeg gøre sådan:-
filnavn = "www.mitdomain.com/userservey/ditdokument.txt"

og anden er:--
Dvs. jeg skal bare samle alle parameter/comments lige som nedefor:

f.WriteLine "<br>" & request("navn") & "<br>" & request("adresse")
f.WriteLine "<br>" & request("postnr") & "<br>" & request("bue")
f.WriteLine "<br>" & request("comments1") & "<br>" & request("comments2")
bla bla....


Please help
Avatar billede mitbrugernavn Praktikant
05. juni 2007 - 09:02 #3
hvis filen du skriver til ligger i samme mappe som den fil der skriver så kan du gøre således: (husk du skal oprette en fil med navnet)

filnavn = "ditdokument.txt"

hvis det ligger f.eks. en mappe længere oppe i herakiet så filnavn = "../ditdokument.txt" - når du arbejder på dit eget websted behøver du ikke www.domænenavn.com foran, men kører den direkte sti.

Og det er gangske korrekt med hensyn til opsamling af parameterne
Avatar billede denny Nybegynder
05. juni 2007 - 14:34 #4
ok!
men hvad med hvis jeg ved kun gem i server og hvis jeg har kun en fil navn, bliver ikke overskrivet. Men jeg har bruge for at gem all servery i en folder i server, faktisk skal ikke send mail som vedhæfftet
Avatar billede denny Nybegynder
05. juni 2007 - 18:25 #5
Hej igen,
jeg har prøve at anvender code men få denne fejl, har du nogen ide??
Error Type:
Server object, ASP 0177 (0x800401F3)
System message, messageid = 0x800401f3
.... line 27,code på line 27er,Set Mail = Server.CreateObject("Persits.MailSender")
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester