Der mangler så man kan oprette

Hej jeg har dette script
Men jeg mangler en sider så man kan oprette en ny side helst med billeder men behøves ikke
-------------------------------------
<%

  '//              Code created by Dan Riis "Scop Design"
  '//          Contact: dan.riis@e-mail.dk for more information

Set objConn = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../data/akvarie_db.mdb") & "; UID=Administrator; PWD="
  objConn.open DSN
  response.write "<html><head><title>Artikel oversigt</title></head><body>"
  id=request("id")
  if id<>"" then
    set objRS = objConn.execute("select * from [artikler] where id="&id&"") 
    if objRS.eof then
      response.write "Artiklen du forsøger at få vist eksistere ikke !!"
    else
      response.write "<B>Slægt : </B> "&objRS("slagt")&"<br>"
      response.write "<B>Art : </B> "&objRS("art")&"<br>"
      response.write "<B>Var : </B> "&objRS("Var")&"<br>"
      response.write "<B>Synonym : </B> "&objRS("synonym")&"<br>"
      response.write "<B>Populærnavn : </B> "&objRS("populaernavn")&"<br>"
      response.write "<B>Familie : </B> "&objRS("familie")&"<br>"
      response.write "<B>Region : </b> "&objRS("region")&"<br>"
      response.write "<B>Biotop : </b> "&objRS("biotop")&"<br>"
      response.write "<B>Størrelse : </b> "&objRS("stoerrelse")&"<br>"
      response.write "<B>Kønsforskel : </b> "&objRS("koensforskel")&"<br>"
      response.write "<B>Temperatur : </b> "&objRS("temperatur")&"<br>"
      response.write "<B>Adfærd : </b> "&objRS("adfaerd")&"<br>"
      response.write "<B>Social : </b> "&objRS("social")&"<br>"
      response.write "<B>Foder : </b> "&objRS("foder")&"<br>"
      response.write "<B>Opdræt : </b> "&objRS("opdraet")&"<br>"   
      response.write "<B>Kommentar : </b> "&objRS("kommentar")& " "
      response.write "<br>"
      response.write "<B>Hannen : </b> "&objRS("Han")& " "
      response.write "<br>"
      response.write "<img src=""/akva/images/Artikel/"&objRS("grafik")&".jpg"">"
      response.write "<br>"
      response.write "<br>"
      response.write "<B>Hunnen : </b> "&objRS("Hun")& " "
      response.write "<br>"
      response.write "<img src=""/akva/images/Artikel/"&objRS("grafik_hun")&".jpg"">"
      end if
    objRS.close : set objRS=nothing
  else
    set objRS = objConn.execute("select * from [artikler] order by art asc ")
      if objRS.eof then
        response.write "<font color=""blue"">Der var desvære ingen artikler i øjeblikket.</font>"
      else
          do while not objRS.eof
            response.write "<a href=""default.asp?target=0&id=" & objRS("id") & """>" & objRS("art") & " - " & objRS("populaernavn") & "</a><br>"
            objRS.movenext
        loop
      end if
    objRS.close : set objRS=nothing
  end if
  response.write "</body></html>"
  objConn.close : set objConn=nothing
%>
-------------------------------------