In the following code, I am not getting the value for scustid inside submit_onClick. How can I get the value for scustid inside submit_onClick? Any helps would be greatly appreciated. Thanks in advance.
<%
Option Explicit
Dim session, db, doc, scustid
scustid=Trim(Request.Form("fcustid"
)
%>
<SCRIPT Language="VBScript">
Sub submit_onClick
Set session=CreateObject("Lotus.NotesSession"
Call session.Initialize
Set db=session.GetDatabase("","CigTest"
Set doc=db.CreateDocument()
doc.AppendItemValue "Form","Test"
doc.Save False,False
MsgBox scustid,,"Test"
doc.AppendItemValue "custid",scustid
doc.Save False,False
End Sub
</SCRIPT>
<HTML>
<BODY>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME"
%>" METHOD="POST">
<BR>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR VALIGN=top><TD WIDTH="240"> </TD><TD WIDTH="340"><DIV ALIGN=center><B><FONT SIZE=6 COLOR="000080">Cigna Notes Entry Form</FONT></B></DIV></TD></TR>
</TABLE>
<BR><BR>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR VALIGN=top><TD WIDTH="186">Customer Id:</TD><TD WIDTH="340">
<INPUT TYPE="Text" NAME="fcustid"></TD></TR>
<TR VALIGN=top><TD WIDTH="186">Region :</TD><TD WIDTH="340">
<INPUT TYPE="Text" NAME="fregid"></TD></TR>
<TR VALIGN=top><TD WIDTH="526" COLSPAN=2>Notes: <BR>
<TEXTAREA NAME="fnotes" ROWS=7 COLS=50></TEXTAREA>
<BR>
</TD></TR>
</TABLE>
<INPUT TYPE="Submit" NAME="submit" vALUE="Submit">
</FORM>
</BODY></HTML>
<%
Option Explicit
Dim session, db, doc, scustid
scustid=Trim(Request.Form("fcustid"
%>
<SCRIPT Language="VBScript">
Sub submit_onClick
Set session=CreateObject("Lotus.NotesSession"
Call session.Initialize
Set db=session.GetDatabase("","CigTest"
Set doc=db.CreateDocument()
doc.AppendItemValue "Form","Test"
doc.Save False,False
MsgBox scustid,,"Test"
doc.AppendItemValue "custid",scustid
doc.Save False,False
End Sub
</SCRIPT>
<HTML>
<BODY>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME"
<BR>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR VALIGN=top><TD WIDTH="240"> </TD><TD WIDTH="340"><DIV ALIGN=center><B><FONT SIZE=6 COLOR="000080">Cigna Notes Entry Form</FONT></B></DIV></TD></TR>
</TABLE>
<BR><BR>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR VALIGN=top><TD WIDTH="186">Customer Id:</TD><TD WIDTH="340">
<INPUT TYPE="Text" NAME="fcustid"></TD></TR>
<TR VALIGN=top><TD WIDTH="186">Region :</TD><TD WIDTH="340">
<INPUT TYPE="Text" NAME="fregid"></TD></TR>
<TR VALIGN=top><TD WIDTH="526" COLSPAN=2>Notes: <BR>
<TEXTAREA NAME="fnotes" ROWS=7 COLS=50></TEXTAREA>
<BR>
</TD></TR>
</TABLE>
<INPUT TYPE="Submit" NAME="submit" vALUE="Submit">
</FORM>
</BODY></HTML>