öncelikle, niye like kullandın ki, tam bir eşleşme araman gerekiyo, like benzer verileri de hata gibi gösterebilir. (zaten genelde arama için kullanılır.)
sonralıkla, bunun kontrolü için iki farklı sql sorgusu çalıştırman gerekmez. or ifadesi kullanarak tek bi sql ile işi bitirebilirsin.
son olarak insert için kayıtseti açmamışsın ki. ve niye else ifadesi kullanmadın, daha kolay olurdu.
neyse, şöyle kullanabilirsin mesela:
_______________________________
<%
Call openConn
Set rsCheckUser = objConn.Execute("SELECT straccountid FROM tb_user WHERE strEmail='" & LCase(Request.Form("frmEmail")) & "' or straccountid='" & LCase(Request.Form("frmLogin")) & "'")
If rsCheckUser.EOF Then
Set rsInsertUser = objConn.Execute("INSERT INTO tb_user (straccountid, strPasswd, strEmail, msn, sehir, gizlisoru, cevap, strAuthority, idays, strSocNo, ip) VALUES ('" & Request.Form("frmLogin") & "', '" & Request.Form("frmPassword") & "', '" & Request.Form("frmmsn") & "', '" & Request.Form("frmsehir") & "', '" & Request.Form("frmgizli") & "', '" & Request.Form("frmcevap") & "', '" & Request.Form("frmEmail") & "', 2, 6, 1,'" & replace(replace(getIp(), "[", ""), "]", "") & "')")
Response.Write "kayıt başarılı filandı falandı"
else
Response.Write "<center><b>Kullanici Adi veya email Kullanimda<br>Login Name or email Already Using<b></center>"
end If

Set rsCheckUser = Nothing
Set rsInsertUser = Nothing
Call closeConn
%>
________________________________
kodları bi kontrol et birader, hızlıca ekledim.
bi de değişkenleri ayrıca tanımlarsan, sql ifadelerinde daha rahat edersin.
misal; email_adresi=lcase(request.form("email")) gibilerinden.