Seguinte, tenho o seguinte código:
Const adOpenStatic7 = 3
Const adLockPessimistic7 = 2
Dim cnnExcel7
Dim rstExcel7
Dim I7
Dim iCols7
Set cnnExcel7 = Server.CreateObject("ADODB.Connection")
cnnExcel7.Open "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=d:/http/teste/public_html/marcas.xls" & arquivo
Set rstExcel17 = Server.CreateObject("ADODB.Recordset")
rstExcel17.Open "SELECT * FROM marca",cnnExcel7,adOpenStatic7,adLockPessimistic7
iCols = rstExcel17.Fields.Count
While Not rstExcel17.EOF
For I = 0 To iCols - 1
Response.Write "<tr>"
Response.Write "<td class=text>" & rstExcel17.Fields.Item(I).Value & "</td>"
Response.Write "</tr>"
Next
rstExcel17.MoveNext
t
Wend
rstExcel17.Close
Set rstExcel17 = Nothing
cnnExcel7.Close
Set cnnExcel7 = Nothing
%>Ele verifica o arquivo marcas.xls e exibe os resultado da coluna marcas.
Porém quando o arquivo não está no local ou o nome da coluna não é definido ou foi definido de forma incorreta, o proprio asp retorna mensagem de erro e a página para apartir de tal linha, que seria a nº 20:
rstExcel17.Open "SELECT * FROM marca",cnnExcel7,adOpenStatic7,adLockPessimistic7
O que posso fazer para que caso haja erro o sistema não execute o código e não bloqueie a página?
Pois após este código há mais itens na página.
Tentei utilizar IF - ELSE, porem não consegui ou fiz de forma incorreta.
Então gostaria de saber o que pode ser feito para testar antes?
Algum comando especifico ou um IF ELSE de verificação e no caso qual a forma?
Vlw.
