<% Dim iSend iSend = 0 If Request.ServerVariables ("REQUEST_METHOD") = "POST" Then Dim strPath, html strPath = Server.MapPath ("\") & "\model_recruit_images" Dim objUpload, objMail Set objUpload = Server.CreateObject ("Persits.Upload") Set objMail = Server.CreateObject ("CDONTS.NewMail") '// Save the file uploaded objUpload.OverwriteFiles = False objUpload.Save strPath '/** ' * email body here ' */ html = html & "Name: " & objUpload.Form("txtName") & "
" & _ "Tel no.: " & objUpload.Form("txtTel") & "
" & _ "Email: " & objUpload.Form ("txtEmail") & "
" & _ "Height: " & objUpload.Form("txtHeight") & "
" & _ "Acceptable Sexy Level: " & objUpload.Form("txtSexyLevel") & "
" & _ "Photo Type: " & objUpload.Form("txtPhotoType") & "
" & _ "Other: " & objUpload.Form("txtOther") & "
" & _ "Photo: " For Each File in objUpload.Files html = html & "http://www.sunsphoto.net/model_recruit_images/" & File.FileName & "" Next '/** ' * email mail program ' */ objMail.To = "sun@sunsphoto.net" objMail.From = objUpload.Form("txtName") & "<" & objUpload.Form("txtEmail") & ">" objMail.Subject = "模特兒招募" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = html objMail.Send Set objMail = Nothing Set objUpload = Nothing iSend = 1 End If %> sun's photo workshop

Model Recruit 模特兒招募


妳有興趣成為模特兒,與我合作拍攝照片嗎?

為了答謝妳,每次拍攝的照片均會送給妳。

請填妥以下的表格給我吧.

 
<% If iSend = 0 Then %>

Model Recruit Form 模特兒招募表格
姓名 Name:
電話 Tel No:
E-mail Address:
 (Required)
身高Height:

可接受性感程度:
希望拍攝照片類型:
其他資料Message:

個人照片

(附照片者優先處理)
<% Else %> 多謝登記!! <% End If%>