%@ Language=VBScript %> <% if pid = "" then pid = "0" end if dim cn dim rs dim strqry Set cn = Server.CreateObject ("ADODB.Connection") Set rs = Server.CreateObject ("ADODB.Recordset") 'connect_string = "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=radio;Data Source=10.0.0.36" cn.Open connect_string %>
Please take the time to complete the available surveys below about various business in our location, and you will be entered into a drawing for a prize!
1. Choose an available survey.
2. Complete the survey.
3. You will be entered in to the drawing for that survey.
4. If your name is chosen, you win!