<% 
	option explicit 
	Response.Buffer = true
	dim conn
	dim ssql
	dim rs
	dim sEmail
	dim objMail
	dim MessageBody
%>
<!-- #include file="../../connection.inc" -->
<%
	sEmail = Request.Form("company_email")
	ssql = "select * from tbl_company where company_email ='" & sEmail & "'"
	set rs = server.CreateObject("ADODB.Recordset")
	rs.Open ssql,conn,3,3
	if not rs.EOF then
		MessageBody = "Your account info ... " & vbcrlf
		MessageBody = MessageBody & "-----------------------------------------------------"  & vbcrlf
		MessageBody = MessageBody & "USERNAME : " & rs.Fields("company_name") & vbcrlf
		MessageBody = MessageBody & "PASSWORD : " & rs("company_password") & vbcrlf
		MessageBody = MessageBody & vbcrlf & vbcrlf
		MessageBody = MessageBody & "-----------------------------------------------------"

		dim iMsg
		dim iConf
		dim Flds
		set iMsg = CreateObject("CDO.Message")
		set iConf = CreateObject("CDO.Configuration")
		set Flds = iConf.Fields
		Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
		Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
		Flds.Update
		set iMsg.Configuration = iConf
		iMsg.To = sEmail
		iMsg.From = Application("Application_Support_Mail")
		iMsg.Subject = "Support"
		iMsg.TextBody = MessageBody
		iMsg.Send
	end if
	rs.close
	conn.Close
	set rs = nothing
	set conn = nothing
	Response.Redirect "index.asp"
%>