Mega Code Archive
Using the Response to output Javascript code (VB net)
<![CDATA[
<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
End Sub
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
If chkMailingList.Checked = "True" Then
Response.Write ("<SCRIPT LANGUAGE=""JavaScript"">" _
& Chr(13) & "<!--" & Chr(13) _
& "alert('You have been added to " _
& "our mailing list')" & Chr(13) _
& "--><" & "/" & "SCRIPT>")
End If
If chkContact.Checked = "True" Then
Response.Write ("<SCRIPT LANGUAGE=""JavaScript"">" _
& Chr(13) & "<!--" & Chr(13) _
& "alert('We will contact you " _
& "by phone')" & Chr(13) _
& "--><" & "/" & "SCRIPT>")
End If
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Displaying a Basic CheckBox Control</TITLE>
</HEAD>
<form runat="server">
<BR><BR>
<asp:checkbox
id="chkMailingList"
text="Would you like to be on our mailing list?"
checked="true"
backcolor="LightYellow"
bordercolor="DarkRed"
borderwidth=3
font-size="12pt"
font-name="Comic Sans MS"
textalign="Left"
runat="server"
/>
<BR><BR>
<asp:checkbox
id="chkContact"
text="Would you like us to contact you by phone?"
checked="false"
backcolor="LightYellow"
bordercolor="DarkRed"
borderwidth=3
font-size="12pt"
font-name="Comic Sans MS"
textalign="Right"
runat="server"
/>
<BR><BR>
<asp:button
id="butOK"
text="OK"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"
/>
</form>
</BODY>
</HTML>
]]>