har lånat lite text här och var
och vissa delar är tydligen asp


'****************************
Public Sub IntADO(sokv As String)
Dim sql As String
Dim ska As String
Dim mona() As Variant

Set con = New ADODB.Connection
Set rst = New ADODB.Recordset

con.ConnectionString = _
"Provider=Microsoft.jet.oledb.4.0;" & _
"Data Source=" & sokv
'& _" Persist Security info=False"
'"Data Source=\\Dator1\SII2\grundA.mdb;" & _

sql = " select distinct ind,datum,sigsort,sine_,fc,lusine,fc_k from vb3"

con.Open ConnectionString

Set rst = con.Execute(sql)

mona = rst.GetRows

rst.Close
con.Close
'respons.Write "<table> border='1'>" & vbCrLf

respons.Write mona '" border='1'>" & vbCrLf

kolumn = UBound(mona, 1)
rad = UBound(mona, 2)

For radraknare = 0 To rad
response.Write "<tr>" & vbCrLf
For kolumnraknare = 0 To kolumn
thisfield = mona(kolumn, rad)
If IsNull(thisfield) Then
thisfield = shownull

End If

If Trim(thisfield) = "" Then
thisfield = showblank
End If

response.Write "<td valign=top>"

response.Write thisfield
response.Write "</td>" & vbCrLf
Next
response.Write "</tr>" & vbCrLf
Next

response.Write "table"
End Sub
mvh per h

Hej,

Finns det en fråga relaterat till detta?

Om du har problem, hur yttrar det sig? Får du felmeddelande? När? Hur? Var?

Vad vill du åstadkomma? I vilket sammanhang? På vilket sätt? Med vilket språk? Osv...

Återkom med lite mer info om det är något du vill ha hjälp med.

// Johan

här får jag felmeddelandet

språk =vba // vb

vill lägga upp det på ett access formulär

här är frågan
sql = " select distinct ind,datum,sigsort,sine_,fc,lusine,fc_k from vb3"



objekt saknas

respons.Write mona '" border='1'>" & vbCrLf

och kör jag sattsen

respons.Write "<table> border='1'>" & vbCrLf

får jag svar objekt krävs

Hej,

Du får ursäkta, men jag tror du får börja med att bena ut vad du vill åstadkomma och försöka förstå den kod du klippt från. Om du inte förstår den koden så återstår bara att börja från grunden själv.

Jag ser flera olika konstigheter här. En är t.ex. att du försöker använda ett recordset efter att du stängt både det och dess connection objekt.

Ett annat problem är att du har kodrader som inte ens är giltiga, t.ex. :
<code>respons.Write mona '" border='1'>" & vbCrLf</code>
är ingen exekverbar kod. Förmodligen vill du ha in ett & någonstans och ta bort ett ' från ovanstående text.

Detta var två snabba problem jag hittade, men det ser allmänt rörigt ut. Jag hade börjat om från grunden i detta fallet.

Om man tvunget skall klippa och klistra så skriv åtminstone om koden så att den liknar något som du är van vid att förstå. :-)


Lycka till!

// Johan

löst