 |
 |
 |
|
Garantili
Toner Kartuş Dolumu ve Sarf Malzemeleri,Fax Pırinter
Ofisjet Para sayma ve Hesap Makinaları Daktilolar Laserjet
Monitör Arızaların da Tek Elden Profesyonel Çözüm İmkanı.
Çalışma Saatlerimiz
Hafta İçi:
09:00 - 18:00
Cumartesi :
09:00 - 14:00
Servis Bedellerimiz
Fax Tamiri - 15$
Laser Tamiri - 15$
İnkjet Tamiri - 10$
Monitör Tamiri - 15$
Daktilo Tamiri - 10$
Receiver Yazılım10$
ve hertürlüPower Card Tamiri
Fiyatlara KDV İlave Edilecektir.
|
|
|
|
|
|
|
|
| |
|
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri/keyifweb.mdb")
islem = Request.QueryString("islem")
if islem = "sil" then
call sil
elseif islem="yil" then
call yil
elseif islem="ekle" then
call ekle
else
end if
%>
<%
sub sil
id = Request("id")
Set keyifweb = Server.CreateObject("ADODB.RecordSet")
SQL_delete = "DELETE from mesaj WHERE id="&id&""
keyifweb.open SQL_delete,Sur,1,3
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
%>
<%sub ekle
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri/keyifweb.mdb")
Set gir = server. CreateObject("ADODB.Recordset")
kayit = "Select * from mesaj"
gir.Open kayit,sur,1,3
Dim ekleyen, email, baslik, mesaj, tarih
ekleyen = request.form("ekleyen")
email = request.form("email")
baslik = request.form("baslik")
mesaj = request.form("mesaj")
tarih = request.form("tarih")
if ekleyen="" or email="" or baslik="" or mesaj="" or tarih="" then
Response.Write "Lütfen tüm alanları doldurunuz..."
Response.End
else
gir.AddNew
gir("ekleyen") = ekleyen
gir("email") = email
gir("baslik") = baslik
gir("mesaj") = mesaj
gir("tarih") = tarih
gir.Update
Response.Redirect "tamam.htm"
end if
end sub
%>
Keyif Web İletisim by
Vatanay Özbeyli
|
|
|
|
|
|
|
|
|
