Forum Moderators: open
My submit button wont work...
I wanna view to see if the strsql is correct but the button doesnt work...
Dont understand what is WRONG..
always happens argh..
Hope someone can point out the problem.. thanks in advance.
<%@ Language=VBScript %>
<!-- #include file="include/connections/database.inc" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script language="javascript" src=".\include\date-picker.js"></script>
<script language="JavaScript" src=".\include\checkfield.js"></script>
</HEAD>
</HEAD>
<BODY link="white" alink="white" vlink="white">
<form onsubmit="return verify()" name=form1 method="post" action="admin_add.asp" enctype="multipart/form-data">
<%
If Request.Form("submit")="submit" ThenSet rs = Server.CreateObject("ADODB.RecordSet")
strName = Request.Form("name")
strloginId = Request.Form("loginId")
strlogin = Request.Form("login") 'combobox
strdepartment = Request.Form("department")
strcenter = Request.Form("center")
strremarks = Request.Form("remarks")
'open the database from database.inc file
OpenDatabase()
'RecordSet Object
Set rs = CreateObject("ADODB.RecordSet")
strsql = "INSERT INTO sunder.mobile_users " &_
"VALUES ('" & strName & "', '" & strloginId & "', '" & strlogin & "', '" & strdepartment & "', '" & strcenter & "')"
Response.write "SQL = "&sqlstr
Response.Flush
Response.End
End If
%>
<P align=center><STRONG><FONT color=red>Application Form For New Mobile User</FONT></STRONG></P>
<FONT color=black><STRONG>Please fill out the particulars:</STRONG>
<HR>
<center><STRONG>Personal Particulars</STRONG> <BR></center>
<br>
Name: <INPUT size=14 name=name onKeyPress ="if (event.keyCode < 65 ¦¦ event.keyCode > 122) event.returnValue = false;"> Win2k Login Id: <INPUT size=15 name=loginId onKeyPress ="if (event.keyCode < 65 ¦¦ event.keyCode > 122) event.returnValue = false;">
Login Type: <SELECT name=login>
<option value="super">Super
<option value="normal" selected>Normal
<option value="Admin">Admin</option>
</SELECT><BR><FONT
color=blue size=1>
<FONT size=2>as in Active Directory</FONT>
</FONT><BR>
Department: <INPUT size=16 name=department onKeyPress="if (event.keyCode < 65 ¦¦ event.keyCode > 122) event.returnValue = false;"> Cost
Center: <INPUT size=5 name=center>
<P></P>
<DIV></DIV>
<DIV align=center></DIV>
<DIV align=center>
<HR>
<DIV align=center>
</DIV>
<BR>Remarks : <INPUT size=45 name=remarks><BR></DIV>
<DIV align=center>
<TABLE cellSpacing=2 cellPadding=2 align=center>
<TR>
<TD><INPUT type=reset value=Reset id=reset1 name=reset1></TD>
<TD><INPUT type=submit value=Submit name=submit></TD></TR></TABLE></FONT></DIV>
</form>
<form method="post" action="admin_view.asp" id=form2 name=form2>
<P align=center><INPUT type=submit value=Back name=submit2></P></form>
</BODY>
</HTML>
Below is my suggestion :
<%
if request.querystring("submit") = "true" then
Set rs = Server.CreateObject("ADODB.RecordSet")
...
...
...
Response.End
end if
%>
<html>
<body>
<form NAME="form1" METHOD="POST" ACTION="admin_add.asp?submit='true'">
Department ....
.....
.....
<INPUT TYPE="SUBMIT" VALUE="Submit" name=SUBMIT>
</form>
</body>
</html>
Hope this help :)