---

Det kan rent faktisk lade sig gøre at arbejde med sine egne klasser i vbscripting. Det gøres således:
<%

CLASS Webbutik
dim gstrRate
   Public Property Get Rate 'Substitute with the name of the actual field
      Rate = gstrRate
   End Property
   
   Public Property Let Rate(strRate)
      gstrRate = strRate
   End Property
   
   Private Sub Class_Initialize()
Response.Write "oprettes"
   End Sub
   
   Private Sub Class_Terminate()
      Response.Write "afsluttes"
   End Sub

   
   public FUNCTION sql2htm(strTemp)
      sql2htm=replace(strTemp,vbCrLf,"<br>")
   End function

   Public Sub Opendb
      dim myconn
      Set myConn = Server.CreateObject("ADODB.Connection")
      myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(db_location)
      SET rs = myConn.EXECUTE("SELECT * FROM Biler")
      myConn.Close
      Set myConn = Nothing
      Set rs = Nothing
   End sub

End Class

Set Nybutik = New Webbutik
   nybutik.Rate="asdasd"
   var=nybutik.Rate
   Response.Write Nybutik.sql2htm("asdsadassad")
   Nybutik.opendb
Set Nybutik = nothing

%>

---

---

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.