8
HI,
Do anyone know how to pass LDAP value from ldap_first.asp and post to value into MS Access Database? Please help. Billion thanks
----------------ldap_first.asp---------------------
<html>
<head>
<title>New Page 2</title>
</head>
<body>
<form name="form1" method="post" action="ldap_second.asp?v=<%=Request.Querystring(" v")%>&v2=<%=Request.Querystring("v2")%>">
<%
Dim conn
Dim objConn
Dim objRS
Dim v,v2
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Provider = "ADsDSOObject"
strConn = "ADs Provider"
objConn.Open strConn
Set objRS = objConn.Execute("<LDAP://ldap2.it.tech.com/o=agilent.com>;(&(ntuserdomainid=tech:jose)(sn=lim ));sn,givenname,emailaddress,agilenttelnetnumber;S ubTree")
While Not objRS.EOF
response.write "<div align=center><p><b>User Logon details</b></p></div>"
response.write "<div align=center>"
response.write "<table border=1 cellpadding=5 cellspacing=0>"
v = objRS("sn")
response.write "<tr><td><b> Last Name: </b></td><td>" & v(0) & "</td></tr>"
v2 = objRS("givenname")
response.write "<tr><td><b> First Name: </b></td><td>" & v2(0) & "</td></tr>"
response.write "</table>"
response.write "</div>"
'response.write objRS(0)
'Response.Write isNull(objRS.Value)
objRS.MoveNext
Wend
'response.write "Test"
objConn.Close
%>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
</body>
</html>
-----------------------ldap_second.asp--------------------
<%
Dim objConn, objRs, objPara
Dim strSQL
Dim objCommand,v,v2
v = Request.Form("v")
v2 = Request.Form("v2")
Response.Buffer = True
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=Midwar"
objConn.Open
strSQL = "INSERT INTO Testing (LastName, FirstName) VALUES (" & _
"'" & Request.Form("v") & "', " & _
"'" & Request.Form("v2") & "') "
Response.Write strSQL & "<BR>"
objConn.Execute strSQL
%>
