php-ს შემცვლელი, ვაი რა არ ხდება პარამეტრები

[alchemist]

მოკლედ ხალხო რაშია საქმე:
საიტზე გავაკეთე რეგისტრაციის ფორმა, რომელსაც php სკრიპტის დახმარებით უნდა გაეგზავნა ფორმაში შეტანილი მონაცემები მითითებულ e-mail-ზე. მაგრამ მოხდა ისე, რომ სერვერს, რომელზეც ეს საიტი დაიდო არ აქვს php-ს მხარდაჭერა. ესაა "თსუ"-ს სერვერი და პრინციპში არცაა გასაკვირი (IMG:style_emoticons/default/smile.gif)
მოკლედ პრობლემა ასეთია: რა ვქნა, რითი შევცვალო php სკრიპტი
მითხრეს რომ შემიძლია გამოვიყენო "asp" მაგრამ ეგ რა არის და რასთან ერთად იჭმევა არ ვიცი

[alchemist]

კიდევ ერთი პრობლემა. ავაწყვე სკრიპტი ტემპლეიტის მიხედვით. სკრიპტს აქვს შემდეგი სახე:

პროგრამული კოდი

<%
DIM strTitle, strFirstname, strLastName, strPatronymic, strPosition, strNameoftheinstitution, strCountry, strEmail, strPhone, strFax, strPresntationtitle, strSession, Mail
strTitle=request.form("title")
strFirstname=request.form("firstname")
strLastName=request.form("lastname")
strPatronymic=request.form("patronymic")
strPosition=request.form("position")
strNameoftheinstitution=request.form("institution")
strCountry=request.form("country")
strEmail=request.form("email")
strPhone=request.form("phone")
strFax=request.form("fax")
strPresntationtitle=request.form("presentationtitle")
strSession=request.form("session")

DIM Mail, strMsgHeader
Set Mail = Server.CreateObject("???????????")
Mail.Host = "??????????"    
Mail.From = strEmail
Mail.AddAddress "????@tsu.ge"            
Mail.AddCC "????@tsu.ge"
Mail.Subject = "ICSP: Online Form"
strMsgHeader = "????????????????????." & vbCrLf & vbCrLf
Mail.Body=strMsgHeader & "email: " & strEmail & vbCrLf & _
"First Name: " & strFirstName & vbCrLf & _
"Last Name: " & strLastName & vbCrLf & _
"Patronymic: " & strPatronymic & vbCrLf & _
"Position: " & strPosition & vbCrLf & _
"Name of the institution: " & strNameoftheinstitution & vbCrLf & _
"Country: " & strCountry & vbCrLf & _
"Email: " & strEmail & vbCrLf & _
"Phone: " & strPhone & vbCrLf & _
"Fax: " & strFax & vbCrLf & _
"Session: " & strSession & vbCrLf & _
"Presntationtitle: " & vbCrLf & strPresntationtitle
On Error Resume Next
Mail.Send
Set Mail = Nothing
IF Err <> 0 THEN
Response.Write "There has been an error and your message could not be sent through email. Please try once again or try again later. " & Err.Description
END IF
%>

<P>
<%
Response.Write strFirstName & ",<br>"
Response.Write "Your message has been successfully sent."
%>,</P>

და გამოაქვს ასეთი ერორი

პროგრამული კოდი

Error Type:
Microsoft VBScript compilation (0x800A0411)
Name redefined
/test/send.asp, line 16, column 4
DIM Mail, strMsgHeader
---^

მე-16 ხაზი ესაა "DIM Mail, strMsgHeader"
ვერანაირად ვერ გავიგე რისი ბრალია და რა ხდება. იქნებ ვინმემ იცით რა არის შეცდომით plz help. sos....