[aspdebeginners] Fw: Anliegen

Kai Beppler Sat, 30 Mar 2002 08:08:15 -0800

----- Original Message -----

Sent: Saturday, March 30, 2002 5:22 PM

Subject: Anliegen

hallo, Patrick

tut mir leid, das ich dich �ber diese Adresse bel�stige, aberich bekomme nirgends eine Antwort.Ich bin zwar Anf�nger in ASP aber ich versuche mich durchzubeissen.

Ich habe das Betriebssystem W2k Advanced Server SP2 + neuesten Updates mit VBScript5.6.

Nun zu meinem Problem. Es w�re echt klasse, wenn du mir wenigstens helfen k�nntest, bin am verzweifeln.

Ich habe mir den ASP Code von aspheute runtergeladen und alle Einstellungen vorgenommen, aber es funzt nicht.

Es ist ein Fehleler 404 Script.

Fehlermeldung: ActiveX-Komponenten kann kein Object erstellen: 'SMTPsvg.Mailer'

inder Zeile: Set Mailer = CreateObject("SMTPsvg.Mailer")

Hier der ganze Code:

<%
Option Explicit

' � 2000 Patrick A. Lorenz � Berlinerstr. 17b � 78467 Konstanz � Germany
' web: www.p-l.de email: [EMAIL PROTECTED]
' This script is free as long as you keep the above credit

'Konstanten
Const Expr_Start        = "�"
Const Expr_End          = "�"
Const Mail_SMTPHost     = "mail.onlinehome.de"

'MailParser Klasse
Class MailParser

'-----------------------------------------------------------
'Deklarationen
Dim m_Template, m_Variables

'-----------------------------------------------------------
'Neue Variable anlegen
Public Function AddVariable(Name, Content)
If Not IsObject(m_Variables) Then
Set m_Variables = CreateObject("Scripting.Dictionary")
End If
m_Variables(Name) = Content
End Function

'-----------------------------------------------------------
'Das Mail Template
Public Property Get Template()
Template = m_Template
End Property

Public Property Let Template(NewValue)
m_Template = NewValue
End Property

'-----------------------------------------------------------
'Die �ffentliche Methode zum Senden der Mail
Public Function Send()
Dim TmpText, Mailer, Pos, Body, Headers

'Mailer Objekt erzeugen
Set Mailer = CreateObject("SMTPsvg.Mailer")

'Template parsen und in
'Header und Body teilen
TmpText = ParseTemplate
Pos = Instr(TmpText, vbCrLf+vbCrLf)
If Pos > 0 Then
Headers = Left(TmpText, Pos-1)
Body = Mid(TmpText, Pos+4)
End If

'Headers zuweisen
ParseHeaders Headers, Mailer

'Mail-Body zuweisen
Mailer.BodyText = Body

'Mail versenden
Mailer.RemoteHost = Mail_SMTPHost
Send = Mailer.SendMail

Set Mailer = Nothing

End Function

'-----------------------------------------------------------
'Template parsen
Private Function ParseTemplate()
Dim VarName, Varcontent, TmpText, _
StartPos, EndPos, Expr, ExprText

'Variablen lokal deklarieren
For Each VarName In m_Variables
   VarContent = m_Variables(VarName)
   VarContent = Replace(VarContent, Chr(34), Chr(34)+Chr(34))
   Execute VarName & "=" & Chr(34) & VarContent & Chr(34)
Next

'Template einlesen und parsen (private Methode)
TmpText = ReadTemplate
StartPos = 1
Do
   StartPos = InStr(StartPos+Len(ExprText), TmpText, Expr_Start)
   EndPos    = InStr(StartPos+1, TmpText, Expr_End)
   If StartPos>0 And EndPos>0 Then
    Expr     = Mid(TmpText, StartPos+1, EndPos-StartPos-1)
    ExprText = Eval(Expr)
    TmpText = Left(TmpText, StartPos-1) & ExprText & Mid(TmpText, EndPos+1)
   End If
Loop While StartPos>0 And EndPos>0
ParseTemplate = TmpText
End Function

'-----------------------------------------------------------
'Template einlesen (private Methode)
Private Function ReadTemplate()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Template)
ReadTemplate = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing
End Function

'-----------------------------------------------------------
'Headers mit Hilfe der
'Mailer-Methoden zuweisen (private Methode)
Private Function ParseHeaders(Headers, Mailer)
Dim HeadersArray, i, Pos, HeadName, HeadContent

HeadersArray = Split(Headers, vbCrLf)
For i = LBound(HeadersArray) To UBound(HeadersArray)
   Pos = Instr(HeadersArray(i), ": ")
   If Pos > 0 Then
    HeadName = Left(HeadersArray(i), Pos-1)
    HeadContent = Mid(HeadersArray(i), Pos+2)
    Select Case LCase(HeadName)
     Case "to"
      Pos = Instr(HeadContent, "|")
      Mailer.AddRecipient Left(HeadContent, Pos-1), Mid(HeadContent, Pos+1)
     Case "from"
      Pos = Instr(HeadContent, "|")
      Mailer.FromName = Left(HeadContent, Pos-1)
      Mailer.FromAddress = Mid(HeadContent, Pos+1)
     Case "subject"
      Mailer.Subject = HeadContent
     Case "organization"
      Mailer.Organization = HeadContent
     Case Else
      Mailer.AddExtraHeader HeadName & ": " & HeadContent
    End Select
   End If
Next
End Function

'-----------------------------------------------------------
'Warum gibt es eigentlich (noch) kein IIf
'in VBScript? (private Methode)
Private Function IIf(Expression, TruePart, FalsePart)
If CBool(Expression) Then
IIf = TruePart
Else
IIf = FalsePart
End If
End Function

End Class
%>

Bitte hilf mir, danke!

MfG

Kai Beppler

| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

[aspdebeginners] Fw: Anliegen

Antwort per Email an