Conexão + Pesquisa em ASP.NET

[mkboy 1]

Olá amigos,

 

Programo em ASP, não sei nada de ASP.NET

Um amigo me enviou o arquivo que cria o XML em ASP.NET do jeito que preciso.

 

Mas agora não consigo criar a conexão com o banco, nem fazer o Select.

Podem me ajudar?

 

Esse é a conexão e a pesquisa que fiz em ASP do jeito que preciso:

 

<%
	strConnection = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=login;pwd=****;database=banco"
	Set dbkr = Server.CreateObject("ADODB.Connection") 
	dbkr.Open strConnection
	
	Dim dbkr


		SQL = "SELECT * FROM fotos WHERE b_fotos_idSecao = 10 and b_fotos_life = 'yes' and b_fotos_status = 'ativo'"
		Set RS = dbkr.execute(SQL)

			If NOT RS.EOF Then

				response.write(""&Server.HtmlEncode("<?xml version='1.0' encoding='utf-8'?>")&"<br>")
					response.write(""&Server.HtmlEncode("<imagens path='galerias/'>")&"<br>")
				
						WHILE NOT RS.EOF
							
							response.write(""&Server.HtmlEncode("<no imagem='"&RS("b_fotos_fotografia")&"'/>")&"")
							response.write("<br>")						
						
						RS.MOVENEXT : WEND
					
				response.write(""&Server.HtmlEncode("</imagens>")&"")

			Else
				'Não faz nada
				response.write("vazio")
			End if

	  
	 dbkr.close
	 Set dbkr =nothing

E este é o ASP.NET que tem o codigo que cria o XML, que preciso inserir o codigo acima:

 

<%@ Page Language="VB" Debug=TRUE %>
<%@ Import Namespace="System.XML" %>
<%@ Import Namespace="System.DATA" %>
<%@ Import Namespace="System.DATA.OLEDB" %>

<script runat="Server">
Dim i as Integer
Sub Page_Load(obj as object, e as eventargs)

Dim Writer as XMLTextWriter

Dim objReader As OledbDataReader

Writer = New XMLTextWriter(Server.MapPath("../galeria0.xml"),Nothing)
Writer.WriteStartDocument
Writer.Formatting = Formatting.Indented
Writer.indentation = 1
Writer.WriteStartElement("imagens path=""galerias/imgs0/""")

For i = 1 to 17 'O For será substituido pelo while do Select
			Writer.WriteStartElement("no imagem=""a" & i & ".jpg""")
			Writer.WriteEndElement()
Next

Writer.WriteEndElement()

Writer.Close
Response.write ("Fotos adicionadas!") 

End Sub

</script>

[mkboy 1]

Shi... parece que é complicado!

Se alguem puder fazer como Freela, me envie MP, caso seja dificil para ajudar por aqui!

 

Valeu!