<% Option Explicit %>
<%
Dim sDefaultProdCatg
Const cookieName="AfaProdKeyIn"
If (Request("txtClientName")<>"") Then 'Postback 'Set Expires to keep this cookie for one month,
'If Expires is not set, cookie will be gone after browser closed
Response.Cookies(cookieName).Expires = DateAdd("m", 1, Now) Response.Cookies(cookieName)=Request("selCategory") Response.Write "<script>alert('Inserted!');</script>" Response.End
Else
sDefaultProdCatg = Replace(Request.Cookies(cookieName), "'", "\'")
End If
%>
<html><body>
<form method="POST" action="userPref.asp">
Client Name: <input type="text" name="txtClientName" ><br>
Product Category:
<select name="selCategory">
<option value="Notebook">Notebook</option>
<option value="PC">PC</option>
<option value="LCD">LCD</option>
</select><br>
<script type="text/javascript">
var oSel = document.getElementById("selCategory");for (var i=0; i<oSel.options.length; i++)
if (oSel.options[i].value=='<%=sDefaultProdCatg%>') { oSel.selectedIndex=i;
break;
}
</script>
<input type="submit" value="Add">
</form>
</body></html>