Randomera namn..

Är detta svårt?

Inte alls. Jag orkar inte skriva riktig kod, men här är lite pseudokod:

förnamn är en array med alla förnamnen.
efternamn är en array med alla efternamnen.
för varje namn i förnamn:
    för varje namn i efternamn:
        skriv ut det aktuella förnamnet och det aktuella efternamnet.

Se så. Spring iväg och implementera nu!

Tack tack, problemet är bara att jag knappt kan asp
Någon som kanske kan hjälpa mig där också?

Om jag får bestämma så gör du om dina filer till XML:

namn.xml:

<?xml version="1.0" encoding="ISO-8859-1"?>
<xmlrot>
<namn>Stellan</namn>
<namn>Steven</namn>
<namn>Sixten</namn> 
</xmlrot>

efternamn.xml:

<?xml version="1.0" encoding="ISO-8859-1"?>
<xmlrot>
<efternamn>Lindqvist</efternamn>
<efternamn>Broberg</efternamn>
<efternamn>Karlsson</efternamn> 
<efternamn>Moberg</efternamn> 
</xmlrot>

.. och kör sen så här:

<%
Set FirstNames = Server.CreateObject("MSXML2.DOMDocument")
FirstNames.async = False
FirstNames.Load Server.MapPath("namn.xml")
Set LastNames = Server.CreateObject("MSXML2.DOMDocument")
LastNames.async = False
LastNames.Load Server.MapPath("efternamn.xml")
Set lstFirstNames = FirstNames.getElementsByTagName("namn")
Set lstLastNames = LastNames.getElementsByTagName("efternamn")
For i = 0 To lstFirstNames.length - 1
    For j = 0 To lstLastNames.length - 1
        response.write lstFirstNames.Item(i).firstChild.nodeValue & " " & lstLastNames.Item(j).firstChild.nodeValue 

& "<br>"
    Next
Next
%>

Variant utan XML:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Server.MapPath(".") & ";Extensions=asc,csv,tab,txt;"
set rs = conn.execute("SELECT * from namn.txt, efternamn.txt order by 1")
While Not rs.EOF
	Response.Write  rs(0) & " " & rs(1) & "<br>"
	rs.MoveNext 
Wend
%>

OBS: Du måste lägga en blankrad överst i namn.txt och efternamn.txt.

Variant i FSO.

<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile("namn.txt")
i = 0
Do Until objTS.AtEndOfStream
  arrNamn(i) = objTS.ReadLine
Loop
objTS.Close
Set objTS = Nothing

Set objTS = objFSO.OpenTextFile("efternamn.txt")
i = 0
Do Until objFSO.AtEndOfStream
  arrEfter(i) = objTS.ReadLine
Loop
objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

For j = 0 To UBound(arrNamn)
  For k = 0 To UBound(arrEfter)
    Response.Write(arrNamn(j) & " " & arrEfter(k) & "<br>")
  Next
Next
%>

Otestad kod, så säg till om det inte funkar.

Men skulle namnen inte ligga slumpmässigt?

niko skrev:

Variant utan XML:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"Dbq=" & Server.MapPath(".") & ";Extensions=asc,csv,tab,txt;"
set rs = conn.execute("SELECT * from namn.txt, efternamn.txt order by 1")
While Not rs.EOF
	Response.Write  rs(0) & " " & rs(1) & "<br>"
	rs.MoveNext 
Wend
%>

OBS: Du måste lägga en blankrad överst i namn.txt och efternamn.txt.

Körde på det, perfekt, funkar precis som jag ville
Tack! Tack alla andra också som gjorde sina versioner!

order by 1,2

Om du även vill sortera efternamnet i bokstavsordning.

Om du vill ha namn efter frekvens (förekomst) har jag lite material.
Har PM át dig om detta. Hör bara av dig.