redirect + enviar.asp = formulario enviado para emai

[Luan Messias 0]

Bom dia !

 

estou com uma duvida que não sei como resolver

tenho um script de cadastro de alunos com niveis de acesso

tudo funcionando perfeitamente.

 

gostaria de saber se ao cadastrar posso dar um redirect para uma pagina que o script pegue

todos os dados digitados no form e envie para o email digitado no mesmo.

 

eu ja tentei usar na mesma pagina mas sem sucesso toda vez que tento envolver o script de envio de

email no script do form a pagina nem abre.

 

alguém sabe um script que possa pegar estes dados recém digitados e envia-los para a pessoa que se cadastrou ?

pode ser tanto request.form ou os dados do banco de dados

[Ted k' 126]

nem precisa redirect, é só fazer o script do email abaixo do de cadastramento, tem vários na net, veja o componente que sua hospedagem tem suporte e faça uma busca aqui no fórum!

[Luan Messias 0]

eu ate achei algums scripts tentei colocar junto e nao deu certo denovo

vou postar o codigo você pode me dizer aonde posso adicionar o script de envio de email ?

( o script ta gigante http://forum.imasters.com.br/public/style_emoticons/default/upset.gif )

 

des de ja muito obrigado

 

 

 

 

<!-- #include file="i_utils2.asp" -->

<%

check_security(4)

%>

<%

dim dtInserted

dim dtModified

dim user_id

dim user_name

dim f_name

dim l_name

dim email

dim password

dim addr1

dim addr2

dim city

dim state

dim postalcode

dim country

dim phone

dim fax

dim notes

dim accesslevel

dim edit_users_sql

dim edit_link

dim view_users_sql

 

sub request_edit_users

''' request expected input parameters for this form

dtInserted = request("dtInserted")

dtModified = request("dtModified")

user_id = request("user_id")

user_name = request("user_name")

f_name = request("f_name")

l_name = request("l_name")

email = request("email")

password = request("password")

addr1 = request("addr1")

addr2 = request("addr2")

city = request("city")

state = request("state")

postalcode = request("postalcode")

country = request("country")

phone = request("phone")

fax = request("fax")

notes = request("notes")

accesslevel = request("accesslevel")

end sub

sub request_view_users

''' request expected input parameters for this form

edit_link = request("edit_link")

user_id = request("user_id")

user_name = request("user_name")

f_name = request("f_name")

l_name = request("l_name")

email = request("email")

city = request("city")

state = request("state")

postalcode = request("postalcode")

country = request("country")

dtInserted = request("dtInserted")

accesslevel = request("accesslevel")

end sub

 

sub validate_edit_users

''' request and validate data entered from this form

dtInserted = trim(request("dtInserted"))

if dtInserted <> "" AND (not isdate(dtInserted)) then

error_list.add "564519date"," must be a valid date (MM/DD/YY)."

b_error = true

end if

dtModified = trim(request("dtModified"))

if dtModified <> "" AND (not isdate(dtModified)) then

error_list.add "564520date"," must be a valid date (MM/DD/YY)."

b_error = true

end if

user_id = trim(request("user_id"))

user_name = trim(request("user_name"))

if user_name = "" then

error_list.add "564505","username must be specified."

b_error = true

end if

f_name = trim(request("f_name"))

l_name = trim(request("l_name"))

email = trim(request("email"))

if email = "" then

error_list.add "564508","email must be specified."

b_error = true

end if

password = trim(request("password"))

if password = "" then

error_list.add "564509","password must be specified."

b_error = true

end if

addr1 = trim(request("addr1"))

addr2 = trim(request("addr2"))

city = trim(request("city"))

state = trim(request("state"))

postalcode = trim(request("postalcode"))

country = trim(request("country"))

phone = trim(request("phone"))

fax = trim(request("fax"))

notes = trim(request("notes"))

accesslevel = trim(request("accesslevel"))

end sub

sub validate_view_users

''' request and validate data entered from this form

edit_link = trim(request("edit_link"))

user_id = trim(request("user_id"))

user_name = trim(request("user_name"))

f_name = trim(request("f_name"))

l_name = trim(request("l_name"))

email = trim(request("email"))

city = trim(request("city"))

state = trim(request("state"))

postalcode = trim(request("postalcode"))

country = trim(request("country"))

dtInserted = trim(request("dtInserted"))

if dtInserted <> "" AND (not isdate(dtInserted)) then

error_list.add "564531date","added must be a valid date (MM/DD/YY)."

b_error = true

end if

accesslevel = trim(request("accesslevel"))

end sub

 

 

sub db_select_edit_Users

sql = "SELECT " & _

"dtInserted, " & _

"dtModified, " & _

"user_id, " & _

"user_name, " & _

"f_name, " & _

"l_name, " & _

"email, " & _

"password, " & _

"addr1, " & _

"addr2, " & _

"city, " & _

"state, " & _

"postalcode, " & _

"country, " & _

"phone, " & _

"fax, " & _

"notes, " & _

"accesslevel FROM Users" & _

" WHERE " & _

"Users.user_id = " & to_sql(user_id,"number") & ""

on error resume next

set rs = cn.Execute(sql)

if err.number <> 0 then

b_error = true

error_list.add "select_data_edit_Users", "The data selection failed. " & err.description

elseif rs.EOF then

b_results = false

msg_list.add "select_data_edit_Users", "The record was removed from the database."

else

dtInserted = rs("dtInserted")

dtModified = rs("dtModified")

user_id = rs("user_id")

user_name = rs("user_name")

f_name = rs("f_name")

l_name = rs("l_name")

email = rs("email")

password = rs("password")

addr1 = rs("addr1")

addr2 = rs("addr2")

city = rs("city")

state = rs("state")

postalcode = rs("postalcode")

country = rs("country")

phone = rs("phone")

fax = rs("fax")

notes = rs("notes")

accesslevel = rs("accesslevel")

end if

rs.Close

on error goto 0

end sub

sub db_insert_edit_Users

sql = "INSERT INTO Users" & _

"(" & _

"user_type_id," & _

"user_name," & _

"f_name," & _

"l_name," & _

"email," & _

"[password]," & _

"addr1," & _

"addr2," & _

"city," & _

"state," & _

"postalcode," & _

"country," & _

"phone," & _

"fax," & _

"notes," & _

"selfemp," & _

"dtInserted," & _

"dtModified," & _

"accesslevel," & _

"mailing_list," & _

"util_val," & _

"util_flag" & _

") VALUES (" & to_sql(user_type_id,"number") & "," & _

"" & to_sql(user_name,"text") & "," & _

"" & to_sql(f_name,"text") & "," & _

"" & to_sql(l_name,"text") & "," & _

"" & to_sql(email,"text") & "," & _

"" & to_sql(password,"text") & "," & _

"" & to_sql(addr1,"text") & "," & _

"" & to_sql(addr2,"text") & "," & _

"" & to_sql(city,"text") & "," & _

"" & to_sql(state,"text") & "," & _

"" & to_sql(postalcode,"text") & "," & _

"" & to_sql(country,"text") & "," & _

"" & to_sql(phone,"text") & "," & _

"" & to_sql(fax,"text") & "," & _

"" & to_sql(notes,"text") & "," & _

"" & to_sql(selfemp,"text") & "," & _

"" & to_sql(now,"date") & "," & _

"" & to_sql(now,"date") & "," & _

"" & to_sql(accesslevel,"number") & "," & _

"" & to_sql(mailing_list,"number") & "," & _

"" & to_sql(util_val,"number") & "," & _

"" & to_sql(util_flag,"number") & ")" & _

""

'response.write sql

on error resume next

cn.Execute(sql)

if err.Number <> 0 then

b_error = true

error_list.add "db_insert_edit_Users" & err.Number ,"The database insert failed. " & err.Description

else

set rs = cn.Execute("SELECT @@IDENTITY")

user_id = rs(0)

rs.Close

msg_list.add "db_insert_edit_Users","The database insert was successful." end if

on error goto 0

end sub

sub db_update_edit_Users

sql = "UPDATE Users SET " & _

"user_type_id = " & to_sql(user_type_id,"number") & ", " & _

"user_name = " & to_sql(user_name,"text") & ", " & _

"f_name = " & to_sql(f_name,"text") & ", " & _

"l_name = " & to_sql(l_name,"text") & ", " & _

"email = " & to_sql(email,"text") & ", " & _

"[password] = " & to_sql(password,"text") & ", " & _

"addr1 = " & to_sql(addr1,"text") & ", " & _

"addr2 = " & to_sql(addr2,"text") & ", " & _

"city = " & to_sql(city,"text") & ", " & _

"state = " & to_sql(state,"text") & ", " & _

"postalcode = " & to_sql(postalcode,"text") & ", " & _

"country = " & to_sql(country,"text") & ", " & _

"phone = " & to_sql(phone,"text") & ", " & _

"fax = " & to_sql(fax,"text") & ", " & _

"notes = " & to_sql(notes,"text") & ", " & _

"selfemp = " & to_sql(selfemp,"text") & ", " & _

"dtInserted = " & to_sql(dtInserted,"text") & ", " & _

"dtModified = " & to_sql(dtModified,"text") & ", " & _

"accesslevel = " & to_sql(accesslevel,"number") & ", " & _

"mailing_list = " & to_sql(mailing_list,"number") & ", " & _

"util_val = " & to_sql(util_val,"number") & ", " & _

"util_flag = " & to_sql(util_flag,"number") & " WHERE " & _

"user_id = " & user_id & ""

'response.write sql

on error resume next

cn.execute(sql)

if err.number <> 0 then

b_error = true

error_list.add "db_update_edit_Users" & err.Number ,"The database update failed. " & err.Description

else

msg_list.add "db_update_edit_Users" & user_id,"The database update was successful."

end if

on error goto 0

end sub

sub db_delete_edit_Users

sql = "DELETE FROM Users" & _

" WHERE " & _

"user_id = " & to_sql(user_id,"number") & ""

'response.write sql

on error resume next

cn.Execute(sql)

if err.number <> 0 then

b_error = true

error_list.add "db_delete_edit_Users" & err.Number ,"The database deletion failed. " & err.Description

else

msg_list.add "db_delete_edit_Users","The record was removed."

end if

on error goto 0

end sub

sub db_select_view_Users

view_Users_sql = "SELECT " & _

"user_id, " & _

"user_name, " & _

"f_name, " & _

"l_name, " & _

"email, " & _

"city, " & _

"state, " & _

"postalcode, " & _

"country, " & _

"dtInserted, " & _

"accesslevel FROM Users" & _

""

if request("sortby") <> "" AND inStr(lcase(view_Users_sql),"order by") = 0 then view_Users_sql = view_Users_sql + " ORDER BY " & request("sortby")

end sub

sub db_delete_view_Users

sql = "DELETE FROM " & _

""

'response.write sql

on error resume next

cn.Execute(sql)

if err.number <> 0 then

b_error = true

end if

on error goto 0

end sub

 

do_search = request("do_search")

''' request form keys

user_id = request("user_id")

''' request action

action = lcase(request("action"))

''' action case handler

select case action

 

case "select_edit_users"

' select the requested key record from database

if user_id <> "" then

db_select_edit_Users

else

b_error = true

error_list.add "edit_edit_Users", "Specify record to select."

end if

 

 

case "insert_edit_users"

' request form data and insert a new record into database

 

validate_edit_users

if not b_error then

db_insert_edit_users

end if

 

 

 

case "update_edit_users"

' request form data and update an existing database record

validate_edit_users

if not b_error then

if user_id <> "" then

db_update_edit_users

else

b_error = true

error_list.add "update_edit_users", "Specify record to update."

end if

end if

 

 

case "delete_edit_users"

' delete the requested key database record

if user_id <> "" then

db_delete_edit_users

response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."

else

b_error = true

error_list.add "delete_edit_users", "Specify record to delete."

end if

 

 

end select

':: handle the default case(s) for each form (separate from action= parameter)

if user_id <> "" then

db_select_edit_users

end if

 

db_select_view_users

 

 

%>

 

<!-- #include file='i_header.asp' -->

<%

display_errs

display_msg

%>

 

<table class='headerTable'>

<tr>

<td class='headerTD'>

<a href='admin_users.asp'>User Manager</A>

</td>

</tr>

</table>

<table >

<form name="edit_Users" action="admin_users.asp" method="post" >

 

<input type=hidden name="dtInserted" value="<% =dtInserted %>">

 

 

<input type=hidden name="dtModified" value="<% =dtModified %>">

 

 

<input type=hidden name="user_id" value="<% =user_id %>">

 

<tr>

<td class='labelTD'>Usuário</td>

<td class='dataTD' >

<input type=text name="user_name" size="" maxlength="50" value="<% =user_name%>"> </td>

</tr>

<tr>

<td class='labelTD'>Primeiro Nome </td>

<td class='dataTD' >

<input type=text name="f_name" size="" maxlength="50" value="<% =f_name%>"> </td>

</tr>

<tr>

<td class='labelTD'>Sobrenome</td>

<td class='dataTD' >

<input type=text name="l_name" size="" maxlength="70" value="<% =l_name%>"> </td>

</tr>

<tr>

<td class='labelTD'>email</td>

<td class='dataTD' >

<input type=text name="email" size="" maxlength="60" value="<% =email%>"> </td>

</tr>

<tr>

<td class='labelTD'>Senha</td>

<td class='dataTD' >

<input type=text name="password" size="" maxlength="50" value="<% =password%>"> </td>

</tr>

<tr>

<td class='labelTD'>Endereço</td>

<td class='dataTD' >

<input type=text name="addr1" size="" maxlength="100" value="<% =addr1%>"> </td>

</tr>

<tr>

<td class='labelTD'>Cidade</td>

<td class='dataTD' >

<input type=text name="city" size="" maxlength="50" value="<% =city%>"> </td>

</tr>

<tr>

<td class='labelTD'>Estado</td>

<td class='dataTD' >

<input type=text name="state" size="" maxlength="50" value="<% =state%>"> </td>

</tr>

<tr>

<td class='labelTD'>CEP</td>

<td class='dataTD' >

<input type=text name="postalcode" size="" maxlength="50" value="<% =postalcode%>"> </td>

</tr>

<tr>

<td class='labelTD'>País</td>

<td class='dataTD' >

<input type=text name="country" size="" maxlength="50" value="<% =country%>"> </td>

</tr>

<tr>

<td class='labelTD'>Telefone</td>

<td class='dataTD' >

<input type=text name="phone" size="" maxlength="50" value="<% =phone%>"> </td>

</tr>

<tr>

<td class='labelTD'>fax</td>

<td class='dataTD' >

<input type=text name="fax" size="" maxlength="50" value="<% =fax%>"> </td>

</tr>

<tr>

<td class='labelTD'>Observação</td>

<td class='dataTD' >

 

<textarea name="notes" rows='10' cols='70'><% =notes%></textarea> </td>

</tr>

<tr>

<td class='labelTD'>Nível de Acesso </td>

<td class='dataTD' >

<%

if not isnull(accesslevel) then

if (accesslevel < 1) AND (not accesslevel) then accesslevel = 0

else

accesslevel = 0

end if

%>

 

<select name="accesslevel" >

<option <% if "-1" = cStr(accesslevel) then %>selected<% end if %> value="-1">conta sem acesso</option>

<option <% if "0" = cStr(accesslevel) then %>selected<% end if %> value="0">Web Site</option>

<option <% if "1" = cStr(accesslevel) then %>selected<% end if %> value="1">1º Ano</option>

<option <% if "2" = cStr(accesslevel) then %>selected<% end if %> value="2">2º Ano</option>

<option <% if "3" = cStr(accesslevel) then %>selected<% end if %> value="3">3º Ano</option>

<option <% if "4" = cStr(accesslevel) then %>selected<% end if %> value="4">Administração</option>

</select> </td>

</tr>

<tr>

<td class=labelTD align=right> 

<% if user_id <> "" then %><input type=button name=new_button value='NOVO' onClick="window.location = '<% =request.servervariables("script_name") %>'">

<% end if %> </td>

<td class=dataTD>

<% if user_id = "" then %><input type=submit name=insert_button value='CONFIRMAR'>

<% end if %>

<% if user_id <> "" then %><input type=submit name=update_button value='ATUALIZAR'>

<% end if %>

<% if user_id <> "" then %><input type=submit name=delete_button value='DELETAR' onClick="document.edit_Users.action.value = 'delete_edit_Users'">

<% end if %> </td>

<input type=hidden name="action" value="<% if user_id <> "" then %>update<% else %>insert<%end if %>_edit_Users"></tr>

</form>

</table>

 

 

<%

 

page_no = request("page_no")

if page_no = "" then page_no = 1

 

if view_Users_sql <> "" then

cmd.CommandText = view_Users_sql

rs.Filter = ""

rs.CursorLocation = 3

rs.CacheSize = 5

rs.Open cmd

if not rs.EOF then

rs.MoveFirst

rs.PageSize = 30

max_count = cInt(rs.PageCount)

num_recs = rs.RecordCount

rs.AbsolutePage = page_no

results = true

else

results = false

rs.Close

end if

else

results = false

end if

rec_count = 0

 

%>

 

<table class='headerTable'>

<tr>

<td class='headerTD'> Lista de Usuários

</td>

</tr>

</table>

<%

 

if results = true then

 

%>

 

<table >

<form name="view_Users" action="" method="get" >

<tr>

<td class='fieldTD'></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=user_name" class=fieldFont title="">Nome de Usuário </a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=f_name" class=fieldFont title="">Primeiro Nome </a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=l_name" class=fieldFont title="">Sobrenome</a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=email" class=fieldFont title="">email</a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=city" class=fieldFont title="">Cidade</a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=state" class=fieldFont title="">Estado</a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=postalcode" class=fieldFont title="">CEP</a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=country" class=fieldFont title="">País</a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=dtInserted" class=fieldFont title="">cadastrado</a></td>

<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=accesslevel" class=fieldFont title="">nivel de acesso </a></td>

</tr>

<%

 

do while not rs.EOF AND (rec_count < rs.Pagesize)

 

':: read db record

on error resume next

edit_link = rs("edit_link")

user_id = rs("user_id")

user_name = rs("user_name")

f_name = rs("f_name")

l_name = rs("l_name")

email = rs("email")

city = rs("city")

state = rs("state")

postalcode = rs("postalcode")

country = rs("country")

dtInserted = rs("dtInserted")

accesslevel = rs("accesslevel")

on error goto 0

 

%>

<tr>

<td class='dataTD' >

[ <a href='admin_users.asp?user_id=<% =user_id %>' class=dataFont>Editar</a> ]

<% =edit_link %>

</td>

 

<input type=hidden name="user_id" value="<% =user_id %>">

 

<td class='dataTD' >

<% =user_name %>

</td>

<td class='dataTD' >

<% =f_name %>

</td>

<td class='dataTD' >

<% =l_name %>

</td>

<td class='dataTD' >

<% =email %>

</td>

<td class='dataTD' >

<% =city %>

</td>

<td class='dataTD' >

<% =state %>

</td>

<td class='dataTD' >

<% =postalcode %>

</td>

<td class='dataTD' >

<% =country %>

</td>

<td class='dataTD' >

<% =dtInserted %>

</td>

<td class='dataTD' >

<% =accesslevel %>

</td>

</tr>

 

 

 

<%

 

rs.MoveNext

rec_count = rec_count + 1

loop

rs.Close

 

%>

 

</form>

</table>

<%

 

else

 

%>

 

no matches were found.

 

<%

 

end if

 

%>

 

<%

if max_count > 1 then

%>

 

<!-- paging footer -->

<TABLE class=HeaderTable >

<tr>

<td width="20%" class=HeaderTD>

<% if page_no > 1 then %>

<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no-1 %>&sortby=<% =request("sortby") %>">Anterior</a>

<% else %> <% end if %> </td>

<td align=center class=HeaderTD>

Página 

<% for i = 1 to max_count %>

<% if i = cint(page_no) then %>

<b><%=i%></b>

<% else %>

<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =i %>&sortby=<% =request("sortby") %>"><%=i%></a>

<% end if %>

<%next %>

</td>

<td align=right width="20%" class=HeaderTD>

<% if cInt(page_no) < cInt(max_count) then %>

<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no+1 %>&sortby=<% =request("sortby") %>">Proximo</a>

<% end if %>

</td>

</tr>

</TABLE>

<% end if %>

 

 

 

 

<!-- #include file=i_footer.asp -->

 

 

<%

':: assure that any db resources are freed

on error resume next

rs.Close

set rs = NOTHING

cn.Close

set cn = NOTHING

user_cn.Close

set user_cn = NOTHING

on error goto 0

%>