Server.CreateObject Failed
jeg har et system det bruger Server.CreateObject, men serveren understøtter ikke Server.CreateObject. Er der nogen der har nogle forslag til hvordan jeg får det til at virke?Serveren understøtter aspmail.
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
body = "Hej " & textfield4 & (" ") & textfield5 & vbCrLf & vbCrLf
body = body & "Dit brugernavn er: " & textfield & vbCrLf
body = body & "Din adgangskode er: " & textfield2 & vbCrLf & vbCrLf
body = body & "Dit aktiverings nummer er: " & p_id & vbCrLf & vbCrLf
body = body & "Du har 24 timer til at aktiver din profil. Herefter vil dig tilmelding blive slettet i system og du er derefter nød til at lave en oprettelse." & vbCrLf & vbCrLf
body = body & weburl & "activate.asp?activate=" & p_id & vbCrLf
Mail.Host = emailhost ' Specify a valid SMTP server
Mail.From = webemail ' Specify sender's address
Mail.FromName = websitename ' Specify sender's name
Mail.AddAddress textfield6
Mail.Subject = "Aktivering af din profil"
Mail.Body = body
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Fejl: " & Err.Description
End If
Set Mail = Nothing
rsdup.close
set rsdup = nothing
conn.close
set conn = nothing
MM_conn_STRING.close
set MM_conn_STRING = nothing
set SQL = nothing
set rsReg = nothing