3
Hello everyone
i have a problem with my db connection i paste code below please check anyone where i am wrong its very urgent please any one help me!!!!!
and i am working offline using local iis server just check
Thanks
Ravi kale
<%@LANGUAGE="VB SCRIPT"%>
<!--#include file="Connectio ns/ravi.asp" -->
<%
Dim raj
Dim raj_numRows
'Dim recordset
Set raj = Server.CreateOb ject("ADODB.Rec ordset")
raj.Activeconne ction = MM_ravi_STRING
raj.Source = "SELECT * FROM employee"
raj.CursorType = 0
raj.CursorLocat ion = 2
raj.LockType = 1
raj.Open()
raj_numRows = 0
%>
<script language="VBScr ipt" type="text/VBScript">
set.cnn = Server.CreateOb ject("ADODB.Con nection")
open.connection
cnn.open("Drive r={MicrosoftAcc essDriver(*.mdb )};DBQ=D:\trupt i.mdb;Uid=sa;Pw d=sa;")
"Driver = {MicrosoftAcces sDriver(*.mdb)} ;DBQ=D:\trupti. mdb;Uid=sa;Pwd= sa;"
open.recordset
set rs = server.CreateOb ject("ADODB.Rec ordset")
strSQL= "select * from employee"
rs.open strSQL,cnn,3,2
insert into employee('First _name','Last_na me','Telephone' ,'Email','Comme nt')
values("&txtfir st_name.txt&"," &txtlast_name.t xt&","&txttelep hone.number&"," &txtEmail.memo& ","&txtComment. txt&")
if NOT rs.eof Then
while NOT rs.EOF
rs.movenext
wend
end if
</script>
<html>
<head>
<Body>
<FORM action="test.as p"FORM METHOD="post" name=test.asp Actionvar=add">
<p>First_name
<INPUT TYPE="text" NAME="First_nam e">
<BR>
Last_name
<INPUT TYPE="text" NAME="Last_name ">
<BR>
Telephone
<INPUT TYPE="text" NAME="Telephone ">
<BR>
Email
<INPUT TYPE="text" NAME="Email">
<BR>
Comment
<INPUT TYPE="text" NAME="Comment">
<BR>
<INPUT name="add" TYPE="submit" id="insert" VALUE="Insert">
</p>
</FORM>
</html>
</head>
</Body>
<%
raj.Close()
Set raj = Nothing
%>
