That post is hard to read, here you go again
<%
SQL1="INSERT INTO table1(field1, field2, field3) Values ("&_
"'"& request.form("field1"

& "', " &_
"'"& request.form("field2"

& "', " &_
"'"& request.form("field3"

& "')"
SQL2="INSERT INTO table2(field4, field5, field6) Values ("&_
"'"& request.form("field4"

& "', " &_
"'"& request.form("field5"

& "', " &_
"'"& request.form("field6"

& "')"
Dim myRS1
set myRS1=server.createobject("adodb.recordset"

myRS1.open sql, "dsn=mydsn"
Dim myRS2
set myRS2=server.createobject("adodb.recordset"

myRS2.open sql, "dsn=mydsn"
%>
Tony
