Test

<body> <p>KKKKKKKKK</p> Set objSendMail = CreateObject("CDONTS.NewMail") With objSendMail .From = "Cvetan@Bitola.com" .To = "Simo@Bitola.com" .Subject = "Pozdrav 1" .Body = "Kako si" .Send End With Set objSendMail = Nothing <% @ LANGUAGE="VBSCRIPT"%> <% Dim simocece Application("simocecece") = "SIMO SIMO CECE sss sss fff" response.write "zapamti" Dim dIme(), dPrezime(), dAdresa(), dBroj(), dTelefon(), dEmail(), dbrstavki ReDim dIme(30000), dPrezime(30000), dAdresa(30000), dBroj(30000), dTelefon(30000), dEmail(30000) Dim Events Set Events = Server.CreateObject("ADODB.Recordset") Events.Open "Select * from privatni Order by ime", "DSN=telefoni" dbrstavki=0 Events.MoveFirst Do While Not Events.EOF dbrstavki=dbrstavki+1 dIme(dbrstavki) = Events("ime") dPrezime(dbrstavki) = Events("prezime") dTelefon(dbrstavki) = Events("telefon") dAdresa(dbrstavki) = Events("adresa") dBroj(dbrstavki) = Events("broj") dEmail(dbrstavki) = Events("email") Events.MoveNext Loop Events.Close Application("brstavki") = dbrstavki Application("Ime") = dIme Application("Prezime") = dPrezime Application("Telefon") = dTelefon Application("Adresa") = dAdresa Application("Broj") = dBroj Application("Email") = dEmail Dim dNaziv(), dx1(), dy1(), dfile(), dbrulici ReDim dNaziv(100), dx1(100), dy1(100), dfile(100) ' Dim Events ' Set Events = Server.CreateObject("ADODB.Recordset") ' Events.Open "Select * from ulici", "DSN=telefoni" ' dbrulici=0 ' Events.MoveFirst ' Do While Not Events.EOF ' dbrulici=dbrulici+1 ' dNaziv(dbrulici) = Events("naziv") ' dx1(dbrulici) = Events("x1") ' dy1(dbrulici) = Events("y1") ' dfile(dbrulici) = Events("file") ' Events.MoveNext ' Loop ' Events.Close dbrulici=23 dNaziv(1) = "EPINAL" dfile(1) = "epinal.jpg" dNaziv(2) = "SISAK" dfile(2) = "epinal.jpg" dNaziv(3) = "PREVALEC" dfile(3) = "epinal.jpg" dNaziv(4) = "NOVOSADSKA" dfile(4) = "epinal.jpg" dNaziv(5) = "SKOEVSKA" dfile(5) = "epinal.jpg" dNaziv(6) = "DARVINOVA" dfile(6) = "epinal.jpg" dNaziv(7) = "PO@AREVA^KA" dfile(7) = "epinal.jpg" dNaziv(8) = "PELISTER" dfile(8) = "epinal.jpg" dNaziv(9) = "NOVOSADSKA" dfile(9) = "epinal.jpg" dNaziv(10) = "GALI^ICA" dfile(10) = "epinal.jpg" dNaziv(11) = "BO{KO BUHA" dfile(11) = "epinal.jpg" dNaziv(12) = "GOLEMO EZERO" dfile(12) = "epinal.jpg" dNaziv(13) = "KARPO{" dfile(13) = "karpos.jpg" dNaziv(14) = "BORIS KIDRI^" dfile(14) = "karpos.jpg" dNaziv(15) = "KI^EVO" dfile(15) = "karpos.jpg" dNaziv(16) = "KI^EVO" dfile(16) = "karpos.jpg" dNaziv(17) = "SOLUNSKA" dfile(17) = "solunska.jpg" dNaziv(18) = "VARDAR" dfile(18) = "solunska.jpg" dNaziv(19) = "SEVER JUG" dfile(19) = "solunska.jpg" dNaziv(20) = "NIKO FUNDALI" dfile(20) = "solunska.jpg" dNaziv(21) = "TU{IN" dfile(21) = "solunska.jpg" dNaziv(22) = "ELPIDA KARAMANDI" dfile(22) = "solunska.jpg" dNaziv(23) = "LERINSKA" dfile(23) = "solunska.jpg" Application("brulici") = dbrulici Application("Naziv") = dNaziv Application("file") = dfile Dim mmozitel mmozitel = Application("mozitel") ' if mmozitel = 1 then ' Response.Redirect("http://www.bitola.com/inzenering/inzenering.htm") ' else ' Response.Redirect("http://www.bitola.com") ' end if %> </body>