Novato em ASP.net

Salve galera http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Bom estou começando agora com o asp.net em VB e encontrei um probleminha estou usando o VS 2005

bom é o seguinte

em asp eu faço isso aki:

ASP

[*] <%IF idHotel <> "" And IDHotel <> "Selec" then

[*] Strsql = "SELECT"_

[*] & " SERVICOHOSPEDAGEM.ID ID_SERVICOHOSPEDAGEM,"_

[*] & " SERVICO.ID AS ID_SERVICO,"_

[*] & " SERVICO.DESCRICAO AS TIPOAPTO,"_

[*] & " SERVICOHOSPEDAGEM.DESCRICAO"_

[*] & " FROM"_

[*] & " SERVICO, NEGOCIACAOHOSPEDAGEM, NEGOCIACAOHOSPEDAGEMSERVICOH, SERVICOHOSPEDAGEM"_

[*] & " WHERE"_

[*] & " NEGOCIACAOHOSPEDAGEM.ID = NEGOCIACAOHOSPEDAGEMSERVICOH.ID_NEGOCIACAOHOSPEDAGEM AND"_

[*] & " SERVICOHOSPEDAGEM.ID_SERVICO = SERVICO.ID AND"_

[*] & " SERVICOHOSPEDAGEM.ID = NEGOCIACAOHOSPEDAGEMSERVICOH.ID_SERVICOHOSPEDAGEM AND"_

[*] & " NEGOCIACAOHOSPEDAGEM.ID_HOTEL = " & IDHotel & " AND"_

[*] & " NEGOCIACAOHOSPEDAGEM.ID_PROJETO = " & IDPrj & " Order by ID_SERVICO"

[*]

[*] Set ObjTPAp = Server.CreateObject("ADODB.Recordset")

[*] ObjTPAp.Open StrSql, Conn_Reserva

[*] IF ObjTPAp.EOF = False then

[*] ObjTPAp.MoveFirst

[*] end if

[*] %>

[*] <select name="ap" class="select"><%Aux = VerSeTem(2)%>

[*] <%Aux = VerSeTem(4)

[*] Do While ObjTPAp.EOF = false %>

[*] <option value="<%=ObjTPAp("ID_SERVICO")%>"<%If CStr(i)=CStr(Aux) Then Response.Write " selected"%>><%=ObjTPAp("DESCRICAO")%></option>

[*] <%

[*] i = i + 1

[*] ObjTPAp.MoveNext

[*] Loop

[*] ObjTPAp.Close

[*] Set ObjTPAp = Nothing %>

[*] </select>

Bom agora a minha dúvida como eu faço isso em Asp.net???