cosa sbaglio in questo script di invio mail da form ?

non funge e non da errori...pagina bianca

Codice PHP:
<%
Dim MiaMail, strIp
Set MiaMail = CreateObject("CDONTS.Newmail")
strIp = Request.ServerVariables("REMOTE_ADDR")


MiaMail.From = request.form("Scuola")
MiaMail.From = request.form("Tipo")
MiaMail.From = request.form("Nome1")
MiaMail.From = request.form("Cognome1")
MiaMail.From = request.form("Telefono")
MiaMail.From = request.form("Email")
MiaMail.From = request.form("Nome2")
MiaMail.From = request.form("Cognome2")
MiaMail.From = request.form("Eta")
MiaMail.From = request.form("Citta")
MiaMail.From = request.form("Amico1")
MiaMail.From = request.form("Amico2")
MiaMail.From = request.form("Amico3")
MiaMail.From = request.form("Squadracuore")
MiaMail.From = request.form("Squadrarivale")
MiaMail.From = request.form("Calciatore")
MiaMail.From = request.form("Dedica")

MiaMail.To = "stanislao.montagna@tin.it"
MiaMail.Subject = "Richiesta libro"
MiaMail.Body = vbCrlf &_
vbCrlf &_
("Questa e-mail è stata inviata il: ") & Now() & vbCrlf &_
("da: ") & ("Nome e Cognome: ") & request.form("Nome1") & " " &request.form("Cognome1") & vbCrlf &_
("Telefono: ") & request.form("Telefono") & vbCrlf &_
("Interessato a: ") & request.form("Tipo") & vbCrlf &_
("Scuola: ") & request.form("Scuola") & vbCrlf &_
("Email: ") & request.form("Email") & vbCrlf &_
("Nome: ") & request.form("Nome2") & vbCrlf &_
("Cognome: ") & request.form("Cognome2") & vbCrlf &_
("Età: ") & request.form("eta") & vbCrlf &_
("Città: ") & request.form("citta") & vbCrlf &_
("Amico1: ") & request.form("Amico1") & vbCrlf &_
("Amico2: ") & request.form("Amico2") & vbCrlf &_
("Amico3: ") & request.form("Amico3") & vbCrlf &_
("Squadra del cuore: ") & request.form("Squadracuore") & vbCrlf &_
("Squadra rivale: ") & request.form("Squadrarivale") & vbCrlf &_
("Calciatore: ") & request.form("Calciatore") & vbCrlf &_
("Dedica: ") & request.form("Dedica") & vbCrlf &_


("l'indirizzo IP è: ") & strIp & vbCrlf
'("data ed ora di invio: ") & ("Now()") & vbCrlf
MiaMail.Send
Set MiaMail = Nothing
%> 
grazie infinite