Fel: klass her ej definierats

4 svar · 291 visningar · startad av peppar 22 mars 2003

pepparMedlem sedan dec. 2001873 inlägg

Frågan22 mars 2003 10:32#1

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01FA)
Klass har inte definierats: 'TestClass'
/inme/medlemmar_nyinsert.asp, line 107

Dim myTest
[b]107-->[/b]Set myTest = New TestClass

classfilen:

Class sendMail
	
	Sub AddPost(strMailInfo)
		Set SMTP 				= Server.CreateObject("CDONTS.NewMail")
		SMTP.From 				= "XXX"
		SMTP.To					= ""& Request.Form("usrEmail") &""
		SMTP.Subject 			= "Välkommen "&Request.Form("usrFornamn")&" "& Request.Form("usrEfternamn") &""
  

		body = body & osv, osv, osv, osv
 
 		SMTP.Body = body
		SMTP.BodyFormat 		= CdoBodyFormatText
		SMTP.MailFormat 		= CdoMailFormatText
		SMTP.Importance 		= CdoNormal
		SMTP.Send
		Set SMTP = Nothing
	End Sub
   End Function
End Class

Vad har jag missat?

SebbeMedlem sedan jan. 20032 285 inlägg

22 mars 2003 10:35#2

Set myTest = New sendMail

pepparMedlem sedan dec. 2001873 inlägg

22 mars 2003 10:36#3

:r Såg det jag med, precis nu! *dum* Tack! :)

PatrikBMedlem sedan mars 20002 836 inlägg

22 mars 2003 11:02#4

Detta hära ser ju väldigt konstigt ut:

	End Sub
   End Function
End Class

en annan sak.
Personligen tycker jag att alla metoder och egenskaper i en klass ska definieras antingen Public eller Private ..... Public Sub AddPost(....

cya,
PatrikB

pepparMedlem sedan dec. 2001873 inlägg

22 mars 2003 16:21#5

PatrikB--> jag redigerade bort en Function när jag postade inlägget här, självklart skall det vara:

Class sendMail
	
	Sub AddPost(strMailInfo)
	End Sub

End Class