<%
if provider="sqlserver" then delim="'"
if provider="access" then delim="#"
sub insertform(tbl, redir, pk)
if pk<>"" then
Set rs = cn.execute("SELECT * FROM " & tbl & " WHERE " & pk & "='" & Request.Form(pk) & "'")
if not rs.eof then
Response.Write ""
Response.end
end if
rs.close
end if
Set rs = cn.execute("SELECT * FROM " & tbl)
errors=false
for j=1 to Request.Form.Count
existe=false
i=0
do while i"" then sql=sql & Request.Form.Key(i) & ", "
next
largo=len(sql)
sql=mid(sql, 1, largo-2)
sql=sql & ") values("
for i=1 to Request.Form.Count
tipo=rs.Fields(Request.Form.key(i)).type
valor=Trim(cleanstr(Request.Form.item(i)))
if Request.Form.key(i)="pass" then valor=conversion(valor, encryptkey, True)
select case tipo
case 202
delimitador="'"
case 3
delimitador=""
if valor="" then valor=0
case 5
delimitador=""
if valor="" then valor=0
case 7
delimitador=delim
case 135
delimitador=delim
case 11
delimitador=""
case 203
delimitador="'"
case else
delimitador=tipo
end select
if Request.Form.item(i)<>"" then sql=sql & delimitador & valor & delimitador & ", "
next
largo=len(sql)
sql=mid(sql, 1, largo-2)
sql=sql & ")"
cn.Execute sql
if redir<>"" then Response.Write "
" & lg_recordinserted & "
" & lg_back & "
"
end if
end sub
%>