Jag löste det, med hjälp av sökning hittade jag detta http://www.webforum.nu/showthread.php?s=&postid=85942#post85942 och det var vad jag sökte, hittade det inte tidigare.
Frågan#1
skriver ut en GetRows med följande:
aResults = RS.GetRows
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
iRows = UBound(aResults, 2)
iCols = UBound(aResults, 1)
IF iRows > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iRows
End IF
num=0
For iRowLoop = iStart to iStop
Response.Write ("Date") & num &("=")
num = num +1
For iColLoop = 0 to iCols
Response.Write aResults(iColLoop, iRowLoop) & "&"
Next
och det blir så här:
Date0=15/3&00:29:36&Date1=16/4&00:24:16
Hur får jag in en text till så det blir så här ->
Date0=15/3&**Time0=**00:29:36&Date1=16/4&**Time0=**00:24:16