This project has moved. For the latest updates, please go here.

Asp FORM to Excel

Aug 26, 2010 at 7:46 AM
Edited Aug 26, 2010 at 7:48 AM
I have this Asp form it is work fine...the information from the form.... is sent to an email...I am trying that the information will go also the excel file...

I dont want that other people will see this excel file only me

i tried to do somthing but all the time the excel is open to me...

...how i can do it that the users will see only the application form and the information will go to excel file ....each info to his column....?
thank you
HERE IS THE CODE
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" -->

<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<!--UB sendmail( my_name, my_family, pre_name, zehot, MyWork, Tafkid, phone, MobilePhone, MyAddress, MyYear, email, hazaot)
Dim objCDO
Dim iConf
Dim Flds

Set myMail=CreateObject("CDO.Message")
myMail.Subject=""
myMail.From = request.form("email")
myMail.To=""
myMail.BCC = ""
myMail.BodyPart.Charset = "windows-1255"
		myMail.TextBody = 	"שלום רב, "  & vbCrLf &_
							"" & vbCrLf & vbCrLf &_
							"שם פרטי: " & request.form("my_name") & vbCrLf &_
							"שם משפחה: " & request.form("my_family") & vbCrLf &_
							"שם משפחה בזמן לימודיך: " & request.form("pre_name") & vbCrLf &_
							"מספר ת.ז : " & request.form("zehot") & vbCrLf &_
							"מקום עבודה: " & request.form("MyWork") & vbCrLf & _
							"תפקיד : " & request.form("Tafkid") & vbCrLf & _
							"טלפון בבית: " & request.form("phone") & vbCrLf &_
							"טלפון נייד: " & request.form("MobilePhone") & vbCrLf &_
							"כתובת למשלוח דואר: " & request.form("MyAddress") & vbCrLf & _
							"תחילת הלימודים: " & request.form("MyYear") & vbCrLf &_
							"דואר אלקטרוני עבודה: " & request.form("email") & vbCrLf & _
							"מקום להצעות: " & request.form("hazaot") & vbCrLf & _
							"" & vbCrLf &_
							"(c) " & "מכללת שערי משפט"
myMail.Configuration.Fields.Item _
("cdoSendUsingMethod")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("cdoSMTPServer") _
=""
'Server port
myMail.Configuration.Fields.Item _
("cdoSMTPServerPort") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

END SUB
my_name = TRIM( Request.Form( "my_name") )
my_family = TRIM( Request.Form( "my_family") )
pre_name = TRIM( Request.Form( "pre_name" ) )
zehot = TRIM( Request.Form( "zehot" ) )
MyWork = TRIM( Request.Form( "MyWork" ) )
Tafkid = TRIM( Request.Form( "Tafkid") )
phone = TRIM( Request.Form( "phone") )
MobilePhone = TRIM( Request.Form( "MobilePhone" ) )
MyAddress = TRIM( Request.Form( "MyAddress" ) )
MyYear = TRIM( Request.Form( "MyYear") )
email = TRIM( Request.Form( "email") )
hazaot = TRIM( Request.Form( "hazaot") )
submmited = TRIM( Request.Form( "submmited" ) )
If submmited = "1" THEN
	 sendMail my_name, my_family, pre_name, zehot, MyWork, Tafkid, phone, MobilePhone, MyAddress, MyYear, email, hazaot

'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
Response.redirect "confirmation.html"
' Any existing page can be used for the response redirect 
method
END IF-->
<!--CTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt-->





<!--
.style1 {
	color: #006782;
	font-weight: bold;
	font-family: Arial, Helvetica, sans-serif;
}
.style4 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 14px; }
-->

<!-- / message --><!-- attachments -->

Coordinator
Aug 26, 2010 at 4:04 PM

What has this to do with the community bridge?