Modo mais produtivo para codificar.

Como você escreve seu código ASP, seja ele VB ou JS?

Existe uma maneira correta, melhor dizendo, produtiva para escrevê-lo, de modo que altere a velocidade e/ou precisão de sua escrita e/ou execução?

Sei que pode parecer uma discussão vaga, vazia ou até mesmo redundante relacionada ao Fórum ASP do iMasters, sendo que aqui participam desde os membros iniciantes aos moderadores avançados, e sabemos que cada um tem o seu modo, muitas das vezes bem peculiares, para escrever os códigos.

Devemos observar alguns pontos interessantes como:

1 - Como você escreve os comandos Sql?

Capitalize: Insert, Update, Delete, Distinct, From, Where, Order By, Inner Join, And, Or, Like

Ucase: INSERT, UPDATE, DELETE, DISTINCT, FROM, WHERE, ORDER BY, INNER JOIN, AND, OR, LIKE

Lcase: insert, update, delete, distinct, from, where, order by, inner join, and, or, like

2 - Como você escreve as condições?

Capitalize: End, End if, Else, Then, And, Or

Ucase: END, END IF, ELSE, THEN, AND, OR

Lcase: end, end if, else, then, and, or

3 - Como você escreve as variáveis?

Capitalize: VariavelX, VariavelY

Ucase: VARIAVELYX, VARIAVELY

Lcase: variavelx, variavely

4 - Você escreve seu código todo justificado à esquerda?

<%
If meu_codigo = condicao Then
Response.Write("conteúdo 1")
Response.Write("Conteúdo 2")
End If
%>
5 - Você escreve seu código em blocos tabulados?

<%
If meu_codigo = condicao Then
Response.Write("conteúdo 1")
Response.Write("Conteúdo 2")
End If
%>
Não sou profundo conhecedor sobre o assunto, por isso gostaria de contar com a participação de todos, pois acredito que tudo que vem para acrescentar de útil ao conhecimento é válido.

Então, como você escreve seu código? Existe uma forma correta ou mais produtiva?

Creio que todos entenderam o objetivo do tópico, caso contrário terei toda boa vontade para me expressar melhor.

Você está à vontade para postar a maneira que você escreve seu código.

Comente também quais os benefícios da sua escrita.

Colocarei meus Exemplos:

Uma simples conexão e inserção escrita em dois modos, Outline e Inline.

Me corrijam se preciso.

Outline:

db.asp

<%
Sub AbreConexao()
strCon = "DBQ=" caminho_do_seu_banco.mdb ";DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open strCon
End Sub

Sub FechaConexao()
Conexao.Close
Set Conexao = Nothing
End Sub

Sub ExecuteSQL(xstrSQL)
Conexao.Execute(xstrSQL)
End Sub
%>
inserir.asp

<%

Call AbreConexao()

titulo = Request.Form("titulo")
conteudo = Request.Form("conteudo")
data = Request.Form("data")
autor = Request.Form("autor")
publicado = Request.Form("publicado")

strSQL = "SELECT id "&_
"FROM tbl_noticias "&_
"WHERE titulo = '" & titulo & "';"
Set Rs = Conexao.Execute(strSQL)

Call ExecuteSQL("INSERT INTO tbl_noticias"&_
"( "&_
" titulo, "&_
" conteudo, "&_
" data, "&_
" autor, "&_
" publicado, "&_
") "&_
"VALUES("&_
" '" & titulo & "', "&_
" '" & conteudo & "', "&_
" '" & data & "', "&_
" '" & autor & "', "&_
" " & publicado & "); "&_
" ")

Call FechaConexao()

%>
---------------------------------------------------------------

InLine:

db.asp

<%
strCon = "DBQ=" caminho_do_seu_banco.mdb ";DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open strCon
End Sub

Sub FechaConexao()
Conexao.Close
Set Conexao = Nothing
End Sub

Sub ExecuteSQL(xstrSQL)
Conexao.Execute(xstrSQL)
End Sub
%>

inserir.asp

<%
Sub AbreConexao()

titulo = Request.Form("titulo")
conteudo = Request.Form("conteudo")
data = Request.Form("data")
autor = Request.Form("autor")
publicado = Request.Form("publicado")

strSQL = "SELECT id FROM tbl_noticias WHERE titulo = '" & titulo & "';"
Set Rs = Conexao.Execute(strSQL)
Call ExecuteSQL("INSERT INTO tbl_noticias (titulo, conteudo, data, autor, publicado) VALUES('" & titulo & "', '" & conteudo & "', '" & datag & "', '" & autor & "', " & publicado &
");")

Call FechaConexao()

%>