<%@ Language=VBScript %> <% Dim db Dim strsql Dim rs set db = server.createobject("ADODB.Connection") set rs = server.createobject("ADODB.REcordset") db_server = "whsql-v11.prod.mesa1.secureserver.net" db_name = "DB_105043" db_username = "charityball" db_userpassword = "Charleston1" connectstr = "Driver={SQL Server};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword db.Open connectstr strsql = "SELECT * FROM Ad_Space where Spon_Amt='$2000+'" rs.open strsql, db response.write "
| Platinum Sponsors - $2000+ |
| " & rs(1) & " | " & vbcrlf response.write "
" strsql = "SELECT * FROM Ad_Space where Spon_Amt='$1500'" rs.open strsql, db response.write "
| Gold Sponsors - $1500+ |
| " & rs(1) & " | " & vbcrlf response.write "
" strsql = "SELECT * FROM Ad_Space where Spon_Amt='$1000'" rs.open strsql, db response.write "
| Silver Sponsors - $1000+ |
| " & rs(1) & " | " & vbcrlf response.write "
" strsql = "SELECT * FROM Ad_Space where Spon_Amt='$500'" rs.open strsql, db response.write "
| Bronze Sponsors - $500+ |
| " & rs(1) & " | " & vbcrlf response.write "
" strsql = "SELECT * FROM Ad_Space where Spon_Amt='$1-$499'" rs.open strsql, db response.write "
| Benefactors - $1 - $499 |
| " & rs(1) & " | " & vbcrlf response.write "
" strsql = "SELECT * FROM Ad_Space where Spon_Opt='6'" rs.open strsql, db response.write "
| A special thanks to the following businesses and community members for their generous support of the Twentieth Annual Charity Ball held February 17th 2007. |
| " & vbcrlf while not rs.eof response.write rs(1) & ", " & vbcrlf rs.movenext wend rs.close response.write " |
" db.close %>
|
|
||