gostaria de saber se com o curso de ASP.NET conseguirei começar a programar e desenvolver para Sharepoint?
Gostaria também, se houver algum material para que eu possa aprender a programar p Sharepoint, se pode disponibilizá-lo.

Tenho somente noções de programação. Sou somente administrador de portais Sharepoint e vejo a necessidade para desenvolver também !

Obrigado se puder responder em meu e-mail.

Estou fazendo uma integração da impressora Zebra com o Asp.Net, e gostaria de saber como corrigir alguns erros que estão dando nesse codigo.

Imports Framework
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Text
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices

Partial Class EtiquetaZebra
Inherits FrameworkHelper.UIBOLoggedSuper

#Region “Comandos da Zebra TLP 2844″
Const PulaLinha As String = “||CHR13||”
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
Const inicio As String = “||CHR02||”
#End Region

Public Overrides Sub childrenPage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not IsPostBack Then
Try
‘appletJocar.Attributes.Add(“codebase”, Framework.Utility.getPathWeb(0) & “/lib”)
appletJocar.Attributes.Add(“codebase”, “HTTP://192.168.0.3/backoffice/lib”)
LoadInf()
Catch ex As Exception
Framework.LOG.LOGManager.Publish(ex)
End Try
End If
End Sub

Public Sub LoadInf()
Dim GetFilterPage
Dim GeraEtiqueta As FUNCFLAGS
Dim filPed As Framework.Filter = GetFilterPage()
Dim ColEnd As Col
Dim ColPed As Col
Dim ColCli As Col

Try
Dim facEnd As Framework.FacadeProxy = New Framework.FacadeProxy(“EnderecoFacade”)
Dim facPed As Framework.FacadeProxy = New Framework.FacadeProxy(“PedidoFacade”)
Dim facCliente As Framework.FacadeProxy = New Framework.FacadeProxy(“ClienteFacade”)

Dim filCli As Framework.Filter = New Framework.Filter
Dim arlfilcli As New ArrayList

filPed.setGridCount(0) ‘Sem paginacao
ColEnd = facEnd.find(TypeFind.Padrão, filPed)
ColPed = facPed.find(TypeFind.Custom2, filPed)

filCli.addClause(“COD_CLIENTE”, DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pcod_cliente)
ColCli = facCliente.find(TypeFind.Padrão, filCli)

GeraEtiqueta(ColEnd, ColPed, ColCli)
Catch ex As Exception
Framework.LOG.LOGManager.Publish(ex)
End Try
End Sub

Public Class ZebraPrint
Private Const GENERIC_WRITE As Integer = &H40000000
Private Const OPEN_EXISTING As Integer = 3
Private Const FILE_SHARE_WRITE As Integer = &H2

Private _fileWriter As StreamWriter
Private _outFile As FileStream
Private _hPort As Integer

Public Structure SECURITY_ATTRIBUTES
Private nLength As Integer
Private lpSecurityDescriptor As Integer
Private bInheritHandle As Integer
End Structure

Private Declare Function CloseHandle Lib “kernel32″ Alias “CloseHandle” (ByVal hObject As Integer) As Integer
Private Declare Function CreateFile Lib “kernel32″ Alias “CreateFileA” (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer
”’
”’ This function must be called first. Printer path must be a COM Port or a UNC path.
”’
Public Sub StartWrite(ByVal printerPath As String)
Dim SA As SECURITY_ATTRIBUTES
Dim hPortP As IntPtr
‘Dim retval As Integer

‘Create connection
_hPort = CreateFile(printerPath, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)

‘Get unsafe pointer
hPortP = New IntPtr(_hPort) ‘convert Integer to IntPtr

‘Create file stream
_outFile = New FileStream(hPortP, FileAccess.Write)

‘Create stream writer
_fileWriter = New StreamWriter(_outFile)

End Sub

Public Sub Write(ByVal rawLine As String)
_fileWriter.WriteLine(rawLine)
End Sub
Private Sub GeraEtiqueta(ByVal ColEnd As Col, ByVal ColPed As Col, ByVal ColCli As Col)

Try
Dim sb As New System.Text.StringBuilder
Dim modo_envio As String = DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pnom_frete_modo.ToUpper
Dim destinatario As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pnom_destinatario.ToUpper
Dim Endereco As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_logradouro & “, ” & DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_numero
Dim complemento As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_complemento
Dim bairro As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_bairro
Dim Cidade As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_cidade & ” / ” & DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_estado
Dim Cep As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_cepFR
Dim Estado As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_estado
Dim referencia As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_referencia
Dim ddd As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).ptel_1_ddd
Dim tel As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).ptel_1_numero
Dim num_contrato As Integer = 0
Dim valor_pedido As String = DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pval_total_geral_desconto_pedido_filhoFR
Dim strPesoFR As String = “”

If Utility.IsNum(DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pnom_contato) Then
num_contrato = Integer.Parse(DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pnom_contato)
End If

If DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).ppeso_pedido > 0 Then
strPesoFR = (DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).ppeso_pedido / 1000).ToString
End If

‘sb.Append(“e”) ‘Habilita o sensor gap (com espaco entre as elas)
‘sb.Append(“j”) ‘Cancela pausa entre as etiquetas
sb.Append(“O” + Environment.NewLine) ‘Desabilita todas as opções
sb.Append(“Q1218,019″ + Environment.NewLine) ‘Formatação da etiqueta
sb.Append(“q831″ + Environment.NewLine) ‘Formatação da etiqueta
sb.Append(“rN” + Environment.NewLine) ‘Duplo Buffering Disabilitado
sb.Append(“S4″ + Environment.NewLine) ‘Velocidade da impressão D
sb.Append(“D7″ + Environment.NewLine) ‘Temperatura da impressão
sb.Append(“ZT” + Environment.NewLine) ‘Orientação de Impressão
sb.Append(“JB” + Environment.NewLine) ‘Recurso de backup
sb.Append(“OD” + Environment.NewLine) ‘Transferencia termica habilitado
sb.Append(“R9,0″ + Environment.NewLine) ‘ Ponto de Referencia
sb.Append(“N” + Environment.NewLine) ‘Limpa Buffer de imagem

sb.Append(“A790,1157,2,1,2,4,N,||chr22||JOCAR- Jocar Corifeu Auto Partes Ltda.||chr22||” + Environment.NewLine)
sb.Append(“A720,1090,2,1,2,2,N,||chr22||Contrato ||chr22||” & modo_envio & ” – ” & num_contrato.ToString(“||chr22||00000000000||chr22||”) & “||chr22|| – DR/SPM||chr22||” + Environment.NewLine)
sb.Append(“B731,1047,2,K,3,9,160,B,” + Environment.NewLine)

If Not String.IsNullOrEmpty(DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).CodigoRastreamento) Then
sb.Append(“B731,1047,2,K,3,9,160,B,” & “||chr22||[CODBARRAS]||chr22||” & DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).CodigoRastreamentoFR + Environment.NewLine)
End If

sb.Append(“A733,838,2,1,2,2,N,||chr22|| Peso:||chr22||” & strPesoFR & “||chr22||Kg||chr22||” + Environment.NewLine)
sb.Append(“A448,836,2,1,2,2,N,||chr22||Valor: R$||chr22|| ||chr22||” & valor_pedido & “||chr22||” + Environment.NewLine)
sb.Append(“A448,788,2,1,2,2,N,||chr22||Pedido||chr22||” + Environment.NewLine)
sb.Append(“B731,1047,2,K,3,9,160,B,” + Environment.NewLine)
sb.Append(“A279,791,2,1,2,2,N, ||chr22||” & DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pPedidoFullNameFR & “||chr22||” + Environment.NewLine)
sb.Append(“LO14,737,16,8″ + Environment.NewLine)
sb.Append(“LO42,737,31,8″ + Environment.NewLine)
sb.Append(“LO172,737,32,8″ + Environment.NewLine)
sb.Append(“LO84,737,32,8″ + Environment.NewLine)
sb.Append(“LO127,737,32,8″ + Environment.NewLine)
sb.Append(“LO429,737,32,8″ + Environment.NewLine)
sb.Append(“LO215,737,32,8″ + Environment.NewLine)
sb.Append(“LO559,737,32,8″ + Environment.NewLine)
sb.Append(“LO258,737,32,8″ + Environment.NewLine)
sb.Append(“LO471,737,32,8″ + Environment.NewLine)
sb.Append(“LO514,737,32,8″ + Environment.NewLine)
sb.Append(“LO343,737,32,8″ + Environment.NewLine)
sb.Append(“LO688,737,32,8″ + Environment.NewLine)
sb.Append(“LO386,737,32,8″ + Environment.NewLine)
sb.Append(“LO602,737,32,8″ + Environment.NewLine)
sb.Append(“LO645,737,32,8″ + Environment.NewLine)
sb.Append(“LO730,737,32,8″ + Environment.NewLine)
sb.Append(“LO773,738,32,8″ + Environment.NewLine)
sb.Append(“A763,703,2,1,2,2,N,||chr22||Destinatário||chr22||” + Environment.NewLine)
sb.Append(“A762,640,2,1,2,2,N,||chr22||Nome |chr22|| ” + Environment.NewLine)
sb.Append(“A650,638,2,1,2,2,N,||chr22||” & destinatario & “||chr22||” + Environment.NewLine)
sb.Append(“A767,545,2,1,2,2,N,||chr22||Rua:||chr22||” + Environment.NewLine)
sb.Append(“A673,548,2,1,2,2,N,||chr22||” & Endereco & “||chr22||” + Environment.NewLine)
sb.Append(“A256,548,2,1,2,2,N,||chr22||Complemento:||chr22||” + Environment.NewLine)
sb.Append(“A193,548,2,1,2,2,N,||chr22||” & complemento & “||chr22||” + Environment.NewLine)
sb.Append(“A767,505,2,1,2,2,N, ||chr22|| Bairro ||chr22||” + Environment.NewLine)
sb.Append(“A767,505,2,1,2,2,N,||chr22||” & bairro & “||chr22||” + Environment.NewLine)
sb.Append(“A769,460,2,1,2,2,N,||chr22||Referencia: ||chr22||” + Environment.NewLine)
sb.Append(“A537,460,2,1,2,2,N,||chr22||” & referencia & “||chr22||” + Environment.NewLine)
sb.Append(“A767,590,2,1,2,2,N,||chr22||Telefone||chr22||” + Environment.NewLine)
sb.Append(“A565,590,2,1,2,2,N,(||chr22||” & ddd & “||chr22||)||chr22||” & tel & “||chr22||” + Environment.NewLine)
sb.Append(“A765,408,2,1,2,2,N,||chr22||Cidade ||chr22||” + Environment.NewLine)
sb.Append(“A609,406,2,1,2,2,N,||chr22||” & Cidade & “||chr22||” + Environment.NewLine)
sb.Append(“A767,356,2,1,2,2,N,||chr22||Cep: ||chr22||” + Environment.NewLine)
sb.Append(“A684,356,2,1,2,2,N,||chr22||” & Cep & “||chr22||” + Environment.NewLine)
sb.Append(“A495,356,2,1,2,2,N,||chr22||Estado:||chr22||” + Environment.NewLine)
sb.Append(“A344,359,2,1,2,2,N,||chr22||” & Estado & “||chr22||” + Environment.NewLine)
sb.Append(“B771,300,2,K,4,12,160,B,” + Environment.NewLine)

If Not String.IsNullOrEmpty(DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).CodigoRastreamento) Then
sb.Append(“B771,300,2,K,4,12,160,B,” & “||chr22||[CODBARRAS]||chr22||” & DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).CodigoRastreamentoFR + Environment.NewLine)
End If

sb.Append(“P1″) ‘Fim da impressão

Catch ex As Exception

End Try
End Sub

Public Function GetFilterPage() As Framework.Filter

Dim oFilter As New Framework.Filter

If MyBase.validQueryString(“CPF”, TipoQueryString.Inteiro) Then
oFilter.addClause(“COD_PEDIDO_FILHO”, Request.QueryString(“CPF”))
End If

If MyBase.validQueryString(“CPP”, TipoQueryString.Inteiro) Then
oFilter.addClause(“COD_PEDIDO_PAI”, Request.QueryString(“CPP”))
End If

Return oFilter

End Function

Private Function DigitoVerificaCep(ByVal Cep As String) As String

Dim sum As Integer = 105
Dim peso As Integer = 1
Dim dig_verificador As String = “”

Try

Cep = Cep.ToString.Replace(“-”, “”)

If Cep.Length = 8 Then
For i As Integer = 0 To 7
If i Mod 2 = 0 Then
sum += (Cep.ToString.Substring(i, 2)) * peso
peso += 1
End If
Next

dig_verificador = sum Mod 103
End If

Return dig_verificador

Catch ex As Exception
trataErroInterface(ex)
Return “”
End Try

End Function

Private Sub InitializeComponent()
Me.Backoffice = New System.ComponentModel.BackgroundWorker
‘
‘BackgroundWorker1
”

End Sub

Public Sub EndWrite()
‘Clean up
_fileWriter.Flush()
_fileWriter.Close()
_outFile.Close()
CloseHandle(_hPort)
End Sub
End Class
End Class

Escrevo para dizer que estava amando as aulas de asp net, mas aí, não consegui acompanhar mais, uma aula sumiu (acho que a 5ª) e com aquela musica ao invés da sua explicação nas outras aulas foi ficando muito difícil.
Vc tem como me mandar as aulas por email ou talvez, ftp ???? Estavam tão ótimas …

Agradeço antecipadamente: Obrigada!

Andréa

Estou ansioso pela aula 9.

<%

'Set rs9 = Server.CreateObject("ADODB.Recordset")
'rs9.Open "SELECT * FROM produtos WHERE destaque='s'" , abredb, adOpenStatic, adLockReadOnly
'rmax=rs9.recordcount
' if rs9.eof or rs9.bof then
' mostrar_produto_destaque_fachada="Sim"
' rs9.close
' set rs9 = nothing
' end if

' t=Timer
' Randomize t
' rnum = Int(RND * rmax)
' rs9.move rnum
' set atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs9("idprod")&" ;")

'Produto 1
set rs = abredb.execute("SELECT * FROM produtos WHERE status ‘ok’ AND estoque=’s’ ;”)
if rs.eof or rs.bof then
rs.close
set rs = nothing
set atualizar = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ AND estoque=’s’ ;”)
if rs.eof or rs.bof then
rs.close
set rs = nothing
set atualizar = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ AND estoque=’s’ ;”)
end if
else
set atualizar = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 2
set rs2 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” AND estoque=’s’ ;”)
if rs2.eof or rs2.bof then
rs2.close
set rs2 = nothing

set atualizar2 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs2 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” AND estoque=’s’ ;”)
if rs2.eof or rs2.bof then
rs2.close
set rs2 = nothing
set atualizar2 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs2 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar2 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs2(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 3
set rs3 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” AND estoque=’s’ ;”)
if rs3.eof or rs3.bof then
rs3.close
set rs3 = nothing
set atualizar3 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs3 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” AND estoque=’s’ ;”)
if rs3.eof or rs3.bof then
rs3.close
set rs3 = nothing
set atualizar3 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs3 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar3 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs3(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 4
set rs4 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” AND estoque=’s’ ;”)
if rs4.eof or rs4.bof then
rs4.close
set rs4 = nothing
set atualizar4 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs4 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” AND estoque=’s’ ;”)
if rs4.eof or rs4.bof then
rs4.close
set rs4 = nothing
set atualizar4 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs4 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod ‘”&rs(“idprod”)&”‘ and idprod ‘”&rs2(“idprod”)&”‘ and idprod ‘”&rs3(“idprod”)&”‘ AND estoque=’s’ ;”)
end if
else
set atualizar4 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs4(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 5
set rs5 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” AND estoque=’s’ ;”)
if rs5.eof or rs5.bof then
rs5.close
set rs5 = nothing
set atualizar5 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs5 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” AND estoque=’s’ ;”)
if rs5.eof or rs5.bof then
rs5.close
set rs5 = nothing
set atualizar5 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs5 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar5 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs5(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 6
set rs6 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” AND estoque=’s’ ;”)
if rs6.eof or rs6.bof then
rs6.close
set rs6 = nothing
set atualizar6 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs6 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” AND estoque=’s’ ;”)
if rs6.eof or rs6.bof then
rs6.close
set rs6 = nothing
set atualizar6 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs6 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar6 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs6(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 7
set rs7 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” AND estoque=’s’ ;”)
if rs7.eof or rs7.bof then
rs7.close
set rs7 = nothing
set atualizar7 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs7 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” AND estoque=’s’ ;”)
if rs7.eof or rs7.bof then
rs7.close
set rs7 = nothing
set atualizar7 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs7 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar7 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs7(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 8
set rs8 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” AND estoque=’s’ ;”)
if rs8.eof or rs8.bof then
rs8.close
set rs8 = nothing
set atualizar8 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs8 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” AND estoque=’s’ ;”)
if rs8.eof or rs8.bof then
rs8.close
set rs8 = nothing
set atualizar8 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs8 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar8 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs8(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 9
set rs9 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” AND estoque=’s’ ;”)
if rs9.eof or rs9.bof then
rs9.close
set rs9 = nothing
set atualizar9 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs9 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” AND estoque=’s’ ;”)
if rs9.eof or rs9.bof then
rs9.close
set rs9 = nothing
set atualizar9 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs9 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar9 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs9(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 10
set rs10 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” AND estoque=’s’ ;”)
if rs10.eof or rs10.bof then
rs10.close
set rs10 = nothing
set atualizar10 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs10 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” AND estoque=’s’ ;”)
if rs10.eof or rs10.bof then
rs10.close
set rs10 = nothing
set atualizar10 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs10 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar10 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs10(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 11
set rs11 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” AND estoque=’s’ ;”)
if rs11.eof or rs11.bof then
rs11.close
set rs11 = nothing
set atualizar11 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs11 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” AND estoque=’s’ ;”)
if rs11.eof or rs11.bof then
rs11.close
set rs11 = nothing
set atualizar11 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs11 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar11 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs11(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 12
set rs12 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” AND estoque=’s’ ;”)
if rs12.eof or rs12.bof then
rs12.close
set rs12 = nothing
set atualizar12 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs12 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” AND estoque=’s’ ;”)
if rs12.eof or rs12.bof then
rs12.close
set rs12 = nothing
set atualizar12 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs12 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar12 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs12(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 13
set rs13 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” AND estoque=’s’ ;”)
if rs13.eof or rs13.bof then
rs13.close
set rs13 = nothing
set atualizar13 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs13 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” AND estoque=’s’ ;”)
if rs13.eof or rs13.bof then
rs13.close
set rs13 = nothing
set atualizar13 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs13 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar13 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs13(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 14
set rs14 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” AND estoque=’s’ ;”)
if rs14.eof or rs14.bof then
rs14.close
set rs14 = nothing
set atualizar14 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs14 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” AND estoque=’s’ ;”)
if rs14.eof or rs14.bof then
rs14.close
set rs14 = nothing
set atualizar14 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs14 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar14 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs14(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 15
set rs15 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” AND estoque=’s’ ;”)
if rs15.eof or rs15.bof then
rs15.close
set rs15 = nothing
set atualizar15 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs15 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” AND estoque=’s’ ;”)
if rs15.eof or rs15.bof then
rs15.close
set rs15 = nothing
set atualizar15 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs15 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar15 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs15(“idprod”)&” AND estoque=’s’ ;”)
end if

‘Produto 16
set rs16 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” and idprod “&rs15(“idprod”)&” AND estoque=’s’ ;”)
if rs16.eof or rs16.bof then
rs16.close
set rs16 = nothing
set atualizar16 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs16 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” and idprod “&rs15(“idprod”)&” AND estoque=’s’ ;”)
if rs16.eof or rs16.bof then
rs16.close
set rs16 = nothing
set atualizar16 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
set rs16 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” and idprod “&rs15(“idprod”)&” AND estoque=’s’ ;”)
end if
else
set atualizar16 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs16(“idprod”)&” AND estoque=’s’ ;”)
end if

intProdID1 = rs(“idprod”)
fabricante1 = rs(“fabricante”)
intProdID2 = rs2(“idprod”)
fabricante2 = rs2(“fabricante”)
intProdID3 = rs3(“idprod”)
fabricante3 = rs3(“fabricante”)
intProdID4 = rs4(“idprod”)
fabricante4 = rs4(“fabricante”)
intProdID5 = rs5(“idprod”)
fabricante5 = rs5(“fabricante”)
intProdID6 = rs6(“idprod”)
fabricante6 = rs6(“fabricante”)
intProdID7 = rs7(“idprod”)
fabricante7 = rs7(“fabricante”)
intProdID8 = rs8(“idprod”)
fabricante8 = rs8(“fabricante”)
intProdID9 = rs9(“idprod”)
fabricante9 = rs9(“fabricante”)
intProdID10 = rs10(“idprod”)
fabricante10= rs10(“fabricante”)
intProdID11 = rs11(“idprod”)
fabricante11 = rs11(“fabricante”)
intProdID12 = rs12(“idprod”)
fabricante12 = rs12(“fabricante”)
intProdID13 = rs13(“idprod”)
fabricante13 = rs13(“fabricante”)
intProdID14 = rs14(“idprod”)
fabricante14 = rs14(“fabricante”)
intProdID15 = rs15(“idprod”)
fabricante15 = rs15(“fabricante”)
intProdID16 = rs16(“idprod”)
fabricante16 = rs16(“fabricante”)

‘Formatação dos preços dos produtos
precito1 = formatNumber(rs(“preco”),1)
parcelado1 = FormatCurrency(precito1/6)
precito_velho1 = formatNumber(rs(“precovelho”), 2)

precito2 = formatNumber(rs2(“preco”), 2)
parcelado2 = FormatCurrency(precito2/6)
precito_velho2 = formatNumber(rs2(“precovelho”), 2)

precito3 = formatNumber(rs3(“preco”), 2)
parcelado3 = FormatCurrency(precito3/6)
precito_velho3 = formatNumber(rs3(“precovelho”), 2)

precito4 = formatNumber(rs4(“preco”), 2)
parcelado4 = FormatCurrency(precito4/6)
precito_velho4 = formatNumber(rs4(“precovelho”), 2)

precito5 = formatNumber(rs5(“preco”), 2)
parcelado5 = FormatCurrency(precito5/6)
precito_velho5 = formatNumber(rs5(“precovelho”), 2)

precito6 = formatNumber(rs6(“preco”), 2)
parcelado6 = FormatCurrency(precito6/6)
precito_velho6 = formatNumber(rs6(“precovelho”), 2)

precito7 = formatNumber(rs7(“preco”), 2)
parcelado7 = FormatCurrency(precito7/6)
precito_velho7 = formatNumber(rs7(“precovelho”), 2)

precito8 = formatNumber(rs8(“preco”), 2)
parcelado8 = FormatCurrency(precito8/6)
precito_velho8 = formatNumber(rs8(“precovelho”), 2)

precito9 = formatNumber(rs9(“preco”), 2)
parcelado9 = FormatCurrency(precito9/6)
precito_velho9 = formatNumber(rs9(“precovelho”), 2)

precito10 = formatNumber(rs10(“preco”), 2)
parcelado10 = FormatCurrency(precito10/6)
precito_velho10 = formatNumber(rs10(“precovelho”), 2)

precito11 = formatNumber(rs11(“preco”), 2)
parcelado11 = FormatCurrency(precito11/6)
precito_velho11 = formatNumber(rs11(“precovelho”), 2)

precito12 = formatNumber(rs12(“preco”), 2)
parcelado12 = FormatCurrency(precito12/6)
precito_velho12 = formatNumber(rs12(“precovelho”), 2)

precito13 = formatNumber(rs13(“preco”), 2)
parcelado13 = FormatCurrency(precito13/6)
precito_velho13 = formatNumber(rs13(“precovelho”), 2)

precito14 = formatNumber(rs14(“preco”), 2)
parcelado14 = FormatCurrency(precito14/6)
precito_velho14 = formatNumber(rs14(“precovelho”), 2)

precito15 = formatNumber(rs15(“preco”), 2)
parcelado15 = FormatCurrency(precito15/6)
precito_velho15 = formatNumber(rs15(“precovelho”), 2)

precito16 = formatNumber(rs16(“preco”), 2)
parcelado16 = FormatCurrency(precito16/6)
precito_velho16 = formatNumber(rs16(“precovelho”), 2)
‘
‘End If %>

*Web Aula Asp.net – Aula 7 / parte2: Select Banco de Dados

Abri o MysqlCommandLineClient digitei a mesma senha da instalação, criei a base e a tabela como acompanhado.

fechei o banco e fui para o WebVisualDeveloper, atualizei o banco que já estava conectado mas nada de aparecer as tabelas,

Você pode me ajudar?

Abraços!

Obs. estou usando win7. e nao dei aquele commando “-u root -p”