<%
if (Request.Form() <> "") Then
if (Request.Form("cmb-cidade") = "") then form_alert("Escolha a cidade.") : response.end()
if not(isDate(Request.Form("txt-data_treinamento"))) then form_alert("Digite uma data válida.") : response.end()
if (Request.Form("txt-convite") = "") then form_alert("Digite o convite, ele será utilizado para o envio do e-mail.") : response.end()
call db_open()
'response.Write(str_sql)
if ( msg = "" )then
con.execute(str_sql) : form_alert("Treinamento cadastrado.") : form_script("top.location.href = 'Treinamento_Lista.asp'")
end if
end if
function str_sql
sql = "insert into CF_TREINAMENTO ("
for each item in request.Form()
if ((left(item,3) = "txt") or (left(item,3) = "chk") or (left(item,3) = "rdo") or (left(item,3) = "cmb")) Then
tem_chk=0
If (left(item,3) = "chk") Then
tem_chk=1
item_chk=request.form(item)
If (item_chk="on") Then
vlr_item_chk=1
Else
vlr_item_chk=0
End If
End if
sql_campos = sql_campos & right(item,len(item) - 4)& ", "
If (tem_chk=0) Then
sql_valores = sql_valores & "'" &request.form(item) & "', "
Else
sql_valores = sql_valores & "'" & vlr_item_chk & "', "
End if
end if
Next
sql = sql & left(sql_campos,len(sql_campos) -2) & ") values ("&left(sql_valores,len(sql_valores) -2) & ")"
str_sql = sql
end function
%>
<% = msg %>