Jag har en kodsnutt som jag skulle vilja använda som function.
koden ska retunera ett recordset

hur gör jag för att få den här koden till en egen function

	Dim id
id = Request.Querystring("id")

set objCmd = Server.CreateObject("ADODB.Command")
connection.Open connstr


With objCmd
    .ActiveConnection = connection
    .CommandText = "sp_getInlagg" 
    .CommandType = adCmdStoredProc
    
    
    .Parameters.Append .CreateParameter("@inlaggid", adInteger, adParamInput, , id)
    
        
    'Execute the function
    'If not returning a recordset, use the adExecuteNoRecords parameter option
    Set rsTypes = .Execute

    
End With
	

	
	while not rsTypes.EOF

	Response.Write("<td>Rubrik</td><td>"+rsTypes("rubrik")+"</td></tr><tr><td>Författarnamn</td<td>")
	Response.Write(rsTypes("forfattarnamn"))
	Response.Write("<td>"&rsTypes("datum")&"</td></td></tr><tr><td>inlägg</td<td>")
	Response.Write(rsTypes("texten"))
	Response.Write("</td></tr><tr><td>Svara</td></tr>")
	

	rsTypes.MoveNext
	Wend

	rsTypes.Close

vill du ha allt i en funktion eller bara kunna anropa ett värdet från en loopen?

Dim id
id = Request.Querystring("id")

set objCmd = Server.CreateObject("ADODB.Command")
connection.Open connstr

Function Funktionen()
With objCmd
    .ActiveConnection = connection
    .CommandText = "sp_getInlagg" 
    .CommandType = adCmdStoredProc
    
    
    .Parameters.Append .CreateParameter("@inlaggid", adInteger, adParamInput, , id)
    
        
    'Execute the function
    'If not returning a recordset, use the adExecuteNoRecords parameter option
    Set rsTypes = .Execute

    
End With
	

	
	while not rsTypes.EOF

	Response.Write("<td>Rubrik</td><td>"+rsTypes("rubrik")+"</td></tr><tr><td>Författarnamn</td<td>")
	Response.Write(rsTypes("forfattarnamn"))
	Response.Write("<td>"&rsTypes("datum")&"</td></td></tr><tr><td>inlägg</td<td>")
	Response.Write(rsTypes("texten"))
	Response.Write("</td></tr><tr><td>Svara</td></tr>")
	

	rsTypes.MoveNext
	Wend

	rsTypes.Close

End Function

jag vill att funktionen ska retunera ett recordset. så att jag bara behöver ropa på en funktion i en separat fil för att hämta ut recordsetet.

Sen vill kunna loopa igenom recordsetet i filen som skriver ut html:n

Vill alltså placera alla funktioner som retunerar ett recordset i en separat fil

är van med .NET o då hade jag bara lagt funktionen i en klass som jag sen anropar.