Spiegazione codice

[Emiliano_6671]

ciao a tutti
premetto che è da poco che mi avvicino ad ASP

allora ho questa pagina che cerca in un database

<%@Language="VBScript"%>

<%
Dim oRS, oConn

Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")

oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbloaclbus.mdb")
oConn.Open

strSQL="SELECT * FROM Fornitori WHERE RagSociale"



x = 1
oRS.Open strSQL, oConn,1,3
conta=oRS.RecordCount

if not oRS.Eof then
%>&RagSociale<%=x%>=<%=oRS("RagSociale")%>&mail<%= x%>=<%=oRS("mail")%><%

Do while not oRS.EOF
%>&RagSociale<%=x%>=<%=oRS("RagSociale")%>&mail<%= x%>=<%=oRS("mail")%><%

x = x + 1
oRS.MoveNext
Loop
end if

Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>

ma mi restituisce due volte la stessa cosa adesso io vorrei che se non trova nulla mi scrive "Nussun Record"

altrimenti mi stampa a video i risultati come devo modificare??

Grazie

[daviweb]

if not oRS.Eof then
Do while not oRS.EOF
%>&RagSociale<%=x%>=<%=oRS("RagSociale")%>&mail<%= x%>=<%=oRS("mail")%><%

x = x + 1
oRS.MoveNext
Loop
else
%> Nessun risultato <%
end if