select box value og refresh af siden

Jeg henter noget data ind fra en database med denne kode:

<select name="pOrdershop" size="1">
<%
strSQL = "SELECT * FROM shop;"
Set rs = Conn.Execute(strSQL)
Do Until rs.EOF
%>
<option><%=rs("shopNavn")%></option>
<%
rs.MoveNext   
loop
%>
</select>


Det virker fint, i mit tilfælde får jeg 8 valg muligheder i min select box. Længere nede i koden har brugeren mulighed for at trykke på en <a href='projekt_add.asp?strDato="& dtmCurDate & "'>" & Day(dtmCurDate) & "</a>" i en kalender for at vælge en dato, nu kommer mit problem så! Når brugeren trykker på linket til kalenderen så sættet <select> til den første værdi i listen og det er måske ikke det brugeren har valgt ??? Hvordan kommer jeg udover dette problem???

Håber det er til at forstå!