<% Dim myVote Set myVote = New Vote With myVote .VoteID = "1" .ResultPage = "umfrage.asp" .Vote_Text_Save = "Antwort speichern" .Vote_Text_Result = "Ergebniss ansehen" Response.Write .ShowVoteForm End With Set myVote = Nothing %>