why are records wrtten ? ....Fisrt timer ! ;-)

Yogi39 · Jun 23, 2001

<%
On Error Resume Next

strErrorUrl = ""

Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection&quot

FP_DumpError strErrorUrl, "Cannot create connection"

Set fp_rs = Server.CreateObject("ADODB.Recordset&quot

FP_DumpError strErrorUrl, "Cannot create record set"

fp_conn.Open Application("login_name_ConnectionString&quot

FP_DumpError strErrorUrl, "Cannot open database"

fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"

fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
Dim arFormFields0(6)
Dim arFormDBFields0(6)
Dim arFormValues0(6)

arFormFields0(0) = "ex"
arFormDBFields0(0) = "ex"
arFormValues0(0) = Request("ex&quot

arFormFields0(1) = "ass"
arFormDBFields0(1) = "ass"
arFormValues0(1) = Request("ass&quot

arFormFields0(2) = "cq"
arFormDBFields0(2) = "cq"
arFormValues0(2) = Request("cq&quot

arFormFields0(3) = "eb"
arFormDBFields0(3) = "eb"
arFormValues0(3) = Request("eb&quot

arFormFields0(4) = "ogin"
arFormDBFields0(4) = "ogin"
arFormValues0(4) = Request("ogin&quot

arFormFields0(5) = "ail"
arFormDBFields0(5) = "ail"
arFormValues0(5) = Request("ail&quot

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"

fp_rs.Close
fp_conn.Close

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Login Name</title>
</head>

<body>

<form method="POST" action="n3.asp">

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

why are records wrtten ? ....Fisrt timer ! ;-)

Yogi39

Technical User

Similar threads

Part and Inventory Search

Sponsor