Doppio Inserimeto records con file Include

[99eros9]

Mi trovo a fronteggiare questo strano caso (cerco di semplificare il codice in questo esempio)
In un file chiamato pagina1.asp ho questa porzione di codice:

In testa, includo il seguente file

poi ho questo codice, sempre nella stessa pagina:

SELECT CASE cmp_pagina
Case ""
cancella_records%>

<%Case "1"%>

<%Case "2"
valida_residenza%>

<%Case "3"
fnc_inserisci(crea_idRandom)%>

<%END SELECT%>

Quando arrivo alla 3 opzione, richiamo le seguenti routine dal file incluso in alto include.asp, che sono:

FUNCTION crea_idRandom
Randomize()
Dim strBase
Dim i
Dim strId
Dim intNumeroRnd
strBase = "abcdefghijklmnopqrstuvwxyz1234567890_"
For i = 1 To 16
	intNumeroRnd = 1 + int(RND * 35)
	strId = strId & Mid(strBase,intNumeroRnd,1)
Next
crea_idRandom = strId
END FUNCTION

Sub fnc_inserisci(codice)
sql = "INSERT INTO utente_temp SET "&_
	  "temp_id = '" & codice & "', "&_
	  "temp_nick = '" & cmp_nick & "'"
co.open  :sonno: 
co.Execute sql
co.close
End Sub 'fnc_inserisci

Il problema è che a volte mi scrive un solo record, come giusto che sia, ma il più delle volte me ne scrive 2, ovviamente con codice diverso, proprio come se la sub fnc_inserisci venisse, anzi a quanto pare viene chiamata due volte. Secondo voi è un problema di caricamento dell'include?