"Michael Sørensen" <webmaster_m-s SNABEL-A stofanet.dk> skrev i en
meddelelse news:41f05b0e$0$23058$ba624c82@nntp05.dk.telia.net...
> Hej.
>
> Jeg har fundet et script til et login system på nettet. Jeg har lagt det
> ud som test på nettet herunder
>
>
http://www.skindbeni.dk/test/asplogin/default.asp
>
> Jeg kan sagtens logge ind som admin med brugernavnet password, men jeg kan
> stort set ikke andet.
>
> Hvis jeg prøver at registrere et nyt brugernavn, få tilsendt email pga.
> glemt password og flere af mulighederne efter login, så kommer i alle
> tilfælde denne fejlbesked.
> ADODB.Fields error '800a0ea5'
>
> Fields update failed. For further information, examine the Status property
> of individual field objects.
>
> /test/asplogin/register.asp, line 197
>
> ---------
> Jeg ved godt, at det ikke fortæller jeg ret meget - især fordi jeg ikke
> kan identificere hvilken linie det er pga. flere inkluderede filer - men
> jeg håber, at fejlmeddelelsen siger en af jer noget om, hvad jeg skal lede
> efter.
Uden at være sikker, så er jeg nået frem til, at det formentligt skyldes, at
login-systemet er (/kan) sættes op til at udsende mails ved bekræftelse af
en registrering eller ved glemte passwords.
Men det ser ud til at være noget bøvlet noget, når jeg kigger på koderne, og
har læst, at det kræver noget, der hedder CDOsys
Nedenstående kode er i det afsnit om mails. Jeg er helt på bar bund omkring
dette emne. Har googlet lidt på nettet, men er ikke blevet meget klogere
(endnu).
--------
Dim objCDOSYSCon
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Set and update fields properties
'Out going SMTP server
objCDOSYSCon.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpserver")
= rsGetEmail("emailserver")
'SMTP port
objCDOSYSCon.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
'CDO Port
objCDOSYSCon.Fields("
http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
'Timeout
objCDOSYSCon.Fields("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
'Who the e-mail is from
objCDOSYSMail.From = rsGetEmail("siteemail")
'Who the e-mail is sent to
objCDOSYSMail.To = rsGetPassword("email")
'The subject of the e-mail
objCDOSYSMail.Subject = "Lost Password"
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
objCDOSYSMail.HTMLBody = htmlBody
'Send the e-mail
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
-----------
Nogle gode forslag?
CDOsys - er det påkrævet, at det er på det webhotel, som jeg har, eller
hvordan fungerer det, da UnoEuro så vidt jeg kan se ikke har et
asp-komponent, der hedder CDOsys