home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
74.208.221.89
/
74.208.221.89.zip
/
74.208.221.89
/
manage
/
selectstore.aspx
< prev
next >
Wrap
Text File
|
2015-03-09
|
2KB
|
56 lines
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDB" %>
<%@ Import namespace="System.IO" %>
<script runat="server">
Dim mycon As New conValue()
Sub page_load()
End Sub
</Script>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
</style>
<link href="ncss.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td height="30" colspan="3" align="center" bgcolor="#DBDBDB" class="text1"><strong>SELECT A STORE TO ADD PRODUCTS</strong></td>
</tr>
<%
Dim i As Integer = 1
mycon.con("Select * from lk_stores where usedatafrom = '1'",1,1)
While mycon.sql1.Read
%>
<tr>
<td width="4%" bgcolor="#F0F0F0" class="text1"> <%= i %></td>
<td width="47%" height="30" bgcolor="#F0F0F0" class="text1"> <%= mycon.sql1("storename")%></td>
<td width="49%" bgcolor="#F0F0F0" class="text1"> <a href="addflipkart.aspx?store=<%= ucase(trim(mycon.sql1("storename"))) %>">Add Products</a></td>
</tr>
<%
i = i + 1
End While
mycon.sql1.Close()
%>
<tr>
<td width="4%" bgcolor="#F0F0F0" class="text1"> <%= i %></td>
<td width="47%" height="30" bgcolor="#F0F0F0" class="text1"> OMG</td>
<td width="49%" bgcolor="#F0F0F0" class="text1"> <a href="addflipkart.aspx?store=OMG">Add Products</a></td>
</tr>
</table>
</body>
</html>