asp+mysql2000

[Guest lieza]

<% action = request("action")%><% if Request.QueryString("txtKeyword") <> "" Then Dim Conn,strSQL,objRec Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "Provider=SQLOLEDB.1;Password=*******;User ID=*******; " & _ "Initial Catalog=PSInfo;Data Source=**.**.**.**"'*** Search By IC ***' strSQL = "SELECT * FROM Tbl_ProfilPSI " strSQL = strSQL & "WHERE No_KP ='"& Request.QueryString("txtKeyword") &"'" Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 %> <% '*** Search By Nama ***' strSQL = "SELECT * FROM Tbl_ProfilPSI " strSQL = strSQL & "WHERE Nama ='"& Request.QueryString("txtKeyword2") &"'" Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 %> <tr> </tr> <% if not objRec.EOF then While Not objRec.EOF %> <tr> <td bgcolor="#D0EFF9"><div align="center"><a href="DaftarPegawai.asp?no_kp=<%=objRec.Fields("No_KP").Value%>"><%=objRec.Fields("No_KP").Value%></a></div></td> <td bgcolor="#D0EFF9"><div align="center"><a href="DaftarPegawai.asp?Nama=<%=objRec.Fields("Nama").Value%>"><%=objRec.Fields("Nama").Value%></a></div></td> </tr> <% objRec.MoveNext Wend %> </table> <% %> </table> <p> <% Else%> <script type="text/javascript"> var act = confirm("Tiada Rekod Pegawai! Tambah Rekod?"); if(act==true){ location.href="DaftarPegawai.asp?no_kp=" + <%=Request.QueryString("txtKeyword")%> location.href="DaftarPegawai.asp?Nama=" + <%=Request.QueryString("txtKeyword2")%> } else{ location.href="administrator.asp"; } </script> <% End IF objRec.Close() Conn.Close()Set objRec = Nothing Set Conn = NothingEnd IF%></div><p> </p></form></body></html> (THESE ARE MY CODE,I cannot link it with database.how we want to insert data through IC Or Name? choose only one of them..really need help)